4 #script to do a borrower enquiry/bring up borrower details etc
5 #written 20/12/99 by chris@katipo.co.nz
8 # Copyright 2000-2002 Katipo Communications
10 # This file is part of Koha.
12 # Koha is free software; you can redistribute it and/or modify it under the
13 # terms of the GNU General Public License as published by the Free Software
14 # Foundation; either version 2 of the License, or (at your option) any later
17 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
18 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
19 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
21 # You should have received a copy of the GNU General Public License along with
22 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
23 # Suite 330, Boston, MA 02111-1307 USA
35 my $quicksearch = $input->param('quicksearch');
36 my $startfrom = $input->param('startfrom')||1;
37 my $resultsperpage = $input->param('resultsperpage')||C4
::Context
->preference("PatronsPerPage")||20;
39 my ($template, $loggedinuser, $cookie);
41 ($template, $loggedinuser, $cookie)
42 = get_template_and_user
({template_name
=> "members/member-quicksearch-results.tmpl",
46 flagsrequired
=> {borrowers
=> 1},
49 ($template, $loggedinuser, $cookie)
50 = get_template_and_user
({template_name
=> "members/member.tmpl",
54 flagsrequired
=> {borrowers
=> 1},
57 my $theme = $input->param('theme') || "default";
59 my $patron = $input->Vars;
60 foreach (keys %$patron){
61 delete $$patron{$_} unless($$patron{$_});
64 my @categories=C4
::Category
->all;
65 my $branches=(defined $$patron{branchcode
}?GetBranchesLoop
($$patron{branchcode
}):GetBranchesLoop
());
67 my %categories_dislay;
69 foreach my $category (@categories){
71 category_description
=>$$category{description
},
72 category_type
=>$$category{category_type
}
74 $categories_dislay{$$category{categorycode
}} = $hash;
77 "AddPatronLists_".C4
::Context
->preference("AddPatronLists")=> "1",
79 if (C4
::Context
->preference("AddPatronLists")=~/code/){
80 $categories[0]->{'first'}=1;
83 my $member=$input->param('member');
84 my $orderby=$input->param('orderby');
85 $orderby = "surname,firstname" unless $orderby;
86 $member =~ s/,//g; #remove any commas from search string
91 $$patron{firstname
}.="\%" if ($$patron{firstname
});
92 $$patron{surname
}.="\%" if ($$patron{surname
});
95 push @searchpatron, $member if ($member);
96 push @searchpatron, $patron if (keys %$patron);
97 my $from= ($startfrom-1)*$resultsperpage;
98 my $to=$from+$resultsperpage;
99 #($results)=Search(\@searchpatron,{surname=>1,firstname=>1},[$from,$to],undef,["firstname","surname","email","othernames"] ) if (@searchpatron);
100 ($results)=Search
(\
@searchpatron,{surname
=>1,firstname
=>1},undef,undef,["firstname","surname","email","othernames","cardnumber","userid"],"start_with" ) if (@searchpatron);
102 $count =scalar(@
$results);
105 my $to=($count>$to?
$to:$count);
107 foreach my $borrower(@
$results[$from..$to-1]){
109 my ($od,$issue,$fines)=GetMemberIssuesAndFines
($$borrower{'borrowernumber'});
111 $$borrower{'dateexpiry'}= C4
::Dates
->new($$borrower{'dateexpiry'},'iso')->output('syspref');
116 %{$categories_dislay{$$borrower{categorycode
}}},
119 odissue
=> "$od/$issue",
120 fines
=> sprintf("%.2f",$fines),
122 push(@resultsdata, \
%row);
125 if ($$patron{branchcode
}){
126 foreach my $branch (grep{$_->{value
} eq $$patron{branchcode
}}@
$branches){
127 $$branch{selected
}=1;
130 if ($$patron{categorycode
}){
131 foreach my $category (grep{$_->{categorycode
} eq $$patron{categorycode
}}@categories){
132 $$category{selected
}=1;
137 , 'orderby' => $orderby
138 , 'resultsperpage' => $resultsperpage
139 , 'type'=> 'intranet');
144 map { "$_=$parameters{$_}" } (keys %parameters)
148 paginationbar
=> pagination_bar
(
149 $base_url, int( $count / $resultsperpage ) + 1,
150 $startfrom, 'startfrom'
152 startfrom
=> $startfrom,
153 from
=> ($startfrom-1)*$resultsperpage+1,
155 multipage
=> ($count != $to+1 || $startfrom!=1),
158 branchloop
=>$branches,
159 categoryloop
=>\
@categories,
165 actionname
=>basename
($0),
167 numresults
=> $count,
168 resultsloop
=> \
@resultsdata,
171 output_html_with_http_headers
$input, $cookie, $template->output;