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

a ton of $session fixes (thanks to Colin), and a new $session checker, that supposedly, shouldn't be needed now. It can be backed out, however, easily.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-16 22:45:21 +00:00
parent 5fadc70eac
commit 09483e18c5
208 changed files with 505 additions and 533 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lib/WebGUI.pm
View file

@ -218,6 +218,26 @@ sub upgrading {
}
sub dumpSession {
my $session = shift;
if ($session) {
if (ref $session eq 'WebGUI::Session') {
return;
} else {
use Data::Dumper; print '<html><body><pre>$session is '.Dumper($session).' (not a WebGUI::Session!) at ';
}
} else {
print '<html><body><pre>$session is empty at ';
}
my $i = 1;
my $output;
while (my @data = caller($i)) {
print "\t".join(",",@data)."\n";
$i++;
}
print '</pre></body></html>';
exit;
}
1;