From bf893faf00ed92f79f9d2adad7353479ee4261ac Mon Sep 17 00:00:00 2001
From: hpassini <hpassini>
Date: Thu, 21 Jun 2007 15:43:39 +0000
Subject: [PATCH] add zipcode list and bsort1 list

---
 reports/borrowers_stats.pl | 57 ++++++++++++++++++++++++++------------
 1 file changed, 40 insertions(+), 17 deletions(-)

diff --git a/reports/borrowers_stats.pl b/reports/borrowers_stats.pl
index ce7782a091..a759805dde 100755
--- a/reports/borrowers_stats.pl
+++ b/reports/borrowers_stats.pl
@@ -28,6 +28,7 @@ use C4::Koha;
 use C4::Acquisition;
 use C4::Output;
 use C4::Circulation;
+use C4::Input;
 
 =head1 NAME
 
@@ -132,23 +133,43 @@ foreach my $thisbranch (keys %$branches) {
             );
     push @branchloop, \%row;
 }
-	
-	$req = $dbh->prepare( "select distinctrow sort1 from borrowers order by sort1");
-	$req->execute;
-	my @select_sort1;
-	push @select_sort1,"";
-	my $hassort1;
-	while (my ($value) =$req->fetchrow) {
-		if ($value) {
-			$hassort1=1;
-			push @select_sort1, $value;
-		}
-	}
-	my $CGIsort1=CGI::scrolling_list( -name     => 'Filter',
-				-id => 'Filter',
-				-values   => \@select_sort1,
-				-size     => 1,
-				-multiple => 0 );
+ 	$req = $dbh->prepare( "select distinctrow zipcode from borrowers order by zipcode");
+ 	$req->execute;
+ 	my @select_zipcode;
+ 	push @select_zipcode,"";
+ 	while (my ($value) =$req->fetchrow) {
+ 		if ($value) {
+ 			push @select_zipcode, $value;
+ 		}
+ 	}
+# 
+ 	my $CGIZipCode=CGI::scrolling_list( -name     => 'Filter',
+ 				-id => 'Filter',
+ 				-values   => \@select_zipcode,
+ 				-size     => 1,
+ 				-multiple => 0 );
+
+	$req = $dbh->prepare( "SELECT authorised_value,lib FROM authorised_values WHERE category='Bsort1' order by lib");
+ 	$req->execute;
+ 	my @select_sort1;
+	my %select_sort1;
+ 	push @select_sort1,"";
+	$select_sort1{""}="";
+ 	my $hassort1;
+ 	while (my ($auth_value,$lib) =$req->fetchrow) {
+ 		if ($auth_value) {
+ 			$hassort1=1;
+ 			push @select_sort1, $auth_value;
+			$select_sort1{$auth_value}=$lib
+ 		}
+ 	}
+# 
+ 	my $CGIsort1=CGI::scrolling_list( -name     => 'Filter',
+ 				-id => 'Filter',
+ 				-values   => \@select_sort1,
+				-labels	=>\%select_sort1,
+ 				-size     => 1,
+ 				-multiple => 0 );
 	
 	$req = $dbh->prepare( "select distinctrow sort2 from borrowers order by sort2");
 	$req->execute;
@@ -186,7 +207,9 @@ foreach my $thisbranch (keys %$branches) {
 				-values   => \@dels,
 				-size     => 1,
 				-multiple => 0 );
+
 	$template->param(		CGICatCode => $CGICatCode,
+					CGIZipCode => $CGIZipCode,
 					CGISort1 => $CGIsort1,
 					hassort1 => $hassort1,
 					CGISort2 => $CGIsort2,
-- 
2.39.5