[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   => address@hidden,
- #                             -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;
                }