From 47d846fa3c19ba5d851ea9320689b64278fa87f7 Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov 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 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 - return a string with the name of the plugin. + +B - 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 %]
- [% IF plugin.enabled %][% ELSE %][% END %] -
+ [% IF plugin.enabled %][% ELSE %][% END %] +
[% SWITCH plugin.name %] [% CASE 'AuthorityFile' %] @@ -81,16 +81,17 @@
Please put the Did you mean? 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: Did you mean? functionality + is not yet enabled on the staff client)
OPAC - [% PROCESS pluginlist plugins=OPACpluginlist %] + [% PROCESS pluginlist plugins=OPACpluginlist type='opac' %]
Intranet - [% PROCESS pluginlist plugins=INTRApluginlist %] + [% PROCESS pluginlist plugins=INTRApluginlist type='intranet' %]
Cancel
-- 1.7.2.5