2 # NOTE: This file uses standard 8-space tabs
3 # DO NOT SET TAB SIZE TO 4
7 #script to set up screen for modification of borrower details
8 #written 20/12/99 by chris@katipo.co.nz
11 # Copyright 2000-2002 Katipo Communications
13 # This file is part of Koha.
15 # Koha is free software; you can redistribute it and/or modify it under the
16 # terms of the GNU General Public License as published by the Free Software
17 # Foundation; either version 2 of the License, or (at your option) any later
20 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
21 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
22 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
24 # You should have received a copy of the GNU General Public License along with
25 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
26 # Suite 330, Boston, MA 02111-1307 USA
32 use C4::Interface::CGI::Output;
43 my ($template, $loggedinuser, $cookie)
44 = get_template_and_user({template_name => "members/memberentry.tmpl",
48 flagsrequired => {borrowers => 1},
52 my $member=$input->param('bornum');
54 # $member=NewBorrowerNumber();
56 my $type=$input->param('type') || '';
57 my $modify=$input->param('modify');
58 my $delete=$input->param('delete');
60 print $input->redirect("/cgi-bin/koha/deletemem.pl?member=$member");
61 } else { # this else goes down the whole script
63 $template->param( header => 'Update Member Details'); # bad templating style
65 $template->param( header => 'Add New Member');
68 my $data=borrdata('',$member);
70 $template->param( updtype => 'I');
72 $template->param( updtype => 'M');
74 my $cardnumber=C4::Members::fixup_cardnumber($data->{'cardnumber'});
75 if ($data->{'sex'} eq 'F'){
76 $template->param(female => 1);
78 my ($categories,$labels)=ethnicitycategories();
79 my $ethnicitycategoriescount=$#{$categories};
81 if ($ethnicitycategoriescount>=0) {
82 $ethcatpopup = CGI::popup_menu(-name=>'ethnicity',
85 -default=>$data->{'ethnicity'},
87 $template->param(ethcatpopup => $ethcatpopup); # bad style, has to be fixed
90 ($categories,$labels)=borrowercategories();
91 my $catcodepopup = CGI::popup_menu(-name=>'categorycode',
92 -id => 'categorycode',
94 -default=>$data->{'categorycode'},
97 my @relationships = ('workplace', 'relative','friend', 'neighbour');
99 while (@relationships) {
100 my $relship = shift @relationships;
101 my %row = ('relationship' => $relship);
102 if ($data->{'altrelationship'} eq $relship) {
103 $row{'selected'}=' selected';
107 push(@relshipdata, \%row);
110 # %flags: keys=$data-keys, datas=[formname, HTML-explanation]
111 my %flags = ('gonenoaddress' => ['gna', 'Gone no address'],
112 'lost' => ['lost', 'Lost'],
113 'debarred' => ['debarred', 'Debarred']);
116 foreach (keys(%flags)) {
118 my %row = ('key' => $key,
119 'name' => $flags{$key}[0],
120 'html' => $flags{$key}[1]);
122 $row{'yes'}=' checked';
126 $row{'no'}=' checked';
128 push(@flagdata, \%row);
132 $template->param( modify => 1 );
135 #Convert dateofbirth to correct format
136 $data->{'dateofbirth'} = format_date($data->{'dateofbirth'});
141 my $branches=getbranches();
142 foreach my $branch (keys %$branches) {
143 push @select_branch, $branch;
144 $select_branches{$branch} = $branches->{$branch}->{'branchname'};
146 my $CGIbranch=CGI::scrolling_list( -name => 'branchcode',
148 -values => \@select_branch,
149 -default => $data->{'branchcode'},
150 -labels => \%select_branches,
154 $template->param( type => $type,
156 address => $data->{'streetaddress'},
157 firstname => $data->{'firstname'},
158 surname => $data->{'surname'},
159 othernames => $data->{'othernames'},
160 initials => $data->{'initials'},
161 ethcatpopup => $ethcatpopup,
162 catcodepopup => $catcodepopup,
163 streetaddress => $data->{'physstreet'},
164 zipcode => $data->{'zipcode'},
165 streetcity => $data->{'streetcity'},
166 homezipcode => $data->{'homezipcode'},
167 city => $data->{'city'},
168 phone => $data->{'phone'},
169 phoneday => $data->{'phoneday'},
170 faxnumber => $data->{'faxnumber'},
171 emailaddress => $data->{'emailaddress'},
172 textmessaging => $data->{'textmessaging'},
173 contactname => $data->{'contactname'},
174 altphone => $data->{'altphone'},
175 altnotes => $data->{'altnotes'},
176 borrowernotes => $data->{'borrowernotes'},
177 flagloop => \@flagdata,
178 relshiploop => \@relshipdata,
179 "title_".$data->{'title'} => " SELECTED ",
180 dateenrolled => $data->{'dateenrolled'},
181 expiry => $data->{'expiry'},
182 cardnumber => $cardnumber,
183 dateofbirth => $data->{'dateofbirth'},
184 dateformat => display_date_format(),
186 CGIbranch => $CGIbranch);
187 output_html_with_http_headers $input, $cookie, $template->output;