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

more bugfixes. last of this round of syntaxCheck.t fixes.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-15 19:39:12 +00:00
parent 9b867ab627
commit f8de599f35
11 changed files with 40 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Auth.pm
View file

@ -619,6 +619,13 @@ sub new {
my $self = {};
my $class = shift;
$self->{_session} = shift;
my $output;
my $i = 1;
while (my @data = caller($i)) {
$output .= "\t".join(",",@data)."\n";
$i++;
}
print $output."\n\n";
$self->{authMethod} = shift;
my $userId = shift || $self->{_session}->user->userId;
$self->{user} = $self->{_session}->user;