From 9439b4f24a68890dd8f5e7aa4a4bb6109537d1d1 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 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 Signed-off-by: Marc VĂ©ron --- C4/Circulation.pm | 40 ---------------------------------------- 1 file changed, 40 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index 6725d4b39f..2155bbfe49 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -88,7 +88,6 @@ BEGIN { &GetRenewCount &GetSoonestRenewDate &GetLatestAutoRenewDate - &GetItemIssue &GetIssuingCharges &GetBranchBorrowerCircRule &GetBranchItemRule @@ -2495,45 +2494,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.11.0