Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Make sure flagsrequired is *circulate* not parameters

Browse source
This commit is contained in:
acli 2003-02-06 05:10:54 +00:00
parent fc5d0e3961
commit bf5fb01d32
4 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
circ/branchtransfers.pl
View file

@ -251,7 +251,7 @@ my ($template, $borrowernumber, $cookie)
query => $query,
type => "intranet",
authnotrequired => 0,
flagsrequired => {parameters => 1},
flagsrequired => {circulate => 1},
});
$template->param( genbrname => $genbrname,
genprname => $genprname,

19
circ/circulation.pl
View file

@ -30,15 +30,24 @@ use C4::Output;
use C4::Print;
use DBI;
use C4::Auth;
use C4::Interface::CGI::Output;
my $query=new CGI;
my ($loggedinuser, $sessioncookie, $sessionID) = checkauth($query);
my ($loggedinuser, $sessioncookie, $sessionID) = checkauth
($query, 0, { circulate => 1 });
#my ($template, $loggedinuser, $sessioncookie) = get_template_and_user
# ({
# template_name => 'circ/circulation.tmpl',
# query => $query,
# type => "intranet",
# authnotrequired => 0,
# flagsrequired => { circulate => 1 },
# });
my %env;
my $headerbackgroundcolor='#99cc33';
my $circbackgroundcolor='#ffffcc'; # FIXME - Never used
my $circbackgroundcolor='white'; # FIXME - Never used
my $linecolor1='#ffffcc';
my $linecolor2='white';
my $backgroundimage="/images/background-mem.gif";
@ -46,8 +55,6 @@ my $backgroundimage="/images/background-mem.gif";
my $branches = getbranches();
my $printers = getprinters(\%env);
my $query = new CGI;
my $branch = getbranch($query, $branches);
my $printer = getprinter($query, $printers);
@ -66,8 +73,6 @@ $env{'printer'}=$printer;
$env{'queue'}=$printer;
my @datearr = localtime(time());
my $tday = localtime(time()); # FIXME - Unused
#warn "today: $tday \n";
# FIXME - Could just use POSIX::strftime("%Y%m%d", localtime);
my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4]+1)).sprintf ("%0.2d", ($datearr[3]));
#warn $todaysdate;

2
circ/returns.pl
View file

@ -43,7 +43,7 @@ my ($template, $borrowernumber, $cookie)
query => $query,
type => "intranet",
authnotrequired => 0,
flagsrequired => {parameters => 1},
flagsrequired => {circulate => 1},
});
#####################

2
circ/selectbranchprinter.pl
View file

@ -119,7 +119,7 @@ my ($template, $borrowernumber, $cookie)
query => $query,
type => "intranet",
authnotrequired => 0,
flagsrequired => {parameters => 1},
flagsrequired => {circulate => 1},
});
$template->param(headerbackgroundcolor => $headerbackgroundcolor,
backgroundimage => $backgroundimage,