2 # NOTE: standard 8-space tabs here
4 #script to set up screen for modification of borrower details
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 with
22 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
23 # Suite 330, Boston, MA 02111-1307 USA
30 use C4::Interface::CGI::Output;
38 my ($template, $loggedinuser, $cookie)
39 = get_template_and_user({template_name => "members/imemberentry.tmpl",
43 flagsrequired => {borrowers => 1},
48 my $member=$input->param('bornum');
50 $member=NewBorrowerNumber();
52 my $type=$input->param('type');
54 my $data=borrdata('',$member);
56 my $cardnumber=C4::Members::fixup_cardnumber($data->{'cardnumber'});
61 my $branches=getbranches();
62 foreach my $branch (keys %$branches) {
63 push @select_branch, $branch;
64 $select_branches{$branch} = $branches->{$branch}->{'branchname'};
66 my $CGIbranch=CGI::scrolling_list( -name => 'branchcode',
68 -values => \@select_branch,
69 -default => $data->{'branchcode'},
70 -labels => \%select_branches,
74 $template->param(member => $member,
76 address => $data->{'streetaddress'},
77 firstname => $data->{'firstname'},
78 surname => $data->{'surname'},
79 othernames => $data->{'othernames'},
80 streetaddress => $data->{'streetaddress'},
81 streetcity => $data->{'streetcity'},
82 zipcode => $data->{'zipcode'},
83 homezipcode => $data->{'homezipcode'},
84 city => $data->{'city'},
85 phone => $data->{'phone'},
86 phoneday => $data->{'phoneday'},
87 faxnumber => $data->{'faxnumber'},
88 emailaddress => $data->{'emailaddress'},
89 textmessaging => $data->{'textmessaging'},
90 contactname => $data->{'contactname'},
91 altphone => $data->{'altphone'},
92 altnotes => $data->{'altnotes'},
93 borrowernotes => $data->{'borrowernotes'},
94 "title_".$data->{'title'} => " SELECTED ",
95 dateenrolled => $data->{'dateenrolled'},
96 expiry => $data->{'expiry'},
97 cardnumber => $cardnumber,
98 dateofbirth => $data->{'dateofbirth'},
99 dateformat => display_date_format(),
100 cardnumber_institution => $cardnumber,
101 CGIbranch => $CGIbranch);
103 output_html_with_http_headers $input, $cookie, $template->output;