--- loncom/interface/lonsearchcat.pm 2003/06/17 15:53:56 1.181 +++ loncom/interface/lonsearchcat.pm 2003/06/17 16:01:30 1.182 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Search Catalog # -# $Id: lonsearchcat.pm,v 1.181 2003/06/17 15:53:56 matthew Exp $ +# $Id: lonsearchcat.pm,v 1.182 2003/06/17 16:01:30 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -852,6 +852,13 @@ sub get_persistent_form_data { # Loop through the keys, looking for 'form.' foreach my $name (keys(%persistent_db)) { 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})); my @values = map { &Apache::lonnet::unescape($_);