Modifying Members : Add Mod and GetMember

[koha.git] / members / borrowers_details.pl

diff --git a/members/borrowers_details.pl b/members/borrowers_details.pl
index 0aa987a..36a93d2 100755 (executable)
--- a/members/borrowers_details.pl
+++ b/members/borrowers_details.pl
@@ -2,7 +2,6 @@
 # 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
@@ -26,14 +25,13 @@
 # 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;
@@ -55,27 +53,22 @@ my $borrowernumber=$input->param('borrowernumber');
 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: