[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm

[stredwic]

stredwic		Wed May 29 14:26:22 2002 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  See bug 90.  Changed file to using loncommon::get_unprocessed_cgi function to update ENV{QUERY_STRING}.
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.26 loncom/interface/lonfeedback.pm:1.27
--- loncom/interface/lonfeedback.pm:1.26	Wed Apr  3 13:47:39 2002
+++ loncom/interface/lonfeedback.pm	Wed May 29 14:26:22 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.26 2002/04/03 18:47:39 www Exp $
+# $Id: lonfeedback.pm,v 1.27 2002/05/29 18:26:22 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -368,16 +368,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 'hide') || ($name eq 'unhide') || ($name eq 'postdata')) {
-           unless ($ENV{'form.'.$name}) {
-              $ENV{'form.'.$name}=$value;
-	   }
-       }
-    }
+   &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+                                           ['hide','unhide','postdata']);
 
   if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) {
 # ----------------------------------------------------------------- Hide/unhide