# NOTE: This file uses standard 8-space tabs
# DO NOT SET TAB SIZE TO 4
-# $Id$
#script to set up screen for modification of borrower details
#written 20/12/99 by chris@katipo.co.nz
# Suite 330, Boston, MA 02111-1307 USA
use strict;
-use Date::Manip;
use CGI;
use C4::Auth;
use C4::Context;
use C4::Output;
use C4::Members;
use C4::Koha;
-use C4::Date;
+use C4::Dates qw(format_date);
use C4::Input;
use C4::Log;
my $input = new CGI;
my $description=$input->param('description');
my $category_type=$input->param('category_type');
- if ( $data{'surname'} eq '')
- {
- $data=GetMember($borrowernumber,'borrowernumber');
- %data=%$data;
- }
- my $borrowercategory = GetBorrowercategory($data{'categorycode'});
+$data=GetMember('borrowernumber' => $borrowernumber);
$template->param( borrowernumber => $borrowernumber,#register number
#transform value in capital or capital for first letter of the word
- firstname => ucfirst($data{'firstname'}),
- surname => uc($data{'surname'}),
- categorycode => $data{'categorycode'},
- title => $data{'title'},
- category_type => $borrowercategory ->{'category_type'},
- "title_".$data{'title'} => " SELECTED ",
- dateofbirth => format_date($data{'dateofbirth'}),
- description => $borrowercategory->{'description'}
- );
- $template->param(Institution => 1) if ($category_type eq "I");
- output_html_with_http_headers $input, $cookie, $template->output;
+ firstname => ucfirst($data->{'firstname'}),
+ surname => uc($data->{'surname'}),
+ categorycode => $data->{'categorycode'},
+ title => $data->{'title'},
+ category_type => $data->{'category_type'},
+ "title_".$data->{'title'} => " SELECTED ",
+ dateofbirth => format_date($data->{'dateofbirth'}),
+ description => $data->{'description'}
+ );
+$template->param(Institution => 1) if ($category_type eq "I");
+output_html_with_http_headers $input, $cookie, $template->output;
# Local Variables:
# tab-width: 8
-# End:
\ No newline at end of file
+# End: