[LON-CAPA-cvs] cvs: rat / lonratparms.pm

[stredwic]

stredwic		Wed May 29 14:52:57 2002 EDT

  Modified files:              
    /rat	lonratparms.pm 
  Log:
  See bug 90.  Updated file to using get_unprocessed_cgi updating the ENV.
  
  
Index: rat/lonratparms.pm
diff -u rat/lonratparms.pm:1.9 rat/lonratparms.pm:1.10
--- rat/lonratparms.pm:1.9	Mon Mar 11 14:54:31 2002
+++ rat/lonratparms.pm	Wed May 29 14:52:57 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Set parameters inside of the RAT
 #
-# $Id: lonratparms.pm,v 1.9 2002/03/11 19:54:31 matthew Exp $
+# $Id: lonratparms.pm,v 1.10 2002/05/29 18:52:57 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -53,18 +53,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 'url') || ($name eq 'parms') || 
-           ($name eq 'resid')) {
-           unless ($ENV{'form.'.$name}) {
-              $ENV{'form.'.$name}=$value;
-	   }
-       }
-    }
-
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+                                            ['url','params','resid']);
 
 # ------------------------------------------------------------------- Read file