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 1d8e086..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;
@@ -71,15 +67,13 @@ $template->param(           borrowernumber  => $borrowernumber,#register number
                                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;
 
 # Local Variables:
 # tab-width: 8
-# End:
\ No newline at end of file
+# End: