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

added a very basic in shop credit manager screen

Browse source
This commit is contained in:
JT Smith 2008-05-20 22:14:55 +00:00
parent 75c44c110f
commit b7840e7ed9
5 changed files with 93 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lib/WebGUI/Content/Shop.pm
View file

@ -19,6 +19,7 @@ use WebGUI::AdminConsole;
use WebGUI::Exception::Shop;
use WebGUI::Shop::AddressBook;
use WebGUI::Shop::Cart;
use WebGUI::Shop::Credit;
use WebGUI::Shop::Pay;
use WebGUI::Shop::Ship;
use WebGUI::Shop::Tax;
@ -142,6 +143,28 @@ sub www_cart {
return $output;
}
#-------------------------------------------------------------------
=head2 www_credit ()
Hand off to the credit system.
=cut
sub www_credit {
my $session = shift;
my $output = undef;
my $method = "www_".$session->form->get("method");
if ($method ne "www_" && WebGUI::Shop::Credit->can($method)) {
$output = WebGUI::Shop::Credit->$method($session);
}
else {
WebGUI::Error::MethodNotFound->throw(error=>"Couldn't call non-existant method $method", method=>$method);
}
return $output;
}
#-------------------------------------------------------------------
=head2 www_pay ()