use C4::Auth;
use C4::Interface::CGI::Output;
use HTML::Template;
-
+use C4::Koha;
my $query=new CGI;
#getting the template
query => $query,
type => "intranet",
authnotrequired => 0,
- flagsrequired => {parameters => 1},
+ flagsrequired => {circulate => 1},
});
#####################
#Global vars
my %env;
my $headerbackgroundcolor='#99cc33';
-my $circbackgroundcolor='#ffffcc';
-my $circbackgroundcolor='white';
my $linecolor1='#ffffcc';
my $linecolor2='white';
-my $backgroundimage="/images/background-mem.gif";
my $branches = getbranches();
my $printers = getprinters(\%env);
genprname => $printers->{$printer}->{'printername'},
branch => $branch,
printer => $printer,
- hdrbckgdcolor => $headerbackgroundcolor,
- bckgdimg => $backgroundimage,
errmsgloop => \@errmsgloop
);