--- loncom/interface/lonsearchcat.pm 2015/03/12 03:04:45 1.331.4.11 +++ loncom/interface/lonsearchcat.pm 2014/02/23 22:15:27 1.343 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Search Catalog # -# $Id: lonsearchcat.pm,v 1.331.4.11 2015/03/12 03:04:45 raeburn Exp $ +# $Id: lonsearchcat.pm,v 1.343 2014/02/23 22:15:27 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -432,7 +432,7 @@ sub hidden_field { =pod =over 4 - + =item &print_basic_search_form() Prints the form for the basic search. Sorry the name is so cryptic. @@ -3800,7 +3800,7 @@ Cleans the global %groupsearch_db by rem ###################################################################### sub start_fresh_session { delete $groupsearch_db{'mode_catalog'}; - foreach (keys(%groupsearch_db)) { + foreach (keys %groupsearch_db) { if ($_ =~ /^pre_/) { delete $groupsearch_db{$_}; }