Adding Finerules script.

[koha-ffzg.git] / admin / categorie.pl

diff --git a/admin/categorie.pl b/admin/categorie.pl
index 3fb9115..2d066f8 100755 (executable)
--- a/admin/categorie.pl
+++ b/admin/categorie.pl
@@ -40,8 +40,7 @@ use strict;
 use CGI;
 use C4::Context;
 use C4::Output;
-use C4::Search;
-use HTML::Template;
+
 use C4::Auth;
 use C4::Interface::CGI::Output;
 
@@ -73,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
                             query => $input,
                             type => "intranet",
                             authnotrequired => 0,
-                            flagsrequired => {parameters => 1, management => 1},
+                            flagsrequired => {parameters => 1},
                             debug => 1,
                             });
 
@@ -102,10 +101,10 @@ if ($op eq 'add_form') {
                                enrolmentperiod         => $data->{'enrolmentperiod'},
                                upperagelimit           => $data->{'upperagelimit'},
                                dateofbirthrequired     => $data->{'dateofbirthrequired'},
-                               enrolmentfee            => $data->{'enrolmentfee'},
+                               enrolmentfee            => sprintf("%.2f",$data->{'enrolmentfee'}),
                                overduenoticerequired   => $data->{'overduenoticerequired'},
                                issuelimit              => $data->{'issuelimit'},
-                               reservefee              => $data->{'reservefee'},
+                               reservefee              => sprintf("%.2f",$data->{'reservefee'}),
                                category_type           => $data->{'category_type'},
                                "type_".$data->{'category_type'} => " SELECTED ",
                                );
@@ -146,11 +145,11 @@ if ($op eq 'add_form') {
                                 enrolmentperiod         => $data->{'enrolmentperiod'},
                                 upperagelimit           => $data->{'upperagelimit'},
                                 dateofbirthrequired     => $data->{'dateofbirthrequired'},
-                                enrolmentfee            => $data->{'enrolmentfee'},
+                                enrolmentfee            =>  sprintf("%.2f",$data->{'enrolmentfee'}),
                                 overduenoticerequired   => $data->{'overduenoticerequired'},
                                 issuelimit              => $data->{'issuelimit'},
-                                reservefee              => $data->{'reservefee'},
-                                category_type           => $data->{'category_type'}
+                                reservefee              =>  sprintf("%.2f",$data->{'reservefee'}),
+                                category_type           => $data->{'category_type'},
                                 );
                                                                                                        # END $OP eq DELETE_CONFIRM
 ################## DELETE_CONFIRMED ##################################
@@ -178,12 +177,14 @@ if ($op eq 'add_form') {
                                enrolmentperiod => $results->[$i]{'enrolmentperiod'},
                                upperagelimit => $results->[$i]{'upperagelimit'},
                                dateofbirthrequired => $results->[$i]{'dateofbirthrequired'},
-                               enrolmentfee => $results->[$i]{'enrolmentfee'},
+                               enrolmentfee => sprintf("%.2f",$results->[$i]{'enrolmentfee'}),
                                overduenoticerequired => $results->[$i]{'overduenoticerequired'},
                                issuelimit => $results->[$i]{'issuelimit'},
-                               reservefee => $results->[$i]{'reservefee'},
+                               reservefee => sprintf("%.2f",$results->[$i]{'reservefee'}),
                                category_type => $results->[$i]{'category_type'},
-                               toggle => $toggle );    
+                               "type_".$results->[$i]{'category_type'} => 1,
+                               toggle => $toggle );
+                               warn "ICI".     $results->[$i]{'category_type'};
                push @loop, \%row;
                if ( $toggle eq 0 )
                {
@@ -211,6 +212,9 @@ if ($op eq 'add_form') {
 } #---- END $OP eq DEFAULT
 
 
-
+$template->param(intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
+               intranetstylesheet => C4::Context->preference("intranetstylesheet"),
+               IntranetNav => C4::Context->preference("IntranetNav"),
+               );
 output_html_with_http_headers $input, $cookie, $template->output;