X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=reports%2Fissues_by_borrower_category.plugin;h=806ff7cda0527aa802a17aedadb9632aaf060c72;hb=40e6f6a8f22b8af7adef79a0ece80a61a69ccc50;hp=5b43023c5b636352e6ff0961f364f77c81b31f9e;hpb=6e7a4d3a3da8db196dddb502c09817dd291f3590;p=koha_fer

diff --git a/reports/issues_by_borrower_category.plugin b/reports/issues_by_borrower_category.plugin
index 5b43023c5b..806ff7cda0 100755
--- a/reports/issues_by_borrower_category.plugin
+++ b/reports/issues_by_borrower_category.plugin
@@ -22,7 +22,6 @@ use strict;
 use C4::Auth;
 use CGI;
 use C4::Context;
-use HTML::Template::Pro;
 use C4::Search;
 use C4::Output;
 use C4::Koha;
@@ -63,36 +62,22 @@ the hashes are then translated to hash / arrays to be returned to manager.pl & s
 =cut
 
 sub set_parameters {
-	my ($template) = @_;
-	my $dbh = C4::Context->dbh;
-	my $branches=GetBranches();
-	my @branches;
-	my @select_branch;
-	my %select_branches;
-	push @select_branch,"";
-	$select_branches{""} = "";
-	foreach my $branch (keys %$branches) {
-		push @select_branch, $branch;
-		$select_branches{$branch} = $branches->{$branch}->{'branchname'};
-	}
-	my $CGIbranch=CGI::scrolling_list( -name     => 'value',
-				-id => 'branch',
-				-values   => \@select_branch,
-				-labels   => \%select_branches,
-				-size     => 1,
-				-multiple => 0 );
-	$template->param(CGIbranch => $CGIbranch);
+    my ($template) = @_;
+
+    $template->param( branchloop => GetBranchesLoop() );
   
-  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;
+    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 {
 	my ($parameters) = @_;
 	my @results =();