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
23 use C4::Circulation::Issues;
24 use C4::Circulation::Main;
26 use C4::Circulation::Borrower;
28 # my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}");
30 branchcode => $ARGV[0], usercode => $ARGV[1], proccode => "lgon", borrowernumber => "",
31 logintime => "", lasttime => $ARGV[6], tempuser => "", debug => "9",
32 telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => $ARGV[5], bcard=>$ARGV[7]
39 my ($items,$items2,$amountdue);
41 $env->{'sysarea'} = "Issues";
44 my $dbh = C4::Context->dbh;
45 my ($bornum,$issuesallowed,$borrower,$reason,$amountdue) = C4::Circulation::Borrower::findborrower($env,$dbh);
46 # my $time=localtime(time);
47 # open (FILE,">>/tmp/$<_$ARGV[6]");
48 # print FILE "borrower found $bornum";
50 $env->{'loanlength'}="";
53 } elsif ($env->{'IssuesAllowed'} eq '0') {
54 error_msg($env,"No Issues Allowed =$env->{'IssuesAllowed'}");
56 $env->{'bornum'} = $bornum;
57 $env->{'bcard'} = $borrower->{'cardnumber'};
58 ($items,$items2)=C4::Circulation::Main::pastitems($env,$bornum,$dbh); #from Circulation.pm
61 while ($done eq 'No'){
62 ($done,$items2,$it2p,$amountdue,$itemsdet) = C4::Circulation::Issues::processitems($env,$bornum,$borrower,$items,$items2,$it2p,$amountdue,$itemsdet);
66 if ($done ne 'Issues'){