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

Test cleanup after merge to 7.10.2

Browse source
This commit is contained in:
Colin Kuskie 2010-10-27 18:42:43 -07:00
parent a067cbbe70
commit a6a10d976a
6 changed files with 26 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Shop/Credit.pm
View file

@ -9,7 +9,6 @@ has [ qw/session userId/ ] => (
required => 1,
);
use WebGUI::Shop::Admin;
use WebGUI::Exception::Shop;
use WebGUI::International;
@ -43,8 +42,11 @@ around BUILDARGS => sub {
##Original arguments start here.
my $protoSession = $_[0];
if (blessed $protoSession && $protoSession->isa('WebGUI::Session')) {
return $className->$orig(session => $protoSession, userId => $_[1], );
warn "got a session\n";
my $userId = $_[1] ? $_[1] : $protoSession->user->userId;
return $className->$orig(session => $protoSession, userId => $userId, );
}
warn "no session\n";
return $className->$orig(@_);
};