loncom/interface/lontrackstudent.pm - diff

Return to lontrackstudent.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>'.