version 1.3, 2001/07/26 16:00:24
|
version 1.4, 2001/07/30 22:24:34
|
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>'; |
$prevattempts.='<td>'.$returnhash{$version.':'.$_}.'</td>'; |
} keys %lasthash; |
} sort(keys %lasthash); |
} |
} |
$prevattempts.='</tr><tr><th>Current</th>'; |
$prevattempts.='</tr><tr><th>Current</th>'; |
map { |
map { |
$prevattempts.='<td>'.$lasthash{$_}.'</td>'; |
$prevattempts.='<td>'.$lasthash{$_}.'</td>'; |
} keys %lasthash; |
} sort(keys %lasthash); |
$prevattempts.='</tr></table>'; |
$prevattempts.='</tr></table>'; |
} else { |
} else { |
$prevattempts='Nothing submitted - no attempts.'; |
$prevattempts='Nothing submitted - no attempts.'; |