Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 71 lines (58 sloc) 2.362 kb
d0374d0 Initial revision
rangi authored
1 #!/usr/bin/perl
2
3 #script to do a borrower enquiery/brin up borrower details etc
4 #written 20/12/99 by chris@katipo.co.nz
5
1e67687 Added copyright statement to all .pl and .pm files
tonnesen authored
6
7 # Copyright 2000-2002 Katipo Communications
8 #
9 # This file is part of Koha.
10 #
11 # Koha is free software; you can redistribute it and/or modify it under the
12 # terms of the GNU General Public License as published by the Free Software
13 # Foundation; either version 2 of the License, or (at your option) any later
14 # version.
15 #
16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
18 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
19 #
20 # You should have received a copy of the GNU General Public License along with
21 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
22 # Suite 330, Boston, MA 02111-1307 USA
23
d0374d0 Initial revision
rangi authored
24 use strict;
25 use C4::Output;
26 use CGI;
27 use C4::Search;
0f24c70 templatified:set templatedirectory in koha.conf to use the templates
dnmeid authored
28 use HTML::Template;
d0374d0 Initial revision
rangi authored
29
30 my $input = new CGI;
0f24c70 templatified:set templatedirectory in koha.conf to use the templates
dnmeid authored
31
d6f6462 Use the default theme if it wasn't given as a CGI parameter.
arensb authored
32 my $theme = $input->param('theme') || "default";
33 # only used if allowthemeoverride is set
0f24c70 templatified:set templatedirectory in koha.conf to use the templates
dnmeid authored
34 my %tmpldata = pathtotemplate ( template => 'member.tmpl', theme => $theme, language => 'fi' );
d6f6462 Use the default theme if it wasn't given as a CGI parameter.
arensb authored
35 # FIXME - Error-checking
0f24c70 templatified:set templatedirectory in koha.conf to use the templates
dnmeid authored
36 my $template = HTML::Template->new( filename => $tmpldata{'path'},
37 die_on_bad_params => 0,
38 loop_context_vars => 1 );
39
d0374d0 Initial revision
rangi authored
40 my $member=$input->param('member');
41 $member=~ s/\,//g;
42
43 my $env;
44 my ($count,$results)=BornameSearch($env,$member,'web');
0f24c70 templatified:set templatedirectory in koha.conf to use the templates
dnmeid authored
45
46 my @resultsdata;
d0374d0 Initial revision
rangi authored
47 for (my $i=0; $i < $count; $i++){
48 #find out stats
49 my ($od,$issue,$fines)=borrdata2($env,$results->[$i]{'borrowernumber'});
0f24c70 templatified:set templatedirectory in koha.conf to use the templates
dnmeid authored
50
51 my %row = (
52 borrowernumber => $results->[$i]{'borrowernumber'},
53 cardnumber => $results->[$i]{'cardnumber'},
54 surname => $results->[$i]{'surname'},
55 firstname => $results->[$i]{'firstname'},
56 categorycode => $results->[$i]{'categorycode'},
57 streetaddress => $results->[$i]{'streetaddress'},
58 city => $results->[$i]{'city'},
59 odissue => "$od/$issue",
60 fines => $fines,
61 borrowernotes => $results->[$i]{'borrowernotes'});
62 push(@resultsdata, \%row);
d0374d0 Initial revision
rangi authored
63 }
0f24c70 templatified:set templatedirectory in koha.conf to use the templates
dnmeid authored
64
65 $template->param( startmenumember => join ('', startmenu('member')),
66 endmenumember => join ('', endmenu('member')),
67 member => $member,
68 resultsloop => \@resultsdata );
69
70 print "Content-Type: text/html\n\n", $template->output;
Something went wrong with that request. Please try again.