[Koha-cvs] koha/reports borrowers_stats.pl

[passini]

CVSROOT:	/cvsroot/koha
Module name:	koha
Changes by:	passini <hpassini>	07/06/21 15:43:39

Modified files:
	reports        : borrowers_stats.pl 

Log message:
	add zipcode list and bsort1 list

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/reports/borrowers_stats.pl?cvsroot=koha&r1=1.15&r2=1.16

Patches:
Index: borrowers_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/borrowers_stats.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- borrowers_stats.pl	14 Jun 2007 15:37:50 -0000	1.15
+++ borrowers_stats.pl	21 Jun 2007 15:43:39 -0000	1.16
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: borrowers_stats.pl,v 1.15 2007/06/14 15:37:50 hpassini Exp $
+# $Id: borrowers_stats.pl,v 1.16 2007/06/21 15:43:39 hpassini Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -28,6 +28,7 @@
 use C4::Acquisition;
 use C4::Output;
 use C4::Circulation;
+use C4::Input;
 
 =head1 NAME
 
@@ -132,21 +133,41 @@
             );
     push @branchloop, \%row;
 }
+ 	$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 distinctrow sort1 from borrowers order by sort1");
+	$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 ($value) =$req->fetchrow) {
-		if ($value) {
+ 	while (my ($auth_value,$lib) =$req->fetchrow) {
+ 		if ($auth_value) {
 			$hassort1=1;
-			push @select_sort1, $value;
+ 			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 );
 	
@@ -186,7 +207,9 @@
 				-values   => \@dels,
 				-size     => 1,
 				-multiple => 0 );
+
 	$template->param(		CGICatCode => $CGICatCode,
+					CGIZipCode => $CGIZipCode,
 					CGISort1 => $CGIsort1,
 					hassort1 => $hassort1,
 					CGISort2 => $CGIsort2,