From e86ee5fdb25b555a5a8e0ab0d80b48c6154f5756 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 Content-Type: text/plain; charset="UTF-8" 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 files changed, 0 insertions(+), 19 deletions(-) diff --git a/mainpage.pl b/mainpage.pl index bd1c9e5..f834985 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; -- 1.7.2.5