7 use C4::Circulation::Main;
13 use C4::Circulation::Returns;
17 branchcode => $ARGV[0], usercode => $ARGV[1], proccode => "lgon", borrowernumber => "",
18 logintime => "", lasttime => "", tempuser => "", debug => "9",
19 telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => $ARGV[5]
39 until ($reason ne "") {
40 ($reason,$item) = returnwindow($env,"Enter Returns",$item,\@items,$borrower,$amt_owing,$odues,$dbh,$resp); #C4::Circulation
43 ($resp,$bornum,$borrower,$itemno,$itemrec,$amt_owing) = C4::Circulation::Returns::checkissue($env,$dbh,$item);
45 ($issues,$odues,$amt_owing) = borrdata2($env,$bornum);
53 my $item = itemnodata($env,$dbh,$itemno);
54 my $fmtitem = C4::Circulation::Issues::formatitem($env,$item,"",$amt_owing);
55 unshift @items,$fmtitem;
56 if ($items[20] > "") {