[Koha-cvs] CVS: koha/reports catalogue_stats.pl,1.9,1.10

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/reports
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28372/reports

Modified Files:
	catalogue_stats.pl 
Log Message:
fixing length on publishernames

Index: catalogue_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/catalogue_stats.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** catalogue_stats.pl	9 Mar 2005 12:31:45 -0000	1.9
--- catalogue_stats.pl	9 Mar 2005 16:14:03 -0000	1.10
***************
*** 174,187 ****
  #	warn "highlightLOC ".$hglghtLOC;
  	
- # 	undef @select;
- # 	push @select,"";
- # 	for (my $i=1950;$i<=2050;$i++) {
- # 		push @select, $i;
- # 	}
- # 	my $CGIpublicationyear=CGI::scrolling_list( -name     => 'Filter',
- # 				-id => 'Filter',
- # 				-values   => \@select,
- # 				-size     => 1,
- # 				-multiple => 0 );
  	
  	$req = $dbh->prepare("select distinctrow itemtype from biblioitems order by itemtype");
--- 174,177 ----
***************
*** 198,202 ****
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare("select distinctrow publishercode from biblioitems order by publishercode");
  	$req->execute;
  	undef @select;
--- 188,192 ----
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare("select distinctrow left(publishercode,75) from biblioitems order by publishercode");
  	$req->execute;
  	undef @select;
***************
*** 532,539 ****
  	if (@$filters[7]){
  		@$filters[7]=~ s/\*/%/g;
  		if ($cond){
! 			$strcalc .= " AND biblioitems.publishercode like '" . @$filters[7] ."'";
  		} else {
! 			$strcalc .= " WHERE biblioitems.publishercode like '" . @$filters[7] ."'";
  			$cond=1;
  		}
--- 522,530 ----
  	if (@$filters[7]){
  		@$filters[7]=~ s/\*/%/g;
+ 		@$filters[7].="%" unless @$filters[7]=~/%/;
  		if ($cond){
! 			$strcalc .= " AND biblioitems.publishercode like \"" . @$filters[7] ."\"";
  		} else {
! 			$strcalc .= " WHERE biblioitems.publishercode like \"" . @$filters[7] ."\"";
  			$cond=1;
  		}