From 47d846fa3c19ba5d851ea9320689b64278fa87f7 Mon Sep 17 00:00:00 2001
From: Jared Camins-Esakov <jcamins@cpbibliography.com>
Date: Thu, 20 Sep 2012 07:39:16 -0400
Subject: [PATCH] Bug 8726 follow-up: fix QA issues

Fixes several perlcritic complaints, and some overflow in the
configuration page. Also notes that Did You Mean is not yet
enabled on the staff client.
---
 Koha/SuggestionEngine/Base.pm                      |   48 +------------------
 Koha/SuggestionEngine/Plugin/AuthorityFile.pm      |   20 +++++++-
 Koha/SuggestionEngine/Plugin/ExplodedTerms.pm      |   20 +++++++-
 Koha/SuggestionEngine/Plugin/Null.pm               |   20 +++++++-
 .../intranet-tmpl/prog/en/css/staff-global.css     |    4 --
 .../prog/en/modules/admin/didyoumean.tt            |   11 +++--
 6 files changed, 63 insertions(+), 60 deletions(-)

diff --git a/Koha/SuggestionEngine/Base.pm b/Koha/SuggestionEngine/Base.pm
index 5c52e2b..9565a7e 100644
--- a/Koha/SuggestionEngine/Base.pm
+++ b/Koha/SuggestionEngine/Base.pm
@@ -34,9 +34,9 @@ B<get_suggestions (\%param)> - get suggestions for the search described
 in $param->{'search'}, and return them in a hashref with the suggestions
 as keys and relevance as values.
 
-The following variables must be defined in each filter:
-  our $NAME ='Filter';
-  our $VERSION = '1.0';
+B<NAME> - return a string with the name of the plugin.
+
+B<VERSION> - return a string with the version of the plugin.
 
 These methods may be overriden:
 
@@ -123,46 +123,4 @@ sub get_suggestions {
     return;
 }
 
-=head2 NAME
-
-    my $name = $plugin->NAME;
-
-Getter function for plugin names.
-
-=cut
-
-sub NAME {
-    my $self = shift;
-    my $package = ref $self || $self;
-    return eval '$' . $package . '::NAME';
-}
-
-=head2 VERSION
-
-    my $version = $plugin->VERSION;
-
-Getter function for plugin versions.
-
-=cut
-
-sub VERSION {
-    my $self = shift;
-    my $package = ref $self || $self;
-    return eval '$' . $package . '::VERSION';
-}
-
-=head2 DESCRIPTION
-
-    my $description = $plugin->DESCRIPTION;
-
-Getter function for plugin descriptions.
-
-=cut
-
-sub DESCRIPTION {
-    my $self = shift;
-    my $package = ref $self || $self;
-    return eval '$' . $package . '::DESCRIPTION';
-}
-
 1;
diff --git a/Koha/SuggestionEngine/Plugin/AuthorityFile.pm b/Koha/SuggestionEngine/Plugin/AuthorityFile.pm
index 54a7248..cb4eefc 100644
--- a/Koha/SuggestionEngine/Plugin/AuthorityFile.pm
+++ b/Koha/SuggestionEngine/Plugin/AuthorityFile.pm
@@ -35,8 +35,24 @@ use warnings;
 use Carp;
 
 use base qw(Koha::SuggestionEngine::Base);
-our $NAME    = 'AuthorityFile';
-our $VERSION = '1.0';
+
+=head2 NAME
+    my $name = $plugin->NAME;
+
+=cut
+
+sub NAME {
+    return 'AuthorityFile';
+}
+
+=head2 VERSION
+    my $version = $plugin->VERSION;
+
+=cut
+
+sub VERSION {
+    return '1.1';
+}
 
 =head2 get_suggestions
 
diff --git a/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm b/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm
index a380261..3874ce9 100644
--- a/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm
+++ b/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm
@@ -37,8 +37,24 @@ use Carp;
 use C4::Templates qw(gettemplate); # This is necessary for translatability
 
 use base qw(Koha::SuggestionEngine::Base);
-our $NAME    = 'ExplodedTerms';
-our $VERSION = '1.0';
+
+=head2 NAME
+    my $name = $plugin->NAME;
+
+=cut
+
+sub NAME {
+    return 'ExplodedTerms';
+}
+
+=head2 VERSION
+    my $version = $plugin->VERSION;
+
+=cut
+
+sub VERSION {
+    return '1.0';
+}
 
 =head2 get_suggestions
 
diff --git a/Koha/SuggestionEngine/Plugin/Null.pm b/Koha/SuggestionEngine/Plugin/Null.pm
index 307e035..a665661 100644
--- a/Koha/SuggestionEngine/Plugin/Null.pm
+++ b/Koha/SuggestionEngine/Plugin/Null.pm
@@ -36,8 +36,24 @@ use warnings;
 use Carp;
 
 use base qw(Koha::SuggestionEngine::Base);
-our $NAME    = 'Null';
-our $VERSION = '1.0';
+
+=head2 NAME
+    my $name = $plugin->NAME;
+
+=cut
+
+sub NAME {
+    return 'Null';
+}
+
+=head2 VERSION
+    my $version = $plugin->VERSION;
+
+=cut
+
+sub VERSION {
+    return '1.1';
+}
 
 =head2 get_suggestions
 
diff --git a/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css b/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css
index 8acdbf5..96a34f8 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css
+++ b/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css
@@ -2429,10 +2429,6 @@ ul.ui-tabs-nav li {
     width: 260px;
 }
 
-#didyoumeanlegend {
-    float: right;
-}
-
 .pluginlist {
     padding-bottom: 10px;
 }
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/didyoumean.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/didyoumean.tt
index b534fed..8d2ae52 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/didyoumean.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/didyoumean.tt
@@ -3,8 +3,8 @@
 [% FOREACH plugin IN plugins %]
     <div class="plugin">
         <div class="pluginname">
-            [% IF plugin.enabled %]<input type="checkbox" checked="checked" id="checkbox_[% plugin.name %]">[% ELSE %]<input type="checkbox" id="checkbox_[% plugin.name %]">[% END %]
-            <label class='pluginlabel' for="checkbox_[% plugin.name %]">[% plugin.name %]</label></div>
+            [% IF plugin.enabled %]<input type="checkbox" checked="checked" id="checkbox_[% type %][% plugin.name %]">[% ELSE %]<input type="checkbox" id="checkbox_[% type %][% plugin.name %]">[% END %]
+            <label class='pluginlabel' for="checkbox_[% type %][% plugin.name %]">[% plugin.name %]</label></div>
         <div class="plugindesc">
         [% SWITCH plugin.name %]
         [% CASE 'AuthorityFile' %]
@@ -81,16 +81,17 @@
         <div id="didyoumeanlegend">
             Please put the <em>Did you mean?</em> plugins in order by significance, from
             most significant to least significant, and check the box to enable those
-            plugins that you want to use.
+            plugins that you want to use. (NOTE: <em>Did you mean?</em> functionality
+            is not yet enabled on the staff client)
         </div>
         <form action="/cgi-bin/koha/admin/didyoumean.pl" method="post">
             <fieldset id="didyoumeanopac">
                 <legend>OPAC</legend>
-                [% PROCESS pluginlist plugins=OPACpluginlist %]
+                [% PROCESS pluginlist plugins=OPACpluginlist type='opac' %]
             </fieldset>
             <fieldset id="didyoumeanintranet">
                 <legend>Intranet</legend>
-                [% PROCESS pluginlist plugins=INTRApluginlist %]
+                [% PROCESS pluginlist plugins=INTRApluginlist type='intranet' %]
             </fieldset>
             <fieldset class="action"><button class="save-all submit" onclick="yesimeant();return false;" type="submit">Save configuration</button> <a href="#" onclick="window.location.reload(true);" class="cancel">Cancel</a></fieldset>
         </form>
-- 
1.7.2.5