X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FCirculation%2FReturns.pm;h=44712a4f5dc5e13ea185ec3bd2fa4c9cd89299e2;hb=c5f7394fcb4fccdf9e2c9250b05b795a3b91aeea;hp=1379abea12e2b4357c30f8b85ad0c2e95d599cb9;hpb=7f1072e28ffbfe1a6d00cbaa29f8a1ba5ffc2ca0;p=koha.git diff --git a/C4/Circulation/Returns.pm b/C4/Circulation/Returns.pm index 1379abea12..44712a4f5d 100755 --- a/C4/Circulation/Returns.pm +++ b/C4/Circulation/Returns.pm @@ -31,14 +31,14 @@ use strict; require Exporter; use DBI; use C4::Context; -use C4::Accounts; +use C4::Accounts2; use C4::InterfaceCDK; use C4::Circulation::Main; # FIXME - C4::Circulation::Main and C4::Circulation::Returns # use each other, so functions get redefined. use C4::Scan; use C4::Stats; -use C4::Search; +use C4::Members; use C4::Print; use vars qw($VERSION @ISA @EXPORT); @@ -90,7 +90,7 @@ sub Returns { if ($resp ne "") { #if ($resp eq "Returned") { if ($itemno ne "" ) { - my $item = itemnodata($env,$dbh,$itemno); + my $item = getbibliofromitemnumber($env,$dbh,$itemno); # FIXME - This relies on C4::Circulation::Main to have a # "use C4::Circulation::Issues;" line, which is bogus. my $fmtitem = C4::Circulation::Issues::formatitem($env,$item,"",$amt_owing); @@ -282,7 +282,7 @@ sub updatelastseen { # obsolete. So presumably this function is obsolete too. sub find_reserves { my ($env,$dbh,$itemno) = @_; - my $itemdata = itemnodata($env,$dbh,$itemno); + my $itemdata = getbibliofromitemnumber($env,$dbh,$itemno); my $sth = $dbh->prepare("select * from reserves where found is null and biblionumber = ? and cancellationdate is NULL order by priority,reservedate ");