5 use C4::Circulation::Issues;
6 use C4::Circulation::Main;
8 use C4::Circulation::Borrower;
10 # my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}");
12 branchcode => $ARGV[0], usercode => $ARGV[1], proccode => "lgon", borrowernumber => "",
13 logintime => "", lasttime => $ARGV[6], tempuser => "", debug => "9",
14 telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => $ARGV[5], bcard=>$ARGV[7]
21 my ($items,$items2,$amountdue);
23 $env->{'sysarea'} = "Issues";
27 my ($bornum,$issuesallowed,$borrower,$reason,$amountdue) = C4::Circulation::Borrower::findborrower($env,$dbh);
28 # my $time=localtime(time);
29 # open (FILE,">>/tmp/$<_$ARGV[6]");
30 # print FILE "borrower found $bornum";
32 $env->{'loanlength'}="";
35 } elsif ($env->{'IssuesAllowed'} eq '0') {
36 error_msg($env,"No Issues Allowed =$env->{'IssuesAllowed'}");
38 $env->{'bornum'} = $bornum;
39 $env->{'bcard'} = $borrower->{'cardnumber'};
40 ($items,$items2)=C4::Circulation::Main::pastitems($env,$bornum,$dbh); #from Circulation.pm
43 while ($done eq 'No'){
44 ($done,$items2,$it2p,$amountdue,$itemsdet) = C4::Circulation::Issues::processitems($env,$bornum,$borrower,$items,$items2,$it2p,$amountdue,$itemsdet);
48 if ($done ne 'Issues'){