# Suite 330, Boston, MA 02111-1307 USA
use strict;
+# use warnings; # FIXME
use C4::Auth;
use CGI;
use C4::Context;
use C4::Branch; # GetBranches
use C4::Output;
use C4::Koha;
+use C4::Reports;
use C4::Circulation;
=head1 NAME
my $output = $input->param("output");
my $basename = $input->param("basename");
my $mime = $input->param("MIME");
-my $del = $input->param("sep");
+our $sep = $input->param("sep");
+$sep = "\t" if ($sep eq 'tabulation');
+my $item_itype;
+if(C4::Context->preference('item-level_itypes')) {
+ $item_itype = "items\.itype"
+} else {
+ $item_itype = "itemtype";
+}
my ($template, $borrowernumber, $cookie)
= get_template_and_user({template_name => $fullreportname,
-name=>"$basename.csv" );
my $cols = @$results[0]->{loopcol};
my $lines = @$results[0]->{looprow};
- my $sep = C4::Context->preference("delimiter");
print @$results[0]->{line} ."/". @$results[0]->{column} .$sep;
foreach my $col ( @$cols ) {
print $col->{coltitle}.$sep;
# $req = $dbh->prepare("select count(dewey) from biblioitems ");
# $req->execute;
my $hasdewey = 0;
-# push @select,"";
-# while (my ($value) =$req->fetchrow) {
-# if (($value>2) and (! $hasdewey)) {
-# $hasdewey =1;
-# $count++;
-# }
-# push @select, $value;
-# }
-# my $CGIdewey=CGI::scrolling_list( -name => 'Filter',
-# -id => 'Filter',
-# -values => \@select,
-# -size => 1,
-# -multiple => 0 );
# (rch) biblioitems.lccn is mapped to lccn MARC21 010$a in default framework.
# This is not the LC Classification. It's the Control Number.
# No need to test for data here. If you don't have itemcallnumbers, you probably know it.
# FIXME: Hardcoding to 5 chars on itemcallnum.
#
- my $hascote = 1;
- my $highcote = 5;
+ my $hascote = 1;
+ my $highcote = 5;
-# $req = $dbh->prepare("select count(itemcallnumber) from items");
-# $req->execute;
-# 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 );
-# my $hglghtDT = ++$count % 2;
-# my $hglghtPub = ++$count % 2;
-# my $hglghtPY = ++$count % 2;
-# my $hglghtHB = ++$count % 2;
-# my $hglghtLOC = ++$count % 2;
-# warn "highlightDT " .$hglghtDT;
-# warn "highlightPub " .$hglghtPub;
-# warn "highlightPY " .$hglghtPY;
-# warn "highlightHB " .$hglghtHB;
-# warn "highlightLOC " .$hglghtLOC;
-
-
$req = $dbh->prepare("select itemtype, description from itemtypes order by description");
$req->execute;
my $CGIitemtype = $req->fetchall_arrayref({});
my $authvals = GetKohaAuthorisedValues("items.ccode");
my @authvals;
- foreach (keys %$authvals) {
+ foreach (sort {$authvals->{$a} cmp $authvals->{$b} || $a cmp $b} keys %$authvals) {
push @authvals, { code => $_, description => $authvals->{$_} };
}
-# $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 );
-
- my $branches=GetBranches();
- my @branchloop;
- foreach (keys %$branches) {
- my $thisbranch = ''; # FIXME: populate $thisbranch to preselect one
- my %row = (branchcode => $_,
- selected => ($thisbranch eq $_ ? 1 : 0),
- branchname => $branches->{$_}->{'branchname'},
- );
- push @branchloop, \%row;
- }
-
- $req = $dbh->prepare("select distinctrow location from items order by location");
- $req->execute;
- my $locationloop = $req->fetchall_arrayref({});
my $locations = GetKohaAuthorisedValues("items.location");
my @locations;
foreach (sort keys %$locations) {
}
my @mime = ( map { +{type =>$_} } (split /[;:]/,C4::Context->preference("MIME")) );
- my @delim = ( map { +{delim=>$_} } (split //,C4::Context->preference("delimiter")) );
$template->param(hasdewey=>$hasdewey,
-# CGIFromDeweyClass => $CGIdewey,
-# CGIToDeweyClass => $CGIdewey,
haslccn => $haslccn,
-# hlghtlccn => $hlghtlccn,
-# CGIFromLoCClass => $CGIlccn,
-# CGIToLoCClass => $CGIlccn,
hascote => $hascote,
-# hlghtcote => $hlghtcote,
-# hglghtDT => $hglghtDT,
-# hglghtPub => $hglghtPub,
-# hglghtPY => $hglghtPY,
-# hglghtHB => $hglghtHB,
-# hglghtLOC => $hglghtLOC,
-# CGIFromCoteClass => $CGIcote,
-# CGIToCoteClass => $CGIcote,
CGIItemType => $CGIitemtype,
-# CGIFromPublicationYear => $CGIpublicationyear,
-# CGIToPublicationYear => $CGIpublicationyear,
-# CGIPublisher => $CGIpublisher,
- CGIBranch => \@branchloop,
+ CGIBranch => GetBranchesLoop(C4::Context->userenv->{'branch'}),
locationloop => \@locations,
authvals => \@authvals,
CGIextChoice => \@mime,
- CGIsepChoice => \@delim,
+ CGIsepChoice => GetDelimiterChoices,
+ item_itype => $item_itype
);
}
my @looprow;
my %globalline;
my $grantotal =0;
+ my $barcodelike = @$filters[13];
+ my $barcodefilter = @$filters[14];
+ my $not;
+
# extract parameters
my $dbh = C4::Context->dbh;
+# if barcodefilter is empty set as %
+if($barcodefilter){
+ # Check if barcodefilter is "like" or "not like"
+ if(!$barcodelike){
+ $not = "not";
+ }
+ # Change * to %
+ $barcodefilter =~ s/\*/%/g;
+}else{
+ $barcodefilter = "%";
+}
+
# Filters
# Checking filters
#
$linefilter[1] = @$filters[3] if ($line =~ /lccn/ ) ;
$linefilter[0] = @$filters[4] if ($line =~ /items\.itemcallnumber/ ) ;
$linefilter[1] = @$filters[5] if ($line =~ /items\.itemcallnumber/ ) ;
- $linefilter[0] = @$filters[6] if ($line =~ /itemtype/ ) ;
+ if (C4::Context->preference('item-level_itypes')) {
+ $linefilter[0] = @$filters[6] if ($line =~ /items\.itype/ ) ;
+ } else {
+ $linefilter[0] = @$filters[6] if ($line =~ /itemtype/ ) ;
+ }
$linefilter[0] = @$filters[7] if ($line =~ /publishercode/ ) ;
$linefilter[0] = @$filters[8] if ($line =~ /publicationyear/ ) ;
$linefilter[1] = @$filters[9] if ($line =~ /publicationyear/ ) ;
$colfilter[1] = @$filters[3] if ($column =~ /lccn/ ) ;
$colfilter[0] = @$filters[4] if ($column =~ /items\.itemcallnumber/ ) ;
$colfilter[1] = @$filters[5] if ($column =~ /items\.itemcallnumber/ ) ;
- $colfilter[0] = @$filters[6] if ($column =~ /itemtype/ ) ;
+ if (C4::Context->preference('item-level_itypes')) {
+ $colfilter[0] = @$filters[6] if ($column =~ /items\.itype/ ) ;
+ } else {
+ $colfilter[0] = @$filters[6] if ($column =~ /itemtype/ ) ;
+ }
$colfilter[0] = @$filters[7] if ($column =~ /publishercode/ ) ;
$colfilter[0] = @$filters[8] if ($column =~ /publicationyear/ ) ;
$colfilter[1] = @$filters[9] if ($column =~ /publicationyear/ ) ;
}
my $strsth;
- $strsth .= "select distinctrow $linefield from biblioitems left join items on (items.biblioitemnumber = biblioitems.biblioitemnumber) where $line is not null ";
+ $strsth .= "select distinctrow $linefield from biblioitems left join items on (items.biblioitemnumber = biblioitems.biblioitemnumber) where barcode $not LIKE ? AND $line is not null ";
if ( @linefilter ) {
if ($linefilter[1]){
$strsth .= " and $line >= ? " ;
my $sth = $dbh->prepare( $strsth );
if (( @linefilter ) and ($linefilter[1])){
- $sth->execute($linefilter[0],$linefilter[1]);
- } elsif ($linefilter[0]) {
- $sth->execute($linefilter[0]);
+ $sth->execute($barcodefilter,$linefilter[0],$linefilter[1]);
+ } elsif ($barcodefilter,$linefilter[0]) {
+ $sth->execute($barcodefilter,$linefilter[0]);
} else {
- $sth->execute;
+ $sth->execute($barcodefilter);
}
while ( my ($celvalue) = $sth->fetchrow) {
my %cell;
FROM biblioitems
LEFT JOIN items
ON (items.biblioitemnumber = biblioitems.biblioitemnumber)
- WHERE $column IS NOT NULL ";
+ WHERE barcode $not LIKE ? AND $column IS NOT NULL ";
if (( @colfilter ) and ($colfilter[1])) {
$strsth2 .= " and $column> ? and $column< ?";
}elsif ($colfilter[0]){
$debug and print STDERR "SQL: $strsth2";
my $sth2 = $dbh->prepare( $strsth2 );
if ((@colfilter) and ($colfilter[1])) {
- $sth2->execute($colfilter[0],$colfilter[1]);
+ $sth2->execute($barcodefilter,$colfilter[0],$colfilter[1]);
} elsif ($colfilter[0]){
- $sth2->execute($colfilter[0]);
+ $sth2->execute($barcodefilter,$colfilter[0]);
} else {
- $sth2->execute;
+ $sth2->execute($barcodefilter);
}
while (my ($celvalue) = $sth2->fetchrow) {
my %cell;
}
# preparing calculation
- my $strcalc .= "SELECT $linefield, $colfield, count(*) FROM biblioitems LEFT JOIN items ON (items.biblioitemnumber = biblioitems.biblioitemnumber) WHERE 1";
+ my $strcalc .= "SELECT $linefield, $colfield, count(*) FROM biblioitems LEFT JOIN items ON (items.biblioitemnumber = biblioitems.biblioitemnumber) WHERE 1 AND barcode $not like ? ";
if (@$filters[0]){
@$filters[0]=~ s/\*/%/g;
$strcalc .= " AND dewey >" . @$filters[0];
if (@$filters[6]){
@$filters[6]=~ s/\*/%/g;
$strcalc .= " AND " .
- (C4::Context::preference('Item-level_itypes') ? 'items.itype' : 'biblioitems.itemtype')
+ (C4::Context->preference('item-level_itypes') ? 'items.itype' : 'biblioitems.itemtype')
. " LIKE '" . @$filters[6] ."'";
}
$strcalc .= " group by $linefield, $colfield order by $linefield,$colfield";
$debug and warn "SQL: $strcalc";
my $dbcalc = $dbh->prepare($strcalc);
- $dbcalc->execute;
+ $dbcalc->execute($barcodefilter);
# warn "filling table";
my $emptycol;
while (my ($row, $col, $value) = $dbcalc->fetchrow) {
# warn "filling table $row / $col / $value ";
- $emptycol = 1 if ($col eq undef);
- $col = "zzEMPTY" if ($col eq undef);
- $row = "zzEMPTY" if ($row eq undef);
+ $emptycol = 1 if (!defined($col));
+ $col = "zzEMPTY" if (!defined($col));
+ $row = "zzEMPTY" if (!defined($row));
$table{$row}->{$col}+=$value;
$table{$row}->{totalrow}+=$value;