#!/usr/bin/perl
+# Copyright Paul Poulain 2002
+# Parts Copyright Liblime 2007
+#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
#
use strict;
-require Exporter;
-
+use warnings;
use CGI;
use C4::Output;
use C4::Auth;
my $authtypes = getauthtypes;
my @authtypesloop;
-foreach my $thisauthtype ( sort { $authtypes->{$a} <=> $authtypes->{$b} }
- keys %$authtypes )
+foreach my $thisauthtype (
+ sort { $authtypes->{$a} <=> $authtypes->{$b} }
+ keys %$authtypes
+ )
{
my %row = (
value => $thisauthtype,
type => "intranet",
authnotrequired => 0,
flagsrequired => {
- catalogue => 1,
- circulate => 1,
- borrowers => 1,
+ catalogue => 1,
},
}
);
-my $marc_p = C4::Context->boolean_preference("marc");
-
$template->param(
- NOTMARC => !$marc_p,
authtypesloop => \@authtypesloop
);
-my $all_koha_news = &GetNewsToDisplay("koha");
+my $all_koha_news = &GetNewsToDisplay("koha");
my $koha_news_count = scalar @$all_koha_news;
$template->param(