Merge branch 'master' of git://git.koha-community.org/koha into MSWin32
[wip/koha-chris_n.git] / patroncards / members-search.pl
1 #!/usr/bin/perl
2
3 # Copyright 2000-2002 Katipo Communications
4 #
5 # This file is part of Koha.
6 #
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
10 # version.
11 #
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20 use strict;
21 use warnings;
22
23 use CGI;
24
25 use C4::Auth;
26 use C4::Output;
27 use C4::Members;
28 use C4::Debug;
29
30 my $cgi = CGI->new;
31
32 my $batch_id = $cgi->param('batch_id') || 0;
33 my $startfrom = $cgi->param('startfrom')||1;
34 my $resultsperpage = $cgi->param('resultsperpage')||C4::Context->preference("PatronsPerPage")||20;
35 my $category = $cgi->param('category') || undef;
36 my $member = $cgi->param('member') || undef;
37 my $orderby = $cgi->param('orderby') || undef;
38
39 my ($template, $loggedinuser, $cookie) = get_template_and_user({
40                 template_name => "patroncards/members-search.tmpl",
41                 query => $cgi,
42                 type => "intranet",
43                 authnotrequired => 0,
44                 flagsrequired => {borrowers => 1},
45                 debug => 1,});
46
47 $orderby = "surname,firstname" unless $orderby;
48 $member =~ s/,//g;   #remove any commas from search string
49 $member =~ s/\*/%/g;
50
51 if ($member || $category) {
52     my ($count,$results) = 0,0;
53
54     if(length($member) == 1)
55     {
56         ($count,$results) = SearchMember($member,$orderby,"simple");
57     }
58     else
59     {
60         ($count,$results) = SearchMember($member,$orderby,"advanced",$category);
61     }
62
63
64     my @resultsdata = ();
65     my $to = ($count>($startfrom * $resultsperpage)?$startfrom * $resultsperpage:$count);
66     for (my $i = ($startfrom-1) * $resultsperpage; $i < $to; $i++){
67         #find out stats
68         my ($od,$issue,$fines) = GetMemberIssuesAndFines($results->[$i]{'borrowernumber'});
69         my %row = (
70             count               => $i + 1,
71             borrowernumber      => $results->[$i]{'borrowernumber'},
72             cardnumber          => $results->[$i]{'cardnumber'},
73             surname             => $results->[$i]{'surname'},
74             firstname           => $results->[$i]{'firstname'},
75             categorycode        => $results->[$i]{'categorycode'},
76             category_type       => $results->[$i]{'category_type'},
77             category_description        => $results->[$i]{'description'},
78             address             => $results->[$i]{'address'},
79             address2            => $results->[$i]{'address2'},
80             city                => $results->[$i]{'city'},
81             zipcode             => $results->[$i]{'zipcode'},
82             country             => $results->[$i]{'country'},
83             branchcode          => $results->[$i]{'branchcode'},
84             overdues            => $od,
85             issues              => $issue,
86             odissue             => "$od/$issue",
87             fines               => ($fines ? sprintf("%.2f",$fines) : ''),
88             borrowernotes       => $results->[$i]{'borrowernotes'},
89             sort1               => $results->[$i]{'sort1'},
90             sort2               => $results->[$i]{'sort2'},
91             dateexpiry          => C4::Dates->new($results->[$i]{'dateexpiry'},'iso')->output('syspref'),
92         );
93         push(@resultsdata, \%row);
94     }
95     my $base_url = '?' . join('&amp;', map { $_->{term} . '=' . $_->{val} } (
96                                             { term => 'member',         val => $member         },
97                                             { term => 'category',       val => $category       },
98                                             { term => 'orderby',        val => $orderby        },
99                                             { term => 'resultsperpage', val => $resultsperpage },
100                                             { term => 'batch_id',       val => $batch_id       },)
101                                         );
102     $template->param(
103         paginationbar   => pagination_bar(
104                                             $base_url,  int( $count / $resultsperpage ) + 1,
105                                             $startfrom, 'startfrom'
106                                          ),
107         startfrom       => $startfrom,
108         from            => ($startfrom-1) * $resultsperpage + 1,
109         to              => $to,
110         multipage       => ($count != $to || $startfrom != 1),
111         searching       => "1",
112         member          => $member,
113         category_type   => $category,
114         numresults      => $count,
115         resultsloop     => \@resultsdata,
116         batch_id        => $batch_id,
117     );
118 }
119 else {
120     $template->param( batch_id => $batch_id);
121 }
122
123 output_html_with_http_headers $cgi, $cookie, $template->output;
124
125 __END__
126
127 #script to do a borrower enquiry/bring up borrower details etc
128 #written 20/12/99 by chris@katipo.co.nz
129
130