X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=circ%2Fbookcount.pl;h=09dc6fcbf053f9b9de9d6893365e03461b4c3aaa;hb=503cc30d9ae03f12b3c412d2d280ea76393b97da;hp=3f0743a782a8c71fac6023743fe9b86154cf275e;hpb=c15e1206fdda1fa2fd366c5f38d23b0014ba4022;p=koha.git diff --git a/circ/bookcount.pl b/circ/bookcount.pl index 3f0743a782..09dc6fcbf0 100755 --- a/circ/bookcount.pl +++ b/circ/bookcount.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl - #written 7/3/2002 by Finlay #script to display reports @@ -8,21 +7,23 @@ # # This file is part of Koha. # -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. # -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . use strict; -use CGI; +#use warnings; FIXME - Bug 2505 +use CGI qw ( -utf8 ); +use C4::Debug; use C4::Context; use C4::Circulation; use C4::Output; @@ -30,7 +31,7 @@ use C4::Koha; use C4::Auth; use C4::Branch; # GetBranches use C4::Biblio; # GetBiblioItemData -use C4::Dates qw/format_date/; +use Koha::DateUtils; my $input = new CGI; my $itm = $input->param('itm'); @@ -41,18 +42,16 @@ my $branches = GetBranches; my $idata = itemdatanum($itm); my $data = GetBiblioItemData($bi); -my $homebranch = $branches->{ $idata->{'homebranch'} }->{'branchname'}; +my $homebranch = $branches->{ $idata->{'homebranch'} }->{'branchname'}; my $holdingbranch = $branches->{ $idata->{'holdingbranch'} }->{'branchname'}; -my ( $lastmove, $message ) = lastmove($itm); +my $lastmove = lastmove($itm); my $lastdate; my $count; if ( not $lastmove ) { - $lastdate = $message; $count = issuessince( $itm, 0 ); -} -else { +} else { $lastdate = $lastmove->{'datearrived'}; $count = issuessince( $itm, $lastdate ); } @@ -61,7 +60,7 @@ else { my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { - template_name => "circ/bookcount.tmpl", + template_name => "circ/bookcount.tt", query => $input, type => "intranet", authnotrequired => 0, @@ -70,15 +69,10 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( } ); -my @branchloop; - -foreach my $branchcode ( keys %$branches ) { - my %linebranch; - $linebranch{issues} = issuesat( $itm, $branchcode ); - my $date = lastseenat( $itm, $branchcode ); - $linebranch{seen} = slashdate($date); - $linebranch{branchname} = $branches->{$branchcode}->{'branchname'}; - push( @branchloop, \%linebranch ); +my $branchloop = GetBranchesLoop(C4::Context->userenv->{branch}); +foreach (@$branchloop) { + $_->{issues} = issuesat($itm, $_->{value}); + $_->{seen} = lastseenat( $itm, $_->{value} ) || undef; } $template->param( @@ -89,43 +83,37 @@ $template->param( biblioitemnumber => $bi, homebranch => $homebranch, holdingbranch => $holdingbranch, - lastdate => format_date($lastdate), + lastdate => $lastdate ? $lastdate : 0, count => $count, - branchloop => \@branchloop, + branchloop => $branchloop, ); output_html_with_http_headers $input, $cookie, $template->output; - +exit; sub itemdatanum { my ($itemnumber) = @_; - my $dbh = C4::Context->dbh; - my $sth = $dbh->prepare("select * from items where itemnumber=?"); + my $sth = C4::Context->dbh->prepare("SELECT * FROM items WHERE itemnumber=?"); $sth->execute($itemnumber); - my $data = $sth->fetchrow_hashref; - $sth->finish; - return ($data); + return $sth->fetchrow_hashref; } sub lastmove { my ($itemnumber) = @_; - my $dbh = C4::Context->dbh; - my $sth = - $dbh->prepare( -"select max(branchtransfers.datearrived) from branchtransfers where branchtransfers.itemnumber=?" - ); + my $dbh = C4::Context->dbh; + my $sth = $dbh->prepare( +"SELECT max(branchtransfers.datearrived) FROM branchtransfers WHERE branchtransfers.itemnumber=?" + ); $sth->execute($itemnumber); my ($date) = $sth->fetchrow_array; - return ( 0, "Item has no branch transfers record" ) if not $date; - $sth = - $dbh->prepare( -"Select * from branchtransfers where branchtransfers.itemnumber=? and branchtransfers.datearrived=?" - ); + return 0 unless $date; + $sth = $dbh->prepare( +"SELECT * FROM branchtransfers WHERE branchtransfers.itemnumber=? and branchtransfers.datearrived=?" + ); $sth->execute( $itemnumber, $date ); my ($data) = $sth->fetchrow_hashref; - return ( 0, "Item has no branch transfers record" ) if not $data; - $sth->finish; - return ( $data, "" ); + return 0 unless $data; + return $data; } sub issuessince { @@ -138,76 +126,44 @@ sub issuessince { SELECT COUNT(*) AS count FROM old_issues WHERE itemnumber = ? and timestamp > ? ) tmp"); $sth->execute( $itemnumber, $date, $itemnumber, $date ); - my $count = $sth->fetchrow_arrayref->[0]; - $sth->finish; - return ( $count ); + return $sth->fetchrow_arrayref->[0]; } sub issuesat { my ( $itemnumber, $brcd ) = @_; my $dbh = C4::Context->dbh; - my $sth = - $dbh->prepare("SELECT SUM(count) FROM ( - SELECT COUNT(*) AS count FROM issues WHERE itemnumber = ? and branchcode = ? - UNION ALL - SELECT COUNT(*) AS count FROM old_issues WHERE itemnumber = ? and branchcode = ? - ) tmp"); + my $sth = $dbh->prepare( + "SELECT SUM(count) FROM ( + SELECT COUNT(*) AS count FROM issues WHERE itemnumber = ? AND branchcode = ? + UNION ALL + SELECT COUNT(*) AS count FROM old_issues WHERE itemnumber = ? AND branchcode = ? + ) tmp" + ); $sth->execute( $itemnumber, $brcd, $itemnumber, $brcd ); - my ($count) = $sth->fetchrow_array; - $sth->finish; - return ($count); + return $sth->fetchrow_array; } sub lastseenat { my ( $itm, $brc ) = @_; my $dbh = C4::Context->dbh; - my $sth = - $dbh->prepare("SELECT MAX(tstamp) FROM ( - SELECT MAX(timestamp) AS tstamp FROM issues WHERE itemnumber = ? and branchcode = ? - UNION ALL - SELECT MAX(timestamp) AS tstamp FROM old_issues WHERE itemnumber = ? and branchcode = ? - ) tmp"); + my $sth = $dbh->prepare( + "SELECT MAX(tstamp) FROM ( + SELECT MAX(timestamp) AS tstamp FROM issues WHERE itemnumber = ? AND branchcode = ? + UNION ALL + SELECT MAX(timestamp) AS tstamp FROM old_issues WHERE itemnumber = ? AND branchcode = ? + ) tmp" + ); $sth->execute( $itm, $brc, $itm, $brc ); my ($date1) = $sth->fetchrow_array; - $sth->finish; - $sth = - $dbh->prepare( -"Select max(datearrived) from branchtransfers where itemnumber=? and tobranch = ?" - ); - $sth->execute( $itm, $brc ); + $sth = $dbh->prepare( + "SELECT MAX(transfer) FROM (SELECT max(datearrived) AS transfer FROM branchtransfers WHERE itemnumber=? AND tobranch = ? + UNION ALL + SELECT max(datesent) AS transfer FROM branchtransfers WHERE itemnumber=? AND frombranch = ? + ) tmp" + ); + $sth->execute( $itm, $brc, $itm, $brc ); my ($date2) = $sth->fetchrow_array; - $sth->finish; - - #FIXME: MJR thinks unsafe - $date1 =~ s/-//g; - $date1 =~ s/://g; - $date1 =~ s/ //g; - $date2 =~ s/-//g; - $date2 =~ s/://g; - $date2 =~ s/ //g; - my $date; - if ( $date1 < $date2 ) { - $date = $date2; - } - else { - $date = $date1; - } - return ($date); -} -##################################################### -# write date.... -sub slashdate { - my ($date) = @_; - if ( not $date ) { - return "never"; - } - my ( $yr, $mo, $da, $hr, $mi ) = ( - substr( $date, 0, 4 ), - substr( $date, 4, 2 ), - substr( $date, 6, 2 ), - substr( $date, 8, 2 ), - substr( $date, 10, 2 ) - ); - return "$hr:$mi " . format_date("$yr-$mo-$da"); + my $date = ( $date1 lt $date2 ) ? $date2 : $date1 ; + return ($date); }