loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.181, 2003/06/17 15:53:56	version 1.182, 2003/06/17 16:01:30
Line 852 sub get_persistent_form_data {	Line 852 sub get_persistent_form_data {
# Loop through the keys, looking for 'form.'	# Loop through the keys, looking for 'form.'
foreach my $name (keys(%persistent_db)) {	foreach my $name (keys(%persistent_db)) {
next if ($name !~ /^form./);	next if ($name !~ /^form./);
	# Kludgification begins!
	if ($name eq 'form.domains' &&
	$ENV{'form.searchmode'} eq 'basic' &&
	$ENV{'form.phase'} ne 'disp_basic') {
	next;
	}
	# End kludge (hopefully)
next if (exists($ENV{$name}));	next if (exists($ENV{$name}));
my @values = map {	my @values = map {
&Apache::lonnet::unescape($_);	&Apache::lonnet::unescape($_);