gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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>
This commit is contained in:
Paul Poulain 2011-09-17 00:34:40 +02:00
parent 8165aeef77
commit 056b5faa40
1 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
mainpage.pl
View File

@ -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;