<%doc> Site tasks <%args> $user => $ui->get_current_user($r) $showheader => 1 $show_tasks => undef $site_select => undef $submit_search => undef $search_site => undef <%init> my $DEBUG = 0; print '%ARGS is
', Dumper(%ARGS), '

' if $DEBUG; my $search = ""; my @results; $show_tasks = $show_tasks || $user->getAttribute("SHOW_TASKS"); if ( $show_tasks eq "" ) { $user->setAttribute($r, "SHOW_TASKS", "show"); $show_tasks = "show"; } *print_showtaskslink = $m->comp('SELF:.sub_print_showtaskslink'); my @sites = Site->retrieve_all(); @sites = sort { $a->name cmp $b->name } @sites; my $hideheader = 'style="display:none"' if ( !$showheader ); my $manager = $ui->get_permission_manager($r);
>
Sites
% print_showtaskslink($show_tasks); % if ( $manager && $manager->can($user, 'access_admin_section', 'site_tasks:new') ){ [new] % }
">
Find


<%perl> ####################################################################################### # Search # ####################################################################################### if ( $site_select ){ $m->comp('/generic/view.html', table=>"Site", id=>$site_select); }elsif ( $submit_search ){ my $r = Netdot::Model->search_all_tables("Site:".$search_site); @results = values %{ $r->{Site} } if ( exists $r->{Site} );
Search for <% $search_site %> returned: <% scalar(@results) %> matches
% unless ( $search_site ){ % @results = Site->retrieve_all(); % } <& /generic/sortresults.mhtml, object =>\@results, withedit=>1&>
%}