version 1.15, 2008/06/17 13:00:19
|
version 1.16, 2008/07/08 07:17:46
|
Line 1141 sub final_display {
|
Line 1141 sub final_display {
|
sub show_uploaded_data { |
sub show_uploaded_data { |
my ($textref,$header) = @_; |
my ($textref,$header) = @_; |
my $output = '<p><b>'.&mt('Testbank data uploaded to the server').'</b></p><p>'."\n". |
my $output = '<p><b>'.&mt('Testbank data uploaded to the server').'</b></p><p>'."\n". |
'<textarea name="rawdata" cols="70" rows="6" wrap="virtual" align="center">'."\n"; |
'<textarea name="rawdata" cols="70" rows="6" wrap="virtual" align="center" readonly>'."\n"; |
if ($header ne '') { |
if ($header ne '') { |
$output .= $header."\n"; |
$output .= $header."\n"; |
} |
} |