#!/usr/bin/perl


# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA  02111-1307 USA

use strict;
#use C4::Security;
#use C4::Database;
use C4::Circulation::Main;
#use C4::Circulation::Issues;
#use C4::Circulation::Returns;
#use C4::Circulation::Renewals;
#use C4::Circulation::Borrower;
#use C4::Reserves;
use C4::InterfaceCDK;
#use C4::Security;


# set up environment array
# branchcode - logged on branch
# usercode - current user
# proccode - current or last procedure
# borrowernumber - current or last borrowernumber
# logintime - time logged on
# lasttime - lastime security checked
# tempuser - temporary user
my %env = (
  branchcode => "", usercode => "", proccode => "lgon", borrowernumber => "",
  logintime  => "", lasttime => "", tempuser => "", debug => "9"
  );

$env{'branchcode'} = "C";
$env{'usercode'} = `whoami`;
$env{'telnet'} = "Y";


#start interface
&startint(\%env,'Circulation');
getbranch(\%env);
getprinter(\%env);
my $donext = 'Circ';
my $reason;
my $data;
while ($donext ne 'Quit') {
  if ($donext  eq "Circ") {
    ($reason,$data) = menu(\%env,'console','Circulation',
    ('Issues','Returns','Select Branch','Select Printer'));
  } else {
    $data = $donext;
  }
  if ($data eq 'Issues') {
   my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}","$env{'lasttime'}");
  open (FILE,">>/tmp/$<_$$");
   my $time=localtime(time);
   print FILE "Start issues $time \n";
   close FILE;
   system(@args);
  } elsif ($data eq 'Returns') {
   my @args=('returnswrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}");
   open (FILE,">>/tmp/$<_$$");
   my $time=localtime(time);
   print FILE "Start returns $time \n";
   close FILE;
   system(@args);
#    $donext=Returns(\%env); #C4::Circulation::Returns
  } elsif ($data eq 'Select Branch') {
    getbranch(\%env);
  } elsif ($data eq 'Select Printer') {
    getprinter(\%env);
#  } elsif ($data eq 'Borrower Enquiries') {
    #  $donext=Borenq($env); #C4::Circulation::Borrower - conversion
#  } elsif ($data eq 'Reserves'){
#    $donext=EnterReserves(\%env); #C4::Reserves
  } elsif ($data eq 'Quit') {
    $donext = $data;
    &endint(\%env);
    die;
  }
}
    &endint(\%env);
    die;
