Actually lives in telnet/
This commit is contained in:
parent
23af68684c
commit
9eed1523e2
1 changed files with 0 additions and 48 deletions
|
@ -1,48 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
|
|
||||||
use DBI;
|
|
||||||
use C4::Database;
|
|
||||||
use C4::Circulation::Issues;
|
|
||||||
use C4::Circulation::Main;
|
|
||||||
use C4::InterfaceCDK;
|
|
||||||
use C4::Circulation::Borrower;
|
|
||||||
|
|
||||||
# my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}");
|
|
||||||
my %env = (
|
|
||||||
branchcode => $ARGV[0], usercode => $ARGV[1], proccode => "lgon", borrowernumber => "",
|
|
||||||
logintime => "", lasttime => "", tempuser => "", debug => "9",
|
|
||||||
telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => $ARGV[5],
|
|
||||||
bcard=>$ARGV[6]
|
|
||||||
);
|
|
||||||
my ($env) = \%env;
|
|
||||||
startint();
|
|
||||||
helptext('');
|
|
||||||
my $done;
|
|
||||||
my ($items,$items2,$amountdue);
|
|
||||||
my $itemsdet;
|
|
||||||
$env->{'sysarea'} = "Issues";
|
|
||||||
$done = "Issues";
|
|
||||||
my $i=0;
|
|
||||||
my $dbh=&C4Connect;
|
|
||||||
my ($bornum,$issuesallowed,$borrower,$reason,$amountdue) = C4::Circulation::Borrower::findborrower($env,$dbh);
|
|
||||||
$env->{'loanlength'}="";
|
|
||||||
if ($reason ne "") {
|
|
||||||
$done = $reason;
|
|
||||||
} elsif ($env->{'IssuesAllowed'} eq '0') {
|
|
||||||
error_msg($env,"No Issues Allowed =$env->{'IssuesAllowed'}");
|
|
||||||
} else {
|
|
||||||
$env->{'bornum'} = $bornum;
|
|
||||||
$env->{'bcard'} = $borrower->{'cardnumber'};
|
|
||||||
($items,$items2)=C4::Circulation::Main::pastitems($env,$bornum,$dbh); #from Circulation.pm
|
|
||||||
$done = "No";
|
|
||||||
my $it2p=0;
|
|
||||||
while ($done eq 'No'){
|
|
||||||
($done,$items2,$it2p,$amountdue,$itemsdet) = C4::Circulation::Issues::processitems($env,$bornum,$borrower,$items,$items2,$it2p,$amountdue,$itemsdet);
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
if ($done ne 'Issues'){
|
|
||||||
$dbh->disconnect;
|
|
||||||
die "test";
|
|
||||||
}
|
|
||||||
$dbh->disconnect;
|
|
Loading…
Reference in a new issue