<&|/I18N &>MemberSearch.Title

<&|/I18N &>MemberSearch.Text

<&|/I18N &>MemberSearch.Filter <& /forms/check_errors.comp, missing => $missing, invalid => $invalid, prelexkey => "MemberSearch" &>
<&|/I18N &>MemberSearch.Filter.Dimensions

<& /forms/radio.comp, name => 'tttei', value => 'E', lexkey => 'MemberSearch.Filter.TTTE' &> <& /forms/radio.comp, name => 'tttei', value => 'I', lexkey => 'MemberSearch.Filter.TTTI' &> <& /forms/radio.comp, name => 'tttsn', value => 'S', lexkey => 'MemberSearch.Filter.TTTS' &> <& /forms/radio.comp, name => 'tttsn', value => 'N', lexkey => 'MemberSearch.Filter.TTTN' &>
<& /forms/radio.comp, name => 'ttttf', value => 'T', lexkey => 'MemberSearch.Filter.TTTT' &> <& /forms/radio.comp, name => 'ttttf', value => 'F', lexkey => 'MemberSearch.Filter.TTTF' &> <& /forms/radio.comp, name => 'tttjp', value => 'J', lexkey => 'MemberSearch.Filter.TTTJ' &> <& /forms/radio.comp, name => 'tttjp', value => 'P', lexkey => 'MemberSearch.Filter.TTTP' &>
<&|/I18N &>MemberSearch.Filter.RCD

<& /forms/checkbox.comp, name => 'rcdstatusnc', value => 'no_contact', lexkey => 'MemberSearch.Filter.RCDNoContact' &> <& /forms/checkbox.comp, name => 'rcdstatusnr', value => 'not_received', lexkey => 'MemberSearch.Filter.RCDNotReceived' &>
<&|/I18N &>MemberSearch.Filter.LifeMotto

<& /forms/textinput.comp, name => "lifemotto", lexkey => 'MemberSearch.Filter.LifeMotto2' &>

% 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; } } <%once> use HTML::FillInForm; <%filter> my $args = $App->session->{args}; $_ = HTML::FillInForm->new->fill(scalarref => \$_, fdat => $args );