[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
tipaul at users.sourceforge.net
Thu Apr 7 14:18:46 CEST 2005
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 => \@select,
! -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 => \@select,
! -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 => \@select,
! -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 => \@select,
! # -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 => \@select,
! # -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 => \@select,
! # -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 => \@select,
! -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 => \@select,
! # -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);
More information about the Koha-cvs
mailing list