telnet/borrwraper.pl

   1 #!/usr/bin/perl
   2
   3
   4 # Copyright 2000-2002 Katipo Communications
   5 #
   6 # This file is part of Koha.
   7 #
   8 # Koha is free software; you can redistribute it and/or modify it under the
   9 # terms of the GNU General Public License as published by the Free Software
  10 # Foundation; either version 2 of the License, or (at your option) any later
  11 # version.
  12 #
  13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  15 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License along with
  18 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  19 # Suite 330, Boston, MA  02111-1307 USA
  20
  21 use DBI;
  22 use C4::Context;
  23 use C4::Circulation::Issues;
  24 use C4::Circulation::Main;
  25 use C4::InterfaceCDK;
  26 use C4::Circulation::Borrower;
  27
  28 # my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}");
  29 my %env = (
  30   branchcode => $ARGV[0], usercode => $ARGV[1], proccode => "lgon", borrowernumber => "",
  31   logintime  => "", lasttime => $ARGV[6], tempuser => "", debug => "9",
  32   telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => $ARGV[5], bcard=>$ARGV[7]
  33       );
  34 my ($env) = \%env;
  35
  36 startint();
  37   helptext('');
  38 my $done;
  39 my ($items,$items2,$amountdue);
  40 my $itemsdet;
  41 $env->{'sysarea'} = "Issues";
  42 $done = "Issues";
  43 my $i=0;
  44 my $dbh = C4::Context->dbh;
  45   my ($bornum,$issuesallowed,$borrower,$reason,$amountdue) = C4::Circulation::Borrower::findborrower($env,$dbh);
  46 #    my $time=localtime(time);
  47 #    open (FILE,">>/tmp/$<_$ARGV[6]");
  48 #    print FILE "borrower found $bornum";
  49 #    close FILE;
  50   $env->{'loanlength'}="";
  51   if ($reason ne "") {
  52     $done = $reason;
  53   } elsif ($env->{'IssuesAllowed'} eq '0') {
  54     error_msg($env,"No Issues Allowed =$env->{'IssuesAllowed'}");
  55   } else {
  56     $env->{'bornum'} = $bornum;
  57     $env->{'bcard'}  = $borrower->{'cardnumber'};
  58     ($items,$items2)=C4::Circulation::Main::pastitems($env,$bornum,$dbh); #from Circulation.pm
  59     $done = "No";
  60     my $it2p=0;
  61     while ($done eq 'No'){
  62       ($done,$items2,$it2p,$amountdue,$itemsdet) = C4::Circulation::Issues::processitems($env,$bornum,$borrower,$items,$items2,$it2p,$amountdue,$itemsdet);
  63     }
  64
  65   }
  66   if ($done ne 'Issues'){
  67       die "test";
  68   }