[Koha-cvs] CVS: koha/reports catalogue_stats.pl,1.9,1.10
Henri-Damien LAURENT
hdl at users.sourceforge.net
Wed Mar 9 17:14:06 CET 2005
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;
}
More information about the Koha-cvs
mailing list