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
9 # Copyright 2010 BibLibre
11 # This file is part of Koha.
13 # Koha is free software; you can redistribute it and/or modify it under the
14 # terms of the GNU General Public License as published by the Free Software
15 # Foundation; either version 2 of the License, or (at your option) any later
18 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
19 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
20 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
22 # You should have received a copy of the GNU General Public License along
23 # with Koha; if not, write to the Free Software Foundation, Inc.,
24 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
27 #use warnings; FIXME - Bug 2505
37 my $quicksearch = $input->param('quicksearch');
38 my $startfrom = $input->param('startfrom')||1;
39 my $resultsperpage = $input->param('resultsperpage')||C4
::Context
->preference("PatronsPerPage")||20;
41 my ($template, $loggedinuser, $cookie)
42 = get_template_and_user
({template_name
=> "members/member.tmpl",
46 flagsrequired
=> {borrowers
=> 1},
49 my $theme = $input->param('theme') || "default";
51 my $patron = $input->Vars;
52 foreach (keys %$patron){
53 delete $$patron{$_} unless($$patron{$_});
55 my @categories=C4
::Category
->all;
57 my $branches = GetBranches
;
60 foreach (sort { $branches->{$a}->{branchname
} cmp $branches->{$b}->{branchname
} } keys %$branches) {
62 $selected = 1 if $branches->{$_}->{branchcode
} eq $$patron{branchcode
};
63 my %row = ( value
=> $_,
64 selected
=> $selected,
65 branchname
=> $branches->{$_}->{branchname
},
67 push @branchloop, \
%row;
70 my %categories_dislay;
72 foreach my $category (@categories){
74 category_description
=>$$category{description
},
75 category_type
=>$$category{category_type
}
77 $categories_dislay{$$category{categorycode
}} = $hash;
79 my $AddPatronLists = C4
::Context
->preference("AddPatronLists") || '';
81 "AddPatronLists_$AddPatronLists" => "1",
83 if ($AddPatronLists=~/code/){
84 $categories[0]->{'first'}=1;
87 my $member=$input->param('member');
88 my $orderbyparams=$input->param('orderby');
91 my @orderbyelt=split(/,/,$orderbyparams);
92 push @orderby, {$orderbyelt[0]=>$orderbyelt[1]||0};
95 @orderby = ({surname
=>0},{firstname
=>0});
98 my $searchfields = $input->param('searchfields');
99 my @searchfields = $searchfields ?
split( ',', $searchfields ) : ( "firstname", "surname", "othernames", "cardnumber", "userid", "email" );
101 $member =~ s/,//g; #remove any commas from search string
104 my $from = ( $startfrom - 1 ) * $resultsperpage;
105 my $to = $from + $resultsperpage;
107 my ($count,$results);
108 if ($member || keys %$patron) {
109 #($results)=Search($member || $patron,{surname=>1,firstname=>1},[$from,$to],undef,["firstname","surname","email","othernames"] );
110 my $search_scope = ( $quicksearch ?
"field_start_with" : "start_with" );
111 ($results) = Search
( $member || $patron, \
@orderby, undef, undef, \
@searchfields, $search_scope );
115 for my $field ('categorycode','branchcode'){
116 next unless ($patron->{$field});
117 @
$results = grep { $_->{$field} eq $patron->{$field} } @
$results;
119 $count = scalar(@
$results);
123 print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=" . @
$results[0]->{borrowernumber
});
128 $to=($count>$to?
$to:$count);
130 foreach my $borrower(@
$results[$from..$to-1]){
132 my ($od,$issue,$fines)=GetMemberIssuesAndFines
($$borrower{'borrowernumber'});
134 $$borrower{'dateexpiry'}= C4
::Dates
->new($$borrower{'dateexpiry'},'iso')->output('syspref');
139 %{$categories_dislay{$$borrower{categorycode
}}},
142 odissue
=> "$od/$issue",
143 fines
=> sprintf("%.2f",$fines),
145 push(@resultsdata, \
%row);
148 if ($$patron{categorycode
}){
149 foreach my $category (grep{$_->{categorycode
} eq $$patron{categorycode
}}@categories){
150 $$category{selected
}=1;
155 , 'orderby' => $orderbyparams
156 , 'resultsperpage' => $resultsperpage
157 , 'type'=> 'intranet');
162 map { "$_=$parameters{$_}" } (keys %parameters)
165 my @letters = map { {letter
=> $_} } ( 'A' .. 'Z');
168 letters
=> \
@letters,
169 paginationbar
=> pagination_bar
(
171 int( $count / $resultsperpage ) + ($count % $resultsperpage ?
1 : 0),
172 $startfrom, 'startfrom'
174 startfrom
=> $startfrom,
175 from
=> ($startfrom-1)*$resultsperpage+1,
177 multipage
=> ($count != $to || $startfrom!=1),
178 advsearch
=> ($$patron{categorycode
} || $$patron{branchcode
}),
179 branchloop
=>\
@branchloop,
180 categories
=>\
@categories,
182 actionname
=>basename
($0),
184 numresults
=> $count,
185 resultsloop
=> \
@resultsdata,
188 output_html_with_http_headers
$input, $cookie, $template->output;