added vendor management

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

View file

@ -247,8 +247,8 @@ The main management screen for shippers.
sub www_manage {
my ($self) = @_;
my $session = $self->session;
return $session->privilege->adminOnly() unless ($session->user->isInGroup("3"));
my $admin = WebGUI::Shop::Admin->new($session);
return $session->privilege->adminOnly() unless ($admin->canManage);
my $i18n = WebGUI::International->new($session, "Shop");
my $output = WebGUI::Form::formHeader($session)
.WebGUI::Form::hidden($session, {name=>"shop", value=>"ship"})