Attachment 51244 Details for Bug 16444 – Bug 16444: Make C4::Tags plack safe

[patch] Bug 16444: Make C4::Tags plack safe

Bug-16444-Make-C4Tags-plack-safe.patch (text/plain), 2.12 KB, created by Jonathan Druart on 2016-05-05 14:53:39 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2016-05-05 14:53:39 UTC

Size: 2.12 KB

patch

obsolete

>From b2f8ef5704f87f2609c232cf7963b3af97794859 Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
>Date: Wed, 4 May 2016 20:20:51 +0100
>Subject: [PATCH] Bug 16444: Make C4::Tags plack safe
>
>C4::Tags use a package variable to cache the pref
>TagsExternalDictionary, it's not needed and not safe.
>
>There is not test plan, just make sure the changes are consistent.
>---
> C4/Tags.pm | 6 ++++--
> 1 file changed, 4 insertions(+), 2 deletions(-)
>
>diff --git a/C4/Tags.pm b/C4/Tags.pm
>index 09afd78..cbdb0a7 100644
>--- a/C4/Tags.pm
>+++ b/C4/Tags.pm
>@@ -30,7 +30,6 @@ use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language d
> use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM   tags_all\n";
> 
> use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
>-our $ext_dict;
> 
> BEGIN {
> 	@ISA = qw(Exporter);
>@@ -50,7 +49,7 @@ BEGIN {
>       stratify_tags
>     );
> 	# %EXPORT_TAGS = ();
>-	$ext_dict = C4::Context->preference('TagsExternalDictionary');
>+	my $ext_dict = C4::Context->preference('TagsExternalDictionary');
> 	if ($debug) {
> 		require Data::Dumper;
> 		import Data::Dumper qw(:DEFAULT);
>@@ -69,6 +68,7 @@ More verose debugging messages are sent in the presence of non-zero $ENV{"DEBUG"
> =cut
> 
> INIT {
>+    my $ext_dict = C4::Context->preference('TagsExternalDictionary');
>     $ext_dict and $Lingua::Ispell::path = $ext_dict;
>     $debug and print STDERR "\$Lingua::Ispell::path = $Lingua::Ispell::path\n";
> }
>@@ -367,6 +367,7 @@ sub is_approved {
> 	my $term = shift or return;
> 	my $sth = C4::Context->dbh->prepare("SELECT approved FROM tags_approval WHERE term = ?");
> 	$sth->execute($term);
>+    my $ext_dict = C4::Context->preference('TagsExternalDictionary');
> 	unless ($sth->rows) {
> 		$ext_dict and return (spellcheck($term) ? 0 : 1);	# spellcheck returns empty on OK word
> 		return 0;
>@@ -390,6 +391,7 @@ sub get_tag_index {
> sub whitelist {
> 	my $operator = shift;
> 	defined $operator or return; # have to test defined to allow =0 (kohaadmin)
>+    my $ext_dict = C4::Context->preference('TagsExternalDictionary');
> 	if ($ext_dict) {
> 		foreach (@_) {
> 			spellcheck($_) or next;
>-- 
>2.7.0

Actions: View | Diff | Splinter Review

Attachments on bug 16444: 51222 | 51244 | 51373 | 52027