From 056b5faa407df5ef30c56afb91b5a1801df478ae Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Sat, 17 Sep 2011 00:34:40 +0200 Subject: [PATCH] Bug 6875 cleaning mainpage.pl AutoritiesMarc is loaded for nothing : we don't display authorities anywhere, so removing the dependancy as well as the useless code Signed-off-by: Jared Camins-Esakov --- mainpage.pl | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/mainpage.pl b/mainpage.pl index bd1c9e5ac8..f834985cfe 100755 --- a/mainpage.pl +++ b/mainpage.pl @@ -23,27 +23,12 @@ use warnings; use CGI; use C4::Output; use C4::Auth; -use C4::AuthoritiesMarc; use C4::Koha; use C4::NewsChannels; use C4::Review qw/numberofreviews/; use C4::Suggestions qw/CountSuggestion/; use C4::Tags qw/get_count_by_tag_status/; my $query = new CGI; -my $authtypes = getauthtypes; -my @authtypesloop; - -foreach my $thisauthtype ( - sort { $authtypes->{$a} <=> $authtypes->{$b} } - keys %$authtypes - ) -{ - my %row = ( - value => $thisauthtype, - authtypetext => $authtypes->{$thisauthtype}{'authtypetext'}, - ); - push @authtypesloop, \%row; -} my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { @@ -57,10 +42,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( } ); -$template->param( - authtypesloop => \@authtypesloop -); - my $all_koha_news = &GetNewsToDisplay("koha"); my $koha_news_count = scalar @$all_koha_news; -- 2.39.5