--- loncom/cgi/thumbnail.gif	2003/02/03 18:03:52	1.3
+++ loncom/cgi/thumbnail.gif	2005/04/07 06:56:21	1.4
@@ -25,9 +25,6 @@
 #
 # http://www.lon-capa.org/
 #
-# YEAR=2001
-# 8/15,9/28,12/11
-#
 ###
 
 # Example usage: /cgi-bin/thumbnail.gif?url=...
@@ -56,18 +53,20 @@ sub filelocation {
   return $location;
 }
 
+my %env;
+
 $|=1;   # Autoflush after each print/write
 foreach (split(/&/,$ENV{'QUERY_STRING'})) {
     my ($name, $value) = split(/=/,$_);
     $value =~ tr/+/ /;
     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
     if ($name eq 'url') {
-	$ENV{'form.'.$name}=$value;
+	$env{'form.'.$name}=$value;
     }
 }
 
 
-my $ofn=&filelocation('',$ENV{'form.url'});
+my $ofn=&filelocation('',$env{'form.url'});
 my $fn=$ofn.'.thumbnail';
 
 my $exists=1;