[Koha-cvs] CVS: koha/reports acquisitions_stats.pl,1.4.2.1,1.4.2.2 borrowers_stats.pl,1.7.2.1,1.7.2.2 borrowers_stats.plugin,1.1.2.1,1.1.2.2 catalogue_stats.pl,1.10.2.2,1.10.2.3 issues_by_borrower_category.plugin,1.2.2.1,1.2.2.2 issues_stats.pl,1.7.2.1,1.7.2.2

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_2
        acquisitions_stats.pl borrowers_stats.pl 
        borrowers_stats.plugin catalogue_stats.pl 
        issues_by_borrower_category.plugin issues_stats.pl 
Log Message:
The stat module (last version before official 2.2.2)




Index: catalogue_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/catalogue_stats.pl,v
retrieving revision 1.10.2.2
retrieving revision 1.10.2.3
diff -C2 -r1.10.2.2 -r1.10.2.3
*** catalogue_stats.pl  6 Apr 2005 21:54:21 -0000       1.10.2.2
--- catalogue_stats.pl  7 Apr 2005 12:18:43 -0000       1.10.2.3
***************
*** 107,161 ****
        my $count=0;
        my $req;
!       $req = $dbh->prepare("select distinctrow left(dewey,3) from biblioitems 
order by dewey");
        $req->execute;
        my $hasdewey;
        my @select;
!       push @select,"";
        while (my ($value) =$req->fetchrow) {
!               $hasdewey =1 if (($value) and (! $hasdewey));
!               $count++ if (($value) and (! $hasdewey));
!               push @select, $value;
!       }
!       my $CGIdewey=CGI::scrolling_list( -name     => 'Filter',
!                               -id => 'dewey',
!                               -values   => address@hidden,
!                               -size     => 1,
!                               -multiple => 0 );
        
!       $req = $dbh->prepare( "select distinctrow left(lccn,3) from biblioitems 
order by lccn");
        $req->execute;
!       undef @select;
!       push @select,"";
        my $haslccn;
        my $hlghtlccn;
        while (my ($value) =$req->fetchrow) {
                $hlghtlccn = !($hasdewey);
!               $haslccn =1 if (($value) and (! $haslccn));
                $count++ if (($value) and (! $haslccn));
!               push @select, $value;
        }
!       my $CGIlccn=CGI::scrolling_list( -name     => 'Filter',
!                               -id => 'lccn',
!                               -values   => address@hidden,
!                               -size     => 1,
!                               -multiple => 0 );
        
!       $req = $dbh->prepare("select distinctrow left(itemcallnumber,5) from 
items order by itemcallnumber");
        $req->execute;
!       undef @select;
!       push @select,"";
        my $hascote;
        my $hlghtcote;
        while (my ($value) =$req->fetchrow) {
!               $hascote =1 if (($value) and (! $hascote));
                $count++ if (($value) and (! $hascote));
                $hlghtcote = (($hasdewey) and ($haslccn)) or (!($hasdewey) and 
!($haslccn));
!               push @select, $value;
        }
!       my $CGIcote=CGI::scrolling_list( -name     => 'Filter',
!                               -id => 'cote',
!                               -values   => address@hidden,
!                               -size     => 1,
!                               -multiple => 0 );
        $count++;
        my $hglghtDT =$count % 2;
--- 107,161 ----
        my $count=0;
        my $req;
!       $req = $dbh->prepare("select count(dewey) from biblioitems ");
        $req->execute;
        my $hasdewey;
        my @select;
! #     push @select,"";
        while (my ($value) =$req->fetchrow) {
!               $hasdewey =1 if (($value>2) and (! $hasdewey));
!               $count++ if (($value>2) and (! $hasdewey));
! #             push @select, $value;
!       }
! #     my $CGIdewey=CGI::scrolling_list( -name     => 'Filter',
! #                             -id => 'Filter',
! #                             -values   => address@hidden,
! #                             -size     => 1,
! #                             -multiple => 0 );
        
!       $req = $dbh->prepare( "select count(lccn) from biblioitems ");
        $req->execute;
! #     undef @select;
! #     push @select,"";
        my $haslccn;
        my $hlghtlccn;
        while (my ($value) =$req->fetchrow) {
                $hlghtlccn = !($hasdewey);
!               $haslccn =1 if (($value>2) and (! $haslccn));
                $count++ if (($value) and (! $haslccn));
! #             push @select, $value;
        }
! #     my $CGIlccn=CGI::scrolling_list( -name     => 'Filter',
! #                             -id => 'Filter',
! #                             -values   => address@hidden,
! #                             -size     => 1,
! #                             -multiple => 0 );
        
!       $req = $dbh->prepare("select count(itemcallnumber) from items");
        $req->execute;
! #     undef @select;
! #     push @select,"";
        my $hascote;
        my $hlghtcote;
        while (my ($value) =$req->fetchrow) {
!               $hascote =1 if (($value>2) and (! $hascote));
                $count++ if (($value) and (! $hascote));
                $hlghtcote = (($hasdewey) and ($haslccn)) or (!($hasdewey) and 
!($haslccn));
! #             push @select, $value;
        }
! #     my $CGIcote=CGI::scrolling_list( -name     => 'Filter',
! #                             -id => 'Filter',
! #                             -values   => address@hidden,
! #                             -size     => 1,
! #                             -multiple => 0 );
        $count++;
        my $hglghtDT =$count % 2;
***************
*** 188,203 ****
                                -multiple => 0 );
        
!       $req = $dbh->prepare("select distinctrow left(publishercode,75) from 
biblioitems order by publishercode");
!       $req->execute;
!       undef @select;
!       push @select,"";
!       while (my ($value) =$req->fetchrow) {
!               push @select, $value;
!       }
!       my $CGIpublisher=CGI::scrolling_list( -name     => 'Filter',
!                               -id => 'publisher',
!                               -values   => address@hidden,
!                               -size     => 1,
!                               -multiple => 0 );
  
        undef @select;
--- 188,203 ----
                                -multiple => 0 );
        
! #     $req = $dbh->prepare("select distinctrow left(publishercode,75) from 
biblioitems order by publishercode");
! #     $req->execute;
! #     undef @select;
! #     push @select,"";
! #     while (my ($value) =$req->fetchrow) {
! #             push @select, $value;
! #     }
! #     my $CGIpublisher=CGI::scrolling_list( -name     => 'Filter',
! #                             -id => 'Filter',
! #                             -values   => address@hidden,
! #                             -size     => 1,
! #                             -multiple => 0 );
  
        undef @select;
***************
*** 248,257 ****
        
        $template->param(hasdewey=>$hasdewey,
!                                       CGIFromDeweyClass => $CGIdewey,
!                                       CGIToDeweyClass => $CGIdewey,
                                        haslccn=> $haslccn,
                                        hlghtlccn => $hlghtlccn,
!                                       CGIFromLoCClass => $CGIlccn,
!                                       CGIToLoCClass => $CGIlccn,
                                        hascote=> $hascote,
                                        hlghtcote => $hlghtcote,
--- 248,257 ----
        
        $template->param(hasdewey=>$hasdewey,
! #                                     CGIFromDeweyClass => $CGIdewey,
! #                                     CGIToDeweyClass => $CGIdewey,
                                        haslccn=> $haslccn,
                                        hlghtlccn => $hlghtlccn,
! #                                     CGIFromLoCClass => $CGIlccn,
! #                                     CGIToLoCClass => $CGIlccn,
                                        hascote=> $hascote,
                                        hlghtcote => $hlghtcote,
***************
*** 261,270 ****
                                        hglghtHB => $hglghtHB,
                                        hglghtLOC => $hglghtLOC,
!                                       CGIFromCoteClass => $CGIcote,
!                                       CGIToCoteClass => $CGIcote,
                                        CGIItemType => $CGIitemtype,
  #                                     CGIFromPublicationYear => 
$CGIpublicationyear,
  #                                     CGIToPublicationYear => 
$CGIpublicationyear,
!                                       CGIPublisher => $CGIpublisher,
                                        CGIBranch => $CGIbranch,
                                        CGILocation => $CGIlocation,
--- 261,270 ----
                                        hglghtHB => $hglghtHB,
                                        hglghtLOC => $hglghtLOC,
! #                                     CGIFromCoteClass => $CGIcote,
! #                                     CGIToCoteClass => $CGIcote,
                                        CGIItemType => $CGIitemtype,
  #                                     CGIFromPublicationYear => 
$CGIpublicationyear,
  #                                     CGIToPublicationYear => 
$CGIpublicationyear,
! #                                     CGIPublisher => $CGIpublisher,
                                        CGIBranch => $CGIbranch,
                                        CGILocation => $CGIlocation,


Index: issues_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/issues_stats.pl,v
retrieving revision 1.7.2.1
retrieving revision 1.7.2.2
diff -C2 -r1.7.2.1 -r1.7.2.2
*** issues_stats.pl     18 Mar 2005 10:00:54 -0000      1.7.2.1
--- issues_stats.pl     7 Apr 2005 12:18:43 -0000       1.7.2.2
***************
*** 275,279 ****
        push @loopfilter,{crit=>"Display by ",filter=>$dsp} if ($dsp);
        push @loopfilter,{crit=>"Select Day ",filter=>$daysel} if ($daysel);
!       push @loopfilter,{crit=>"Select Month ",filter=>$daysel} if ($monthsel);
        
        
--- 275,279 ----
        push @loopfilter,{crit=>"Display by ",filter=>$dsp} if ($dsp);
        push @loopfilter,{crit=>"Select Day ",filter=>$daysel} if ($daysel);
!       push @loopfilter,{crit=>"Select Month ",filter=>$monthsel} if 
($monthsel);