Fix for bug 1552, fix ordering of issued items

[koha_gimpoz] / admin / itemtypecategory.pl

diff --git a/admin/itemtypecategory.pl b/admin/itemtypecategory.pl
old mode 100644 (file)
new mode 100755 (executable)
index 3b1f6cc..6f8b41e
--- a/admin/itemtypecategory.pl
+++ b/admin/itemtypecategory.pl
@@ -42,14 +42,12 @@
 use strict;
 use CGI;
 use C4::Context;
-use C4::Output;
-use C4::Search;
 use C4::Auth;
-use C4::Interface::CGI::Output;
-use HTML::Template;
+use C4::Output;
+
 
 sub StringSearch  {
-       my ($env,$searchstring,$type)=@_;
+       my ($searchstring,$type)=@_;
        my $dbh = C4::Context->dbh;
        $searchstring=~ s/\'/\\\'/g;
        my @data=split(' ',$searchstring);
@@ -74,11 +72,11 @@ my $pagesize=20;
 my $op = $input->param('op');
 $searchfield=~ s/\,//g;
 my ($template, $borrowernumber, $cookie)
-    = get_template_and_user({template_name => "parameters/itemtypecategory.tmpl",
+    = get_template_and_user({template_name => "admin/itemtypecategory.tmpl",
                             query => $input,
                             type => "intranet",
                             authnotrequired => 0,
-                            flagsrequired => {parameters => 1, management => 1},
+                            flagsrequired => {parameters => 1},
                             debug => 1,
                             });
 
@@ -165,8 +163,7 @@ if ($op eq 'add_form') {
                                                                                                        # END $OP eq DELETE_CONFIRMED
 ################## DEFAULT ##################################
 } else { # DEFAULT
-       my $env;
-       my ($count,$results)=StringSearch($env,$searchfield,'web');
+       my ($count,$results)=StringSearch($searchfield,'web');
        my $toggle=0;
        my @loop_data;
        for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){