Koha/telnet/startint.pl
2000-12-19 23:45:51 +00:00

78 lines
4.2 KiB
Perl
Executable file

#!/usr/bin/perl
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;