X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=labels%2Flabel-home.pl;h=3690c506fb484b322d3aebd8b65a6ca3f90372d1;hb=557c09b466308afceff8e196643a0acb08286102;hp=ca581acab718ad5773181d7a35c6e3b4da4a8af3;hpb=a6c9bd0eb55c32d5632625144775271f20aa15f7;p=koha-ffzg.git diff --git a/labels/label-home.pl b/labels/label-home.pl index ca581acab7..3690c506fb 100755 --- a/labels/label-home.pl +++ b/labels/label-home.pl @@ -18,23 +18,20 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth qw(get_template_and_user); -use C4::Output qw(output_html_with_http_headers); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); -my $cgi = new CGI; +my $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { template_name => "labels/label-home.tt", query => $cgi, type => "intranet", - authnotrequired => 0, flagsrequired => { catalogue => 1 }, - debug => 1, } );