[LON-CAPA-cvs] cvs: loncom /publisher lonretrieve.pm

stredwic lon-capa-cvs@mail.lon-capa.org
Wed, 29 May 2002 18:25:17 -0000


stredwic		Wed May 29 14:25:17 2002 EDT

  Modified files:              
    /loncom/publisher	lonretrieve.pm 
  Log:
  See Bug 90.  Changed updating of ENV for QUERY_STRING to using loncommon::get_unprocessed_cgi function.
  
  
Index: loncom/publisher/lonretrieve.pm
diff -u loncom/publisher/lonretrieve.pm:1.16 loncom/publisher/lonretrieve.pm:1.17
--- loncom/publisher/lonretrieve.pm:1.16	Sun Dec 16 19:57:59 2001
+++ loncom/publisher/lonretrieve.pm	Wed May 29 14:25:17 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to retrieve an old version of a file
 #
-# $Id: lonretrieve.pm,v 1.16 2001/12/17 00:57:59 harris41 Exp $
+# $Id: lonretrieve.pm,v 1.17 2002/05/29 18:25:17 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -176,17 +176,8 @@
 
 # Get query string for limited number of parameters
 
-    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 'filename') {
-           unless ($ENV{'form.'.$name}) {
-              $ENV{'form.'.$name}=$value;
-	   }
-       }
-    }
-
+  &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+					  ['filename');
 
   if ($ENV{'form.filename'}) {
       $fn=$ENV{'form.filename'};