loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.198, 2003/12/27 23:04:28	version 1.199, 2003/12/28 20:12:59
Line 2530 sub parse_raw_result {	Line 2530 sub parse_raw_result {
# Check for a comma - if it is there then we do not need to unescape the	# 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	# string. There seems to be some kind of problem with some items in
# the database - the entire string gets sent out unescaped...?	# the database - the entire string gets sent out unescaped...?
unless ($result =~ /,/) {	# unless ($result =~ /,/) {
$result = &Apache::lonnet::unescape($result);	# $result = &Apache::lonnet::unescape($result);
}	# }
my @fields=map {
&Apache::lonnet::unescape($_);
} (split(/\,/,$result));
# conclude from self to others regarding fields	# conclude from self to others regarding fields
my @columns=&Apache::lonmysql::col_order('metadata');	my %Fields=&Apache::lonmeta::metadata_col_to_hash(
my %Fields=();	map {
for (my $i=0; $i<=$#columns; $i++) {	&Apache::lonnet::unescape($_);
$Fields{$columns[$i]}=$fields[$i];	} (split(/\,/,$result))
}	);
# prettier display	# prettier display
$Fields{'language'} =	$Fields{'language'} =
&Apache::loncommon::languagedescription($Fields{'language'});	&Apache::loncommon::languagedescription($Fields{'language'});