version 1.22, 2007/02/12 23:58:42
|
version 1.23, 2007/02/13 01:44:02
|
Line 316 sub output_results {
|
Line 316 sub output_results {
|
$title = $nav_res->compTitle(); |
$title = $nav_res->compTitle(); |
$src = $nav_res->src(); |
$src = $nav_res->src(); |
} else { |
} else { |
if ($src =~ m|^/res|) { |
$src = $symb; |
$title = $src; |
if ($src !~ m{/adm}) { |
} elsif ($values =~ /^\s*$/ && |
$title = &Apache::lonnet::gettitle($src); |
(! defined($src) || $src =~ /^\s*$/)) { |
} elsif ($values =~ /^\s*$/ && |
|
(! defined($src) || $src =~ /^\s*$/)) { |
next; |
next; |
} elsif ($values =~ /^\s*$/) { |
} elsif ($values =~ /^\s*$/) { |
$values = $src; |
$values = $src; |
Line 397 sub display_values {
|
Line 398 sub display_values {
|
} |
} |
$result.='</table>'; |
$result.='</table>'; |
} elsif ($action eq 'POST') { |
} elsif ($action eq 'POST') { |
my %values= |
my %values; |
map {split('=',&unescape($_),-1)} split(/\&/,$values); |
foreach my $pair (split(/\&/,$values)) { |
|
my ($key,$value) = split('=',&unescape($pair),-1); |
|
$values{$key} = $value; |
|
} |
foreach my $key (sort(keys(%values))) { |
foreach my $key (sort(keys(%values))) { |
if ($key eq 'counter') { next; } |
if ($key eq 'counter') { next; } |
$result.='<tr><td align="right">'.$key.'</td>'. |
$result.='<tr><td align="right">'.$key.'</td>'. |