From 8ebbcdc5db91669d439d8c1abd45ac0d77ea31b1 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 25 Nov 2016 14:00:34 +0100 Subject: [PATCH] Bug 17680: C4::Circulation - Remove GetItemIssue This patch simply removes the C4::Circulation::GetItemIssue subroutine Test plan: At this point, `git grep GetItemIssue` should not return any occurrence in the codebase Signed-off-by: Alex Buckley --- C4/Circulation.pm | 40 ---------------------------------------- 1 file changed, 40 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index 321811a..50f2d4c 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -88,7 +88,6 @@ BEGIN { &GetRenewCount &GetSoonestRenewDate &GetLatestAutoRenewDate - &GetItemIssue &GetIssuingCharges &GetBranchBorrowerCircRule &GetBranchItemRule @@ -2487,45 +2486,6 @@ sub _GetCircControlBranch { return $branch; } - - - - - -=head2 GetItemIssue - - $issue = &GetItemIssue($itemnumber); - -Returns patron currently having a book, or undef if not checked out. - -C<$itemnumber> is the itemnumber. - -C<$issue> is a hashref of the row from the issues table. - -=cut - -sub GetItemIssue { - my ($itemnumber) = @_; - return unless $itemnumber; - my $sth = C4::Context->dbh->prepare( - "SELECT items.*, issues.* - FROM issues - LEFT JOIN items ON issues.itemnumber=items.itemnumber - WHERE issues.itemnumber=?"); - $sth->execute($itemnumber); - my $data = $sth->fetchrow_hashref; - return unless $data; - $data->{issuedate_sql} = $data->{issuedate}; - $data->{date_due_sql} = $data->{date_due}; - $data->{issuedate} = dt_from_string($data->{issuedate}, 'sql'); - $data->{issuedate}->truncate(to => 'minute'); - $data->{date_due} = dt_from_string($data->{date_due}, 'sql'); - $data->{date_due}->truncate(to => 'minute'); - my $dt = DateTime->now( time_zone => C4::Context->tz)->truncate( to => 'minute'); - $data->{'overdue'} = DateTime->compare($data->{'date_due'}, $dt ) == -1 ? 1 : 0; - return $data; -} - =head2 GetOpenIssue $issue = GetOpenIssue( $itemnumber ); -- 2.1.4