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 <jcamins@cpbibliography.com>

diff --git a/mainpage.pl b/mainpage.pl
index bd1c9e5..f834985 100755 (executable)
--- 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;