--- loncom/interface/lonsearchcat.pm	2014/02/23 22:16:20	1.331.4.10
+++ loncom/interface/lonsearchcat.pm	2014/12/14 22:11:03	1.344
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.331.4.10 2014/02/23 22:16:20 raeburn Exp $
+# $Id: lonsearchcat.pm,v 1.344 2014/12/14 22:11:03 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{$_};
         }