add zipcode list and bsort1 list

[koha.git] / members / borrowers_details.pl

diff --git a/members/borrowers_details.pl b/members/borrowers_details.pl
index ed96b93..0aa987a 100644 (file)
--- a/members/borrowers_details.pl
+++ b/members/borrowers_details.pl
@@ -26,16 +26,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::Interface::CGI::Output;
-use CGI;
-use C4::Search;
 use C4::Members;
 use C4::Koha;
-use HTML::Template;
-use Date::Manip;
 use C4::Date;
 use C4::Input;
 use C4::Log;
@@ -60,10 +57,10 @@ my $category_type=$input->param('category_type');
 
  if ( $data{'surname'} eq '') 
        {
-               $data=borrdata('',$borrowernumber);
+               $data=GetMember($borrowernumber,'borrowernumber');
                %data=%$data;
        }
- my ($category_type,$description) = checkcategorytype($data{'categorycode'});  
+ my $borrowercategory = GetBorrowercategory($data{'categorycode'});    
 
 $template->param(              borrowernumber  => $borrowernumber,#register number
                                #transform value  in capital or capital for first letter of the word
@@ -71,12 +68,10 @@ $template->param(           borrowernumber  => $borrowernumber,#register number
                                surname         => uc($data{'surname'}),
                                categorycode    => $data{'categorycode'},
                                title           => $data{'title'},
-                               category_type   => $category_type,
-       # #                     
+                               category_type   => $borrowercategory ->{'category_type'},
                                "title_".$data{'title'}             => " SELECTED ",                    
                                dateofbirth     => format_date($data{'dateofbirth'}),
-                               description     =>$description
-#                              
+                               description     => $borrowercategory->{'description'}
                                );
        $template->param(Institution => 1) if ($category_type eq "I");
        output_html_with_http_headers $input, $cookie, $template->output;