Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

works in progress

Browse source
This commit is contained in:
chris 2000-05-09 22:03:21 +00:00
parent 9c2fed888e
commit 7c6a1cdd8a
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
borrwraper.pl
View file

@ -11,7 +11,8 @@ use C4::Circulation::Borrower;
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]
telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => $ARGV[5],
bcard=>$ARGV[6]
);
my ($env) = \%env;
startint();

5
issuewrapper.pl
View file

@ -4,9 +4,10 @@
$done = "Issues";
my $i=0;
my $bcard;
while ($done eq "Issues") {
my @args=('./borrwraper.pl',@ARGV);
eval{system(@args)};
my @args=('./borrwraper.pl',@ARGV,$bcard);
eval{$bcard=system(@args)};
$exit_value = $? >> 8;
if ($exit_value){
$done=$exit_value;