Kumara - predecessor to Koha
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

26 lines
618 B

#!/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);
$env{'branchcode'} = "C";
$env{'usercode'} = "olwen";
Start_circ(\%env);
#my@date=Issue();
#print @date;