Browse Source

works in progress

master
chris 21 years ago
parent
commit
7c6a1cdd8a
2 changed files with 5 additions and 3 deletions
  1. +2
    -1
      borrwraper.pl
  2. +3
    -2
      issuewrapper.pl

+ 2
- 1
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();


+ 3
- 2
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;


Loading…
Cancel
Save