<&|/I18N &>MemberSearch.Text&>
% if($sfound) { <& list.comp, users => \@users, page => $page, uri => '/members/search.html' &> % } <%init> my $sa = $App->saved_args; my $missing = $sa->{missing}; my $invalid = $sa->{invalid}; my $values = $sa->{values}; my $sfound = 0; my @users; my $page; if($App->session->{sresult} && scalar @{$App->session->{sresult}}) { $sfound = 1; $page = int($ARGS{page}) || 1; if(!$ARGS{page}) { @users = $App->schema->resultset('Users')->search(id => $App->session->{sresult}, { rows => 20 })->page(1)->all; print scalar @users; $App->session->{page} = 1; } elsif($ARGS{page} != $App->session->{page}) { @users = $App->schema->resultset('Users')->search(id => $App->session->{sresult}, { rows => 20 })->page($page)->all; $App->session->{page} = $page; } else { @users = $App->schema->resultset('Users')->search(id => $App->session->{sresult})->page($page)->all; } } %init> <%once> use HTML::FillInForm; %once> <%filter> my $args = $App->session->{args}; $_ = HTML::FillInForm->new->fill(scalarref => \$_, fdat => $args ); %filter>