4 # Copyright 2000-2002 Katipo Communications
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License along with
18 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
19 # Suite 330, Boston, MA 02111-1307 USA
25 use C4::Circulation::Main;
31 use C4::Circulation::Returns;
35 branchcode => $ARGV[0], usercode => $ARGV[1], proccode => "lgon", borrowernumber => "",
36 logintime => "", lasttime => "", tempuser => "", debug => "9",
37 telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => $ARGV[5]
42 my $dbh = C4::Context->dbh;
57 until ($reason ne "") {
58 ($reason,$item) = returnwindow($env,"Enter Returns",$item,\@items,$borrower,$amt_owing,$odues,$dbh,$resp); #C4::Circulation
61 ($resp,$bornum,$borrower,$itemno,$itemrec,$amt_owing) = C4::Circulation::Returns::checkissue($env,$dbh,$item);
63 ($issues,$odues,$amt_owing) = borrdata2($env,$bornum);
71 my $item = itemnodata($env,$dbh,$itemno);
72 my $fmtitem = C4::Circulation::Issues::formatitem($env,$item,"",$amt_owing);
73 unshift @items,$fmtitem;
74 if ($items[20] > "") {