--- loncom/interface/lonsearchcat.pm 2001/03/22 13:22:36 1.65 +++ loncom/interface/lonsearchcat.pm 2001/03/22 13:26:59 1.66 @@ -1008,11 +1008,12 @@ RESULTS sub make_persistent { my $persistent=''; + map { if (/^form\./ && !/submit/) { - $ENV{$key}=~s/\"/\\\"/g; my $name=$_; my $key=$name; + $ENV{$key}=~s/\"/\\\"/g; $name=~s/^form\.//; $persistent.=<