Browse Source

works in progress

master
chris 22 years ago
parent
commit
7c6a1cdd8a
  1. 3
      borrwraper.pl
  2. 5
      issuewrapper.pl

3
borrwraper.pl

@ -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

@ -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;

Loading…
Cancel
Save