%doc> -- VLAN tasks -- %doc> % <%attr> title => 'VLAN Tasks' %attr> % % %####################################################################### %# %# Args section %# %####################################################################### <%args> $search => undef $search_vlan => undef $search_vlangroup => undef $search_type => undef $user => $ui->get_current_user($r); $submit => undef $show_tasks => undef $showheader => 1 $view => 'search' %args> % % % %####################################################################### %# %# INIT section %# %####################################################################### % <%init> my $DEBUG = 0; print '%ARGS is
', Dumper(%ARGS), '
% if ( $view eq 'search' ){ % }elsif ( $view eq 'new-vlan' ){ % unless ( $manager && $manager->can($user, 'access_admin_section', 'vlan_tasks:new-vlan') ){ % $m->comp('/generic/error.mhtml', error=>"You do not have permission to do this"); % } <& '/generic/edit.html', table=>'Vlan' &> % }elsif ( $view eq 'new-group' ){ % unless ( $manager && $manager->can($user, 'access_admin_section', 'vlan_tasks:new-group') ){ % $m->comp('/generic/error.mhtml', error=>"You do not have permission to do this"); % } % } |