oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed typo.

Browse source
This commit is contained in:
JT Smith 2002-12-13 05:18:55 +00:00
parent 24877547a8
commit 9d52dc7576
1 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/ErrorHandler.pm
View file

@ -79,14 +79,24 @@ sub fatalError {
} else { } else {
print '<h3>Session Variables</h3><table bgcolor="#ffffff" style="color: #000000; font-size: 10pt; font-family: helvetica;">'; print '<h3>Session Variables</h3><table bgcolor="#ffffff" style="color: #000000; font-size: 10pt; font-family: helvetica;">';
while (my ($section, $hash) = each %session) { while (my ($section, $hash) = each %session) {
while (my ($key, $value) = each %$hash) { if (ref $hash eq 'HASH') {
if (ref $value eq 'ARRAY') { while (my ($key, $value) = each %$hash) {
$value = '['.join(', ',@$value).']'; if (ref $value eq 'ARRAY') {
} elsif (ref $value eq 'HASH') { $value = '['.join(', ',@$value).']';
$value = '{'.join(', ',map {"$_ => $value->{$_}"} keys %$value).'}'; } elsif (ref $value eq 'HASH') {
} $value = '{'.join(', ',map {"$_ => $value->{$_}"} keys %$value).'}';
print '<tr><td align="right"><b>'.$section.'.'.$key.':</b></td><td>'.$value.'</td>'; }
} unless (lc($key) eq "password" || lc($key) eq "identifier") {
print '<tr><td align="right"><b>'.$section.'.'.$key.':</b></td><td>'.$value.'</td>';
}
}
} elsif (ref $hash eq 'ARRAY') {
my $i = 1;
foreach (@$hash) {
$debug .= '<tr><td align="right"><b>'.$section.'.'.$i.':</b></td><td>'.$_.'</td>';
$i++;
}
}
print '<tr height=10><td>&nbsp;</td><td>&nbsp</td></tr>'; print '<tr height=10><td>&nbsp;</td><td>&nbsp</td></tr>';
} }
print '</table>'; print '</table>';