3 #my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}");
8 while ($done eq "Issues") {
9 my @args=('borrwraper.pl',@ARGV,$bcard);
10 my $time=localtime(time);
11 open (FILE,">>/tmp/$<_$ARGV[6]");
12 print FILE "new borrower $time\n";
14 eval{$bcard=system(@args)};
15 $exit_value = $? >> 8;