shipping is closer

This commit is contained in:
JT Smith 2008-03-07 17:04:26 +00:00
parent 14ffef86c1
commit a535104d7a
5 changed files with 103 additions and 81 deletions

View file

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