--- loncom/metadata_database/searchcat.pl	2003/10/08 14:15:03	1.42
+++ loncom/metadata_database/searchcat.pl	2003/10/08 19:38:41	1.43
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # searchcat.pl "Search Catalog" batch script
 #
-# $Id: searchcat.pl,v 1.42 2003/10/08 14:15:03 www Exp $
+# $Id: searchcat.pl,v 1.43 2003/10/08 19:38:41 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -154,8 +154,8 @@ sub dynamicmeta {
        my $regexp=$url;
        $regexp=~s/(\W)/\\$1/g;
        $regexp='___'.$regexp.'___([a-z]+)$';
-       while (my ($key,$value)=each %evaldata) {
-	 $key=&unescape($key);
+       while (my ($esckey,$value)=each %evaldata) {
+	 $key=&unescape($esckey);
 	 if ($key=~/$regexp/) {
 	    my $ctype=$1;
             if (defined($cnt{$ctype})) { 
@@ -179,7 +179,7 @@ sub dynamicmeta {
 	       }
 	    }
 	    if ($ctype ne 'count') {
-	       $newevaldata{$_}=$value;
+	       $newevaldata{$esckey}=$value;
 	   }
 	 }
       }