%doc>
Site tasks
%doc>
<%args>
$user => $ui->get_current_user($r)
$showheader => 1
$show_tasks => undef
$site_select => undef
$submit_search => undef
$search_name => undef
$search_number => undef
%args>
<%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);
%init>
<%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;
%perl>
% if ( $search ){
Search for <% $search %> returned: <% scalar(@results) %> matches
% if ( @results ){
<& /generic/sortresults.mhtml, object =>\@results, withedit=>1&>
% }
% }else{
% }
%}