Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 97 lines (88 sloc) 3.003 kB
#!/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;
Jump to Line
Something went wrong with that request. Please try again.