From f0127ddb4daf9952d4614aab6a86831777261c9b Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Thu, 17 Sep 2015 10:48:24 -0400
Subject: [PATCH] Bug 11431: (QA followup) Move AudioAlerts to a separate
 plugin

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
---
 Koha/Template/Plugin/AudioAlerts.pm           | 36 +++++++++++++++++++
 Koha/Template/Plugin/Koha.pm                  |  8 -----
 .../prog/en/includes/doc-head-close.inc       |  3 +-
 3 files changed, 38 insertions(+), 9 deletions(-)
 create mode 100644 Koha/Template/Plugin/AudioAlerts.pm

diff --git a/Koha/Template/Plugin/AudioAlerts.pm b/Koha/Template/Plugin/AudioAlerts.pm
new file mode 100644
index 0000000000..a8877b63ad
--- /dev/null
+++ b/Koha/Template/Plugin/AudioAlerts.pm
@@ -0,0 +1,36 @@
+package Koha::Template::Plugin::AudioAlerts;
+
+# Copyright ByWater Solutions 2013
+
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
+
+use Modern::Perl;
+
+use Encode qw( encode );
+use JSON;
+
+use base qw( Template::Plugin );
+
+use C4::Context;
+use Koha;
+
+sub AudioAlerts {
+    my $dbh = C4::Context->dbh;
+    my $audio_alerts = $dbh->selectall_arrayref( 'SELECT * FROM audio_alerts ORDER BY precedence', { Slice => {} } );
+    return encode_json($audio_alerts);
+}
+
+1;
diff --git a/Koha/Template/Plugin/Koha.pm b/Koha/Template/Plugin/Koha.pm
index be69c448cb..fc26316758 100644
--- a/Koha/Template/Plugin/Koha.pm
+++ b/Koha/Template/Plugin/Koha.pm
@@ -18,8 +18,6 @@ package Koha::Template::Plugin::Koha;
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 use Modern::Perl;
-use Encode qw( encode );
-use JSON;
 
 use base qw( Template::Plugin );
 
@@ -59,10 +57,4 @@ sub Version {
     };
 }
 
-sub AudioAlerts {
-    my $dbh = C4::Context->dbh;
-    my $audio_alerts = $dbh->selectall_arrayref( 'SELECT * FROM audio_alerts ORDER BY precedence', { Slice => {} } );
-    return encode_json($audio_alerts);
-}
-
 1;
diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-close.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-close.inc
index e553a86e1c..16d6b8a025 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-close.inc
+++ b/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-close.inc
@@ -1,4 +1,5 @@
 [% USE Koha %]
+[% USE AudioAlerts %]
 [% USE String %]
 <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
 <link rel="shortcut icon" href="[% IF ( IntranetFavicon ) %][% IntranetFavicon %][% ELSE %][% interface %]/[% theme %]/img/favicon.ico[% END %]" type="image/x-icon" />
@@ -68,7 +69,7 @@
     <script type="text/javascript">
         //<![CDATA[
             var AUDIO_ALERT_PATH = '[% interface %]/[% theme %]/sound/';
-            var AUDIO_ALERTS = JSON.parse( '[% Koha.AudioAlerts | replace( "'", "\\'" ) %]' );
+            var AUDIO_ALERTS = JSON.parse( '[% AudioAlerts.AudioAlerts | replace( "'", "\\'" ) %]' );
         //]]>
 
         $( document ).ready(function() {
-- 
2.39.5