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

beginnings of shipping mangement interface

Browse source
This commit is contained in:
JT Smith 2008-03-07 03:50:40 +00:00
parent e32bdb6217
commit 9284f8744f
3 changed files with 49 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -128,9 +128,8 @@ sub www_pay {
my $session = shift;
my $output = undef;
my $method = "www_".$session->form->get("method");
my $pay = WebGUI::Shop::Pay->create($session);
if ($method ne "www_" && $pay->can($method)) {
$output = $pay->$method();
if ($method ne "www_" && WebGUI::Shop::Pay->can($method)) {
$output = WebGUI::Shop::Pay->$method($session);
}
return $output;
}
@ -147,9 +146,8 @@ sub www_ship {
my $session = shift;
my $output = undef;
my $method = "www_".$session->form->get("method");
my $ship = WebGUI::Shop::Ship->create($session);
if ($method ne "www_" && $ship->can($method)) {
$output = $ship->$method();
if ($method ne "www_" && WebGUI::Shop::Ship->can($method)) {
$output = WebGUI::Shop::Ship->$method($session);
}
return $output;
}