<%doc> Site tasks <%args> $user => $ui->get_current_user($r) $showheader => 1 $show_tasks => undef $site_select => undef $submit_search => undef $search_name => undef $search_number => 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 %sargs; if ( $search_name ){ $search_name =~ s/^\s*(.*)\s*$/$1/g; # Remove trailing and leading spaces $sargs{name} = $search_name; } if ( $search_number ){ $search_number =~ s/^\s*(.*)\s*$/$1/g; $sargs{number} = $search_number; } @results = Site->search_like(%sargs) if %sargs; $search = join ' ', %sargs if %sargs; % if ( $search ){
Search for <% $search %> returned: <% scalar(@results) %> matches
% if ( @results ){ <& /generic/sortresults.mhtml, object =>\@results, withedit=>1&> % }
% }else{
Error!

No search criteria

% } %}