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'}); |