loncom/publisher/londiff.pm - diff

Return to londiff.pm CVS log

Up to [LON-CAPA] / loncom / publisher

-version 1.7, 2001/12/13 14:02:54
+version 1.8, 2002/05/29 18:23:58
  Line 62  sub handler {
  # Get query string for limited number of parameters
-     foreach (split(/&/,$ENV{'QUERY_STRING'})) {
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
-        my ($name, $value) = split(/=/,$_);
+                                        ['filename','versiontwo','versionone']);
-        $value =~ tr/+/ /;
-        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
-        if (($name eq 'filename') || ($name eq 'versiontwo') ||
-            ($name eq 'versionone')) {
-            unless ($ENV{'form.'.$name}) {
-               $ENV{'form.'.$name}=$value;
- 	   }
-        }
-     }
  # Get the files
    my $cuname=$ENV{'user.name'};