[WWcvs] pg: defining server_root_url from environment

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
defining server_root_url from environment

Modified Files:
--------------
    pg/lib:
        PGalias.pm

Revision Data
-------------
Index: PGalias.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/PGalias.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -Llib/PGalias.pm -Llib/PGalias.pm -u -r1.8 -r1.9
--- lib/PGalias.pm
+++ lib/PGalias.pm
@@ -759,6 +759,7 @@
 sub findAppletCodebase {
 	my $self     = shift;
 	my $fileName = shift;  # probably the name of a jar file
+	$server_root_url=$self->envir("server_root_url");
 	#check cache first
 	if (defined($appletCodebaseLocations{$fileName})  
 	      and $appletCodebaseLocations{$fileName} =~/\S/  ){