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
22 # with Koha; if not, write to the Free Software Foundation, Inc.,
23 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
26 #use warnings; FIXME - Bug 2505
36 my $quicksearch = $input->param('quicksearch');
37 my $startfrom = $input->param('startfrom')||1;
38 my $resultsperpage = $input->param('resultsperpage')||C4
::Context
->preference("PatronsPerPage")||20;
40 my ($template, $loggedinuser, $cookie)
41 = get_template_and_user
({template_name
=> "members/member.tmpl",
45 flagsrequired
=> {borrowers
=> 1},
48 my $theme = $input->param('theme') || "default";
50 my $patron = $input->Vars;
51 foreach (keys %$patron){
52 delete $$patron{$_} unless($$patron{$_});
55 my @categories=C4
::Category
->all;
56 my $branches=(defined $$patron{branchcode
}?GetBranchesLoop
($$patron{branchcode
}):GetBranchesLoop
());
58 my %categories_dislay;
60 foreach my $category (@categories){
62 category_description
=>$$category{description
},
63 category_type
=>$$category{category_type
}
65 $categories_dislay{$$category{categorycode
}} = $hash;
68 "AddPatronLists_".C4
::Context
->preference("AddPatronLists")=> "1",
70 if (C4
::Context
->preference("AddPatronLists")=~/code/){
71 $categories[0]->{'first'}=1;
74 my $member=$input->param('member');
75 my $orderbyparams=$input->param('orderby');
78 my @orderbyelt=split(/,/,$orderbyparams);
79 push @orderby, {$orderbyelt[0]=>$orderbyelt[1]||0};
82 @orderby = ({surname
=>0},{firstname
=>0});
85 $member =~ s/,//g; #remove any commas from search string
91 push @searchpatron, $member if ($member);
92 push @searchpatron, $patron if (keys %$patron);
93 my $from= ($startfrom-1)*$resultsperpage;
94 my $to=$from+$resultsperpage;
95 #($results)=Search(\@searchpatron,{surname=>1,firstname=>1},[$from,$to],undef,["firstname","surname","email","othernames"] ) if (@searchpatron);
96 my $search_scope=($quicksearch?
"field_start_with":"contain");
97 ($results)=Search
(\
@searchpatron,\
@orderby,undef,undef,["firstname","surname","email","othernames","cardnumber","userid"],$search_scope ) if (@searchpatron);
99 $count =scalar(@
$results);
102 my $to=($count>$to?
$to:$count);
104 foreach my $borrower(@
$results[$from..$to-1]){
106 my ($od,$issue,$fines)=GetMemberIssuesAndFines
($$borrower{'borrowernumber'});
108 $$borrower{'dateexpiry'}= C4
::Dates
->new($$borrower{'dateexpiry'},'iso')->output('syspref');
113 %{$categories_dislay{$$borrower{categorycode
}}},
116 odissue
=> "$od/$issue",
117 fines
=> sprintf("%.2f",$fines),
119 push(@resultsdata, \
%row);
122 if ($$patron{branchcode
}){
123 foreach my $branch (grep{$_->{value
} eq $$patron{branchcode
}}@
$branches){
124 $$branch{selected
}=1;
127 if ($$patron{categorycode
}){
128 foreach my $category (grep{$_->{categorycode
} eq $$patron{categorycode
}}@categories){
129 $$category{selected
}=1;
134 , 'orderby' => $orderbyparams
135 , 'resultsperpage' => $resultsperpage
136 , 'type'=> 'intranet');
141 map { "$_=$parameters{$_}" } (keys %parameters)
144 my @letters = map { {letter
=> $_} } ( 'A' .. 'Z');
145 $template->param( letters
=> \
@letters );
148 paginationbar
=> pagination_bar
(
150 int( $count / $resultsperpage ) + ($count % $resultsperpage ?
1 : 0),
151 $startfrom, 'startfrom'
153 startfrom
=> $startfrom,
154 from
=> ($startfrom-1)*$resultsperpage+1,
156 multipage
=> ($count != $to+1 || $startfrom!=1),
159 branchloop
=>$branches,
160 categories
=>\
@categories,
166 actionname
=>basename
($0),
168 numresults
=> $count,
169 resultsloop
=> \
@resultsdata,
172 output_html_with_http_headers
$input, $cookie, $template->output;