gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 9140: Followup removes the useless variable $message 

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
This commit is contained in:
Jonathan Druart 2012-12-04 16:56:54 +01:00 committed by Jared Camins-Esakov
parent 533c9bc657
commit 23e1fd69f5
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
circ/bookcount.pl
View File

@ -45,12 +45,11 @@ my $data = GetBiblioItemData($bi);
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 {
$lastdate = $lastmove->{'datearrived'};
@ -79,8 +78,6 @@ foreach (@$branchloop) {
$_->{seentime} = $timechunk;
}
### $lastdate
$template->param(
biblionumber => $biblionumber,
title => $data->{'title'},
@ -112,14 +109,14 @@ sub lastmove {
);
$sth->execute($itemnumber);
my ($date) = $sth->fetchrow_array;
return ( 0, 1 ) if not $date;
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, 1 ) if not $data;
return ( $data, "" );
return 0 unless $data;
return $data;
}
sub issuessince {
@ -165,7 +162,7 @@ sub lastseenat {
"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"
) tmp"
);
$sth->execute( $itm, $brc, $itm, $brc );
my ($date2) = $sth->fetchrow_array;
@ -179,7 +176,6 @@ sub lastseenat {
sub slashdate {
my ($date) = @_;
$date or return;
# warn "slashdate($date)...";
return (
format_date($date),
substr($date,11,5)