1110 : Balance carts and lists, follow-up : Added Opac lists features to admin lists

[koha.git] / reports / issues_by_borrower_category.plugin

diff --git a/reports/issues_by_borrower_category.plugin b/reports/issues_by_borrower_category.plugin
old mode 100644 (file)
new mode 100755 (executable)
index 80cd0a3..8fea89c
--- a/reports/issues_by_borrower_category.plugin
+++ b/reports/issues_by_borrower_category.plugin
@@ -1,6 +1,5 @@
 #!/usr/bin/perl
 
-# $Id$
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -23,10 +22,13 @@ use strict;
 use C4::Auth;
 use CGI;
 use C4::Context;
-use HTML::Template;
+use HTML::Template::Pro;
 use C4::Search;
 use C4::Output;
 use C4::Koha;
+use C4::Members;
+
+use C4::Branch; # GetBranches
 
 =head1 NAME
 
@@ -63,7 +65,7 @@ the hashes are then translated to hash / arrays to be returned to manager.pl & s
 sub set_parameters {
        my ($template) = @_;
        my $dbh = C4::Context->dbh;
-       my $branches=getbranches();
+       my $branches=GetBranches();
        my @branches;
        my @select_branch;
        my %select_branches;
@@ -74,12 +76,21 @@ sub set_parameters {
                $select_branches{$branch} = $branches->{$branch}->{'branchname'};
        }
        my $CGIbranch=CGI::scrolling_list( -name     => 'value',
-                               -id => 'value',
+                               -id => 'branch',
                                -values   => \@select_branch,
                                -labels   => \%select_branches,
                                -size     => 1,
                                -multiple => 0 );
        $template->param(CGIbranch => $CGIbranch);
+  
+  my ($codes,$labels)=GetborCatFromCatType(undef,undef);
+  my @borcatloop;
+  foreach my $thisborcat (sort keys %$labels) {
+            push @borcatloop, {value => $thisborcat,
+                               description => $labels->{$thisborcat},
+                            };
+  }
+  $template->param(loopcategories => \@borcatloop);
        return $template;
 }
 sub calculate {
@@ -228,4 +239,4 @@ sub calculate {
        return \@mainloop;
 }
 
-1;
\ No newline at end of file
+1;