--- loncom/interface/loncommon.pm 2002/03/23 14:54:16 1.28 +++ 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.28 2002/03/23 14:54:16 albertel Exp $ +# $Id: loncommon.pm,v 1.29 2002/03/28 21:38:53 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -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) }; } } }