loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.3 and 1.5

version 1.3, 2001/07/26 16:00:24	version 1.5, 2001/09/13 19:59:33
Line 23 sub get_previous_attempt {	Line 23 sub get_previous_attempt {
for ($version=1;$version<=$returnhash{'version'};$version++) {	for ($version=1;$version<=$returnhash{'version'};$version++) {
map {	map {
$lasthash{$_}=$returnhash{$version.':'.$_};	$lasthash{$_}=$returnhash{$version.':'.$_};
} split(/\:/,$returnhash{$version.':keys'});	} sort(split(/\:/,$returnhash{$version.':keys'}));
}	}
$prevattempts='<table border=2></tr><th>History</th>';	$prevattempts='<table border=2></tr><th>History</th>';
map {	map {
$prevattempts.='<th>'.$_.'</th>';	$prevattempts.='<th>'.$_.'</th>';
} keys %lasthash;	} sort(keys %lasthash);
for ($version=1;$version<=$returnhash{'version'};$version++) {	for ($version=1;$version<=$returnhash{'version'};$version++) {
$prevattempts.='</tr><tr><th>Attempt '.$version.'</th>';	$prevattempts.='</tr><tr><th>Attempt '.$version.'</th>';
map {	map {
$prevattempts.='<td>'.$returnhash{$version.':'.$_}.'</td>';	my $value;
} keys %lasthash;	if ($_ =~ /timestamp/) {
	$value=scalar(localtime($returnhash{$version.':'.$_}));
	} else {
	$value=$returnhash{$version.':'.$_};
	}
	$prevattempts.='<td>'.$value.'</td>';
	} sort(keys %lasthash);
}	}
$prevattempts.='</tr><tr><th>Current</th>';	$prevattempts.='</tr><tr><th>Current</th>';
map {	map {
$prevattempts.='<td>'.$lasthash{$_}.'</td>';	my $value;
} keys %lasthash;	if ($_ =~ /timestamp/) {
	$value=scalar(localtime($lasthash{$_}));
	} else {
	$value=$lasthash{$_};
	}
	$prevattempts.='<td>'.$value.'</td>';
	} sort(keys %lasthash);
$prevattempts.='</tr></table>';	$prevattempts.='</tr></table>';
} else {	} else {
$prevattempts='Nothing submitted - no attempts.';	$prevattempts='Nothing submitted - no attempts.';

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.3
changed lines
	Added in v.1.5