telnet/borrwraper.pl

   1 #!/usr/bin/perl
   2
   3 use DBI;
   4 use C4::Database;
   5 use C4::Circulation::Issues;
   6 use C4::Circulation::Main;
   7 use C4::InterfaceCDK;
   8 use C4::Circulation::Borrower;
   9
  10 # my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}");
  11 my %env = (
  12   branchcode => $ARGV[0], usercode => $ARGV[1], proccode => "lgon", borrowernumber => "",
  13   logintime  => "", lasttime => $ARGV[6], tempuser => "", debug => "9",
  14   telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => $ARGV[5], bcard=>$ARGV[7]
  15       );
  16 my ($env) = \%env;
  17
  18 startint();
  19   helptext('');
  20 my $done;
  21 my ($items,$items2,$amountdue);
  22 my $itemsdet;
  23 $env->{'sysarea'} = "Issues";
  24 $done = "Issues";
  25 my $i=0;
  26 my $dbh=&C4Connect;
  27   my ($bornum,$issuesallowed,$borrower,$reason,$amountdue) = C4::Circulation::Borrower::findborrower($env,$dbh);
  28 #    my $time=localtime(time);
  29 #    open (FILE,">>/tmp/$<_$ARGV[6]");
  30 #    print FILE "borrower found $bornum";
  31 #    close FILE;
  32   $env->{'loanlength'}="";
  33   if ($reason ne "") {
  34     $done = $reason;
  35   } elsif ($env->{'IssuesAllowed'} eq '0') {
  36     error_msg($env,"No Issues Allowed =$env->{'IssuesAllowed'}");
  37   } else {
  38     $env->{'bornum'} = $bornum;
  39     $env->{'bcard'}  = $borrower->{'cardnumber'};
  40     ($items,$items2)=C4::Circulation::Main::pastitems($env,$bornum,$dbh); #from Circulation.pm
  41     $done = "No";
  42     my $it2p=0;
  43     while ($done eq 'No'){
  44       ($done,$items2,$it2p,$amountdue,$itemsdet) = C4::Circulation::Issues::processitems($env,$bornum,$borrower,$items,$items2,$it2p,$amountdue,$itemsdet);
  45     }
  46
  47   }
  48   if ($done ne 'Issues'){
  49       $dbh->disconnect;
  50       die "test";
  51   }
  52 $dbh->disconnect;