kumara/testissue.pl
1999-12-01 19:49:53 +00:00

22 lines
560 B
Perl
Executable file

#!/usr/bin/perl
use strict;
use C4::Security;
use C4::Circmain;
# 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"
);
Login(\%env);
Start_circ(\%env);
#my@date=Issue();
#print @date;