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

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

Return to bug 6875