--- loncom/interface/lonsearchcat.pm	2003/12/27 23:04:28	1.198
+++ loncom/interface/lonsearchcat.pm	2003/12/28 20:12:59	1.199
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.198 2003/12/27 23:04:28 www Exp $
+# $Id: lonsearchcat.pm,v 1.199 2003/12/28 20:12:59 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2530,18 +2530,15 @@ sub parse_raw_result {
     # Check for a comma - if it is there then we do not need to unescape the
     # string.  There seems to be some kind of problem with some items in
     # the database - the entire string gets sent out unescaped...?
-    unless ($result =~ /,/) {
-        $result = &Apache::lonnet::unescape($result);
-    }
-    my @fields=map {
-        &Apache::lonnet::unescape($_);
-    } (split(/\,/,$result));
+#    unless ($result =~ /,/) {
+#        $result = &Apache::lonnet::unescape($result);
+#    }
 # conclude from self to others regarding fields
-    my @columns=&Apache::lonmysql::col_order('metadata');
-    my %Fields=();
-    for (my $i=0; $i<=$#columns; $i++) {
-	$Fields{$columns[$i]}=$fields[$i];
-    }
+    my %Fields=&Apache::lonmeta::metadata_col_to_hash(
+						map {
+						 &Apache::lonnet::unescape($_);
+						} (split(/\,/,$result))
+						      );
 # prettier display
     $Fields{'language'} = 
         &Apache::loncommon::languagedescription($Fields{'language'});