added vendor management
fixed a few privilege statements in some other code
This commit is contained in:
parent
175b977e4e
commit
6616504077
11 changed files with 610 additions and 19 deletions
|
|
@ -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"})
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue