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

added vendor management

Browse source 
fixed a few privilege statements in some other code
This commit is contained in:
JT Smith 2008-04-29 21:25:15 +00:00
parent 175b977e4e
commit 6616504077
11 changed files with 610 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -22,6 +22,7 @@ use WebGUI::Shop::Pay;
use WebGUI::Shop::Ship;
use WebGUI::Shop::Tax;
use WebGUI::Shop::Transaction;
use WebGUI::Shop::Vendor;
=head1 NAME
@ -81,8 +82,8 @@ sub www_address {
my $output = undef;
my $method = "www_". ( $session->form->get("method") || "view");
my $cart = WebGUI::Shop::AddressBook->newBySession($session);
if ($cart->can($method)) {
$output = $cart->$method();
if (my $sub = $cart->can($method)) {
$output = $sub->();
}
return $output;
}
@ -200,6 +201,24 @@ sub www_transaction {
return $output;
}
#-------------------------------------------------------------------
=head2 www_vendor ()
Hand off to the vendor system.
=cut
sub www_vendor {
my $session = shift;
my $output = undef;
my $method = "www_".$session->form->get("method");
if ($method ne "www_" && WebGUI::Shop::Vendor->can($method)) {
$output = WebGUI::Shop::Vendor->$method($session);
}
return $output;
}
1;