version 1.81, 2001/03/27 12:49:18
|
version 1.82, 2001/03/27 13:25:41
|
Line 689 sub output_results {
|
Line 689 sub output_results {
|
} |
} |
my $customdata=''; |
my $customdata=''; |
foreach my $result (@results) { |
foreach my $result (@results) { |
$result=~/(\&custom.*)$/; # grab all custom metadata |
if ($result=~/^(custom\=.*)$/) { # grab all custom metadata |
$customdata=$1; |
$customdata.=$result; |
$result=~s/\&custom.*$//; # remove custom metadata |
} |
} |
} |
foreach my $result (@results) { |
foreach my $result (@results) { |
|
next if $result=~/^custom\=/; |
|
chomp $result; |
my @fields=map |
my @fields=map |
{&Apache::lonnet::unescape($_)} |
{&Apache::lonnet::unescape($_)} |
(split(/\,/,$result)); |
(split(/\,/,$result)); |