--- loncom/interface/loncommon.pm	2001/09/13 19:59:33	1.5
+++ loncom/interface/loncommon.pm	2001/10/05 21:35:43	1.6
@@ -60,5 +60,15 @@ sub get_previous_attempt {
   }
 }
 
+sub get_unprocessed_cgi {
+  my ($query)= @_;
+  map {
+    my ($name, $value) = split(/=/,$_);
+    $value =~ tr/+/ /;
+    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+    if (!defined($ENV{'form.'.$name})) { $ENV{'form.'.$name}=$value; }
+  } (split(/&/,$query));
+}
+
 1;
 __END__;