Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100755 107 lines (92 sloc) 3.304 kB
d0374d0 Initial revision
rangi authored
1 #!/usr/bin/perl
84a2192 Updated script to use get_template_and_user
acli authored
2 # NOTE: standard 8-space tabs here
d0374d0 Initial revision
rangi authored
3
4 #script to set up screen for modification of borrower details
5 #written 20/12/99 by chris@katipo.co.nz
6
1e67687 Added copyright statement to all .pl and .pm files
tonnesen authored
7
8 # Copyright 2000-2002 Katipo Communications
9 #
10 # This file is part of Koha.
11 #
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
15 # version.
16 #
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.
20 #
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
24
d0374d0 Initial revision
rangi authored
25 use strict;
84a2192 Updated script to use get_template_and_user
acli authored
26 use C4::Auth;
d0374d0 Initial revision
rangi authored
27 use C4::Output;
28 use CGI;
29 use C4::Search;
84a2192 Updated script to use get_template_and_user
acli authored
30 use C4::Interface::CGI::Output;
5edc7ef fixes for #207, 208, 211
tipaul authored
31 use C4::Koha;
0f24c70 templatified:set templatedirectory in koha.conf to use the templates
dnmeid authored
32 use HTML::Template;
0244cec Fixed barcode / cardnumber error
wolfpac444 authored
33 use C4::Members;
b31ff7e fixes for bug 246 (zipcode), 207 (display of institutional member) an…
tipaul authored
34 use C4::Date;
d0374d0 Initial revision
rangi authored
35
36 my $input = new CGI;
0f24c70 templatified:set templatedirectory in koha.conf to use the templates
dnmeid authored
37
84a2192 Updated script to use get_template_and_user
acli authored
38 my ($template, $loggedinuser, $cookie)
39 = get_template_and_user({template_name => "members/imemberentry.tmpl",
40 query => $input,
41 type => "intranet",
42 authnotrequired => 0,
43 flagsrequired => {borrowers => 1},
44 debug => 1,
45 });
46
0f24c70 templatified:set templatedirectory in koha.conf to use the templates
dnmeid authored
47
d0374d0 Initial revision
rangi authored
48 my $member=$input->param('bornum');
49 if ($member eq ''){
50 $member=NewBorrowerNumber();
51 }
52 my $type=$input->param('type');
53
54 my $data=borrdata('',$member);
55
0244cec Fixed barcode / cardnumber error
wolfpac444 authored
56 my $cardnumber=C4::Members::fixup_cardnumber($data->{'cardnumber'});
57
5edc7ef fixes for #207, 208, 211
tipaul authored
58 my @branches;
59 my @select_branch;
60 my %select_branches;
61 my $branches=getbranches();
62 foreach my $branch (keys %$branches) {
63 push @select_branch, $branch;
64 $select_branches{$branch} = $branches->{$branch}->{'branchname'};
65 }
b31ff7e fixes for bug 246 (zipcode), 207 (display of institutional member) an…
tipaul authored
66 my $CGIbranch=CGI::scrolling_list( -name => 'branchcode',
5edc7ef fixes for #207, 208, 211
tipaul authored
67 -values => \@select_branch,
68 -default => $data->{'branchcode'},
69 -labels => \%select_branches,
70 -size => 1,
71 -multiple => 0 );
72
73 $template->param(member => $member,
b31ff7e fixes for bug 246 (zipcode), 207 (display of institutional member) an…
tipaul authored
74 member => $member,
75 address => $data->{'streetaddress'},
76 firstname => $data->{'firstname'},
77 surname => $data->{'surname'},
78 othernames => $data->{'othernames'},
79 streetaddress => $data->{'streetaddress'},
80 streetcity => $data->{'streetcity'},
81 zipcode => $data->{'zipcode'},
82 homezipcode => $data->{'homezipcode'},
83 city => $data->{'city'},
84 phone => $data->{'phone'},
85 phoneday => $data->{'phoneday'},
86 faxnumber => $data->{'faxnumber'},
87 emailaddress => $data->{'emailaddress'},
88 textmessaging => $data->{'textmessaging'},
89 contactname => $data->{'contactname'},
90 altphone => $data->{'altphone'},
91 altnotes => $data->{'altnotes'},
92 borrowernotes => $data->{'borrowernotes'},
93 "title_".$data->{'title'} => " SELECTED ",
94 dateenrolled => $data->{'dateenrolled'},
95 expiry => $data->{'expiry'},
96 cardnumber => $cardnumber,
97 dateofbirth => $data->{'dateofbirth'},
98 dateformat => display_date_format(),
99 cardnumber_institution => $cardnumber,
0244cec Fixed barcode / cardnumber error
wolfpac444 authored
100 CGIbranch => $CGIbranch);
84a2192 Updated script to use get_template_and_user
acli authored
101
102 output_html_with_http_headers $input, $cookie, $template->output;
d0374d0 Initial revision
rangi authored
103
84a2192 Updated script to use get_template_and_user
acli authored
104 # Local Variables:
105 # tab-width: 8
106 # End:
Something went wrong with that request. Please try again.