use C4::Members;
use C4::Branch;
use C4::Category;
+use File::Basename;
my $input = new CGI;
my $quicksearch = $input->param('quicksearch');
}
my $theme = $input->param('theme') || "default";
+my $patron = $input->Vars;
+foreach (keys %$patron){
+ delete $$patron{$_} unless($$patron{$_});
+}
+
my @categories=C4::Category->all;
-my $branches=GetBranchesLoop();
+my $branches=(defined $$patron{branchcode}?GetBranchesLoop($$patron{branchcode}):GetBranchesLoop());
my %categories_dislay;
my ($count,$results);
-my $patron = $input->Vars;
-foreach (keys %$patron){
- delete $$patron{$_} unless($$patron{$_});
-}
-if (C4::Context->preference("IndependantBranches")){
- if (C4::Context->userenv && C4::Context->userenv->{flags} % 2 !=1 && C4::Context->userenv->{'branch'}){
- $$patron{branchcode}=C4::Context->userenv->{'branch'} unless (C4::Context->userenv->{'branch'} eq "insecure");
- }
-}
$$patron{firstname}.="\%" if ($$patron{firstname});
+$$patron{surname}.="\%" if ($$patron{surname});
my @searchpatron;
push @searchpatron, $member if ($member);
my $from= ($startfrom-1)*$resultsperpage;
my $to=$from+$resultsperpage;
#($results)=Search(\@searchpatron,{surname=>1,firstname=>1},[$from,$to],undef,["firstname","surname","email","othernames"] ) if (@searchpatron);
- ($results)=Search(\@searchpatron,{surname=>1,firstname=>1},undef,undef,["firstname","surname","email","othernames"] ) if (@searchpatron);
+ ($results)=Search(\@searchpatron,{surname=>1,firstname=>1},undef,undef,["firstname","surname","email","othernames","cardnumber"],"start_with" ) if (@searchpatron);
if ($results){
$count =scalar(@$results);
}
$template->param(
searching => "1",
+ actionname =>basename($0),
%$patron,
numresults => $count,
resultsloop => \@resultsdata,