--- loncom/interface/loncommon.pm	2002/02/26 20:59:28	1.25
+++ loncom/interface/loncommon.pm	2002/03/28 21:38:53	1.29
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.25 2002/02/26 20:59:28 albertel Exp $
+# $Id: loncommon.pm,v 1.29 2002/03/28 21:38:53 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -359,7 +359,7 @@ sub get_student_answers {
 
 sub get_unprocessed_cgi {
   my ($query,$possible_names)= @_;
-  $Apache::lonxml::debug=1;
+  # $Apache::lonxml::debug=1;
   foreach (split(/&/,$query)) {
     my ($name, $value) = split(/=/,$_);
     $name = &Apache::lonnet::unescape($name);
@@ -367,7 +367,7 @@ sub get_unprocessed_cgi {
       $value =~ tr/+/ /;
       $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
       &Apache::lonxml::debug("Seting :$name: to :$value:");
-      &add_to_env('form.'.$name,$value);
+      unless ($ENV{'form.'.$name}) { &add_to_env('form.'.$name,$value) };
     }
   }
 }
@@ -392,8 +392,8 @@ sub no_cache {
 
 sub add_to_env {
   my ($name,$value)=@_;
-  if ($ENV{$name}) {
-    if (defined(@{ $ENV{$name} })) {
+  if (defined($ENV{$name})) {
+    if (ref($ENV{$name})) {
       #already have multiple values
       push(@{ $ENV{$name} },$value);
     } else {