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

matthew lon-capa-cvs@mail.lon-capa.org
Tue, 07 May 2002 18:10:55 -0000


matthew		Tue May  7 14:10:55 2002 EDT

  Modified files:              
    /loncom/interface	lonspreadsheet.pm 
  Log:
  Changed to use get_unprocessed_cgi.  BUG 90.
  
  
Index: loncom/interface/lonspreadsheet.pm
diff -u loncom/interface/lonspreadsheet.pm:1.88 loncom/interface/lonspreadsheet.pm:1.89
--- loncom/interface/lonspreadsheet.pm:1.88	Mon Apr 29 17:06:30 2002
+++ loncom/interface/lonspreadsheet.pm	Tue May  7 14:10:55 2002
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.88 2002/04/29 21:06:30 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.89 2002/05/07 18:10:55 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2399,17 +2399,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 'uname') || ($name eq 'udom') || 
-           ($name eq 'usymb') || ($name eq 'ufn')) {
-           unless ($ENV{'form.'.$name}) {
-              $ENV{'form.'.$name}=$value;
-	   }
-       }
-    }
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+                                            ['uname','udom','usymb','ufn']);
 
     if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'})) {
 	$ENV{'form.ufn'}='default_'.$1;