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',
67 -values => \@select_branch,
68 -default => $data->{'branchcode'},
69 -labels => \%select_branches,
73 $template->param(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,
100 CGIbranch => $CGIbranch);
102 output_html_with_http_headers $input, $cookie, $template->output;