my $member=$input->param('member');
+my $orderby=$input->param('orderby');
+$orderby = "surname,firstname" unless $orderby;
$member =~ s/,//g; #remove any commas from search string
-
+$member =~ s/\*/%/g;
my $env;
my ($count,$results);
if(length($member) == 1)
{
- ($count,$results)=BornameSearch($env,$member,"simple");
+ ($count,$results)=BornameSearch($env,$member,$orderby,"simple");
}
else
{
- ($count,$results)=BornameSearch($env,$member,"advanced");
+ ($count,$results)=BornameSearch($env,$member,$orderby,"advanced");
}
my %row = (
background => $background,
+ count => $i + 1,
borrowernumber => $results->[$i]{'borrowernumber'},
cardnumber => $results->[$i]{'cardnumber'},
surname => $results->[$i]{'surname'},
$template->param(
member => $member,
+ numresults => $count,
resultsloop => \@resultsdata );
output_html_with_http_headers $input, $cookie, $template->output;