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.

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

View file

@ -57,7 +57,7 @@ URL of the template to use to display the random thread. Must be a valid URL wit
=cut
sub process {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($startURL, $relatives, $templateURL) = @_;
# Seed the randomizer:
srand;
@ -129,7 +129,7 @@ Reference to an array with lineage of Collaboration Systems to select a random t
=cut
sub _getRandomThread {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $lineage = shift;
# Get random CS: