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

Remove debug output.

Browse source
This commit is contained in:
Colin Kuskie 2010-10-27 19:43:40 -07:00
parent 250967c898
commit 1bed8706d6
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -5,8 +5,8 @@ use Moose;
use Scalar::Util qw/blessed/;
has [ qw/session userId/ ] => (
is => 'ro',
required => 1,
is => 'ro',
);
use WebGUI::Shop::Admin;
@ -42,11 +42,9 @@ around BUILDARGS => sub {
##Original arguments start here.
my $protoSession = $_[0];
if (blessed $protoSession && $protoSession->isa('WebGUI::Session')) {
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(@_);
};