--- loncom/interface/lonsearchcat.pm 2001/03/22 13:10:06 1.64 +++ loncom/interface/lonsearchcat.pm 2001/03/22 13:22:36 1.65 @@ -600,17 +600,7 @@ sub basicsearch { sub output_blank_field_error { my ($r)=@_; # make query information persistent to allow for subsequent revision - my $persistent=''; - map { - if (/^form\./ && !/submit/) { - my $name=$_; - my $key=$name; - $name=~s/^form\.//; - $persistent.=< -END - } - } (keys %ENV); + my $persistent=&make_persistent(); $r->print(< @@ -719,17 +709,7 @@ END } # make query information persistent to allow for subsequent revision - my $persistent=''; - map { - if (/^form\./ && !/submit/) { - my $name=$_; - my $key=$name; - $name=~s/^form\.//; - $persistent.=< -END - } - } (keys %ENV); + my $persistent=&make_persistent(); $r->print(< @@ -999,17 +979,7 @@ sub build_date_queries { sub output_date_error { my ($r,$message)=@_; # make query information persistent to allow for subsequent revision - my $persistent=''; - map { - if (/^form\./ && !/submit/) { - my $name=$_; - my $key=$name; - $name=~s/^form\.//; - $persistent.=< -END - } - } (keys %ENV); + my $persistent=&make_persistent(); $r->print(< @@ -1037,7 +1007,19 @@ RESULTS } sub make_persistent { - $ENV{"form.$field"}=~s/\"/\\\"/g; + my $persistent=''; + map { + if (/^form\./ && !/submit/) { + $ENV{$key}=~s/\"/\\\"/g; + my $name=$_; + my $key=$name; + $name=~s/^form\.//; + $persistent.=< +END + } + } (keys %ENV); + return $persistent; } 1; __END__