View | Details | Raw Unified | Return to bug 6875
Collapse All | Expand All

(-)a/mainpage.pl (-20 lines)
Lines 23-49 use warnings; Link Here
23
use CGI;
23
use CGI;
24
use C4::Output;
24
use C4::Output;
25
use C4::Auth;
25
use C4::Auth;
26
use C4::AuthoritiesMarc;
27
use C4::Koha;
26
use C4::Koha;
28
use C4::NewsChannels;
27
use C4::NewsChannels;
29
use C4::Review qw/numberofreviews/;
28
use C4::Review qw/numberofreviews/;
30
use C4::Suggestions qw/CountSuggestion/;
29
use C4::Suggestions qw/CountSuggestion/;
31
use C4::Tags qw/get_count_by_tag_status/;
30
use C4::Tags qw/get_count_by_tag_status/;
32
my $query     = new CGI;
31
my $query     = new CGI;
33
my $authtypes = getauthtypes;
34
my @authtypesloop;
35
36
foreach my $thisauthtype (
37
    sort { $authtypes->{$a} <=> $authtypes->{$b} }
38
    keys %$authtypes
39
  )
40
{
41
    my %row = (
42
        value        => $thisauthtype,
43
        authtypetext => $authtypes->{$thisauthtype}{'authtypetext'},
44
    );
45
    push @authtypesloop, \%row;
46
}
47
32
48
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
33
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
49
    {
34
    {
Lines 57-66 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
57
    }
42
    }
58
);
43
);
59
44
60
$template->param(
61
    authtypesloop => \@authtypesloop
62
);
63
64
my $all_koha_news   = &GetNewsToDisplay("koha");
45
my $all_koha_news   = &GetNewsToDisplay("koha");
65
my $koha_news_count = scalar @$all_koha_news;
46
my $koha_news_count = scalar @$all_koha_news;
66
47
67
- 

Return to bug 6875