use Modern::Perl;
use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::AudioAlert;
use Koha::AudioAlerts;
-my $cgi = new CGI;
+my $cgi = CGI->new;
my $selector = $cgi->param('selector');
my $sound = $cgi->param('sound');
query => $cgi,
type => "intranet",
flagsrequired => { parameters => 'manage_audio_alerts' },
- debug => 1,
}
);
Koha::AudioAlerts->fix_precedences();
}
-$template->param( AudioAlertsPage => 1, audio_alerts => scalar Koha::AudioAlerts->search() );
+$template->param( AudioAlertsPage => 1, audio_alerts => Koha::AudioAlerts->search() );
output_html_with_http_headers $cgi, $cookie, $template->output;