Adding Finerules script.

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

diff --git a/admin/categorie.pl b/admin/categorie.pl
index b33dcc0..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,
                             });
 
@@ -150,7 +149,7 @@ if ($op eq 'add_form') {
                                 overduenoticerequired   => $data->{'overduenoticerequired'},
                                 issuelimit              => $data->{'issuelimit'},
                                 reservefee              =>  sprintf("%.2f",$data->{'reservefee'}),
-                                category_type           => $data->{'category_type'}
+                                category_type           => $data->{'category_type'},
                                 );
                                                                                                        # END $OP eq DELETE_CONFIRM
 ################## DELETE_CONFIRMED ##################################
@@ -183,7 +182,9 @@ if ($op eq 'add_form') {
                                issuelimit => $results->[$i]{'issuelimit'},
                                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 )
                {