granular permissions - update CGI script for permissions editor

[koha_fer] / members / borrowers_details.pl

diff --git a/members/borrowers_details.pl b/members/borrowers_details.pl
old mode 100644 (file)
new mode 100755 (executable)
index a33bb2c..2f150ad
--- 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,16 +25,13 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use CGI;
 use C4::Auth;
 use C4::Context;
 use C4::Output;
-use C4::Interface::CGI::Output;
-use CGI;
 use C4::Members;
 use C4::Koha;
-
-use Date::Manip;
-use C4::Date;
+use C4::Dates qw(format_date);
 use C4::Input;
 use C4::Log;
 my $input = new CGI;
@@ -59,10 +55,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) = getcategorytype($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
@@ -70,16 +66,14 @@ $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;
 
 # Local Variables:
 # tab-width: 8
-# End:
\ No newline at end of file
+# End: