Attachment 37818 Details for Bug 10131 – Bug 10131: Add a fallback if the pref search is not a valid regex

[patch] Bug 10131: Add a fallback if the pref search is not a valid regex

Bug-10131-Add-a-fallback-if-the-pref-search-is-not.patch (text/plain), 1.26 KB, created by Jonathan Druart on 2015-04-14 11:49:38 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2015-04-14 11:49:38 UTC

Size: 1.26 KB

patch

obsolete

>From 0b03ecf165a4f5774476140ce94578f53bd431df Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@biblibre.com>
>Date: Tue, 14 Apr 2015 13:45:14 +0200
>Subject: [PATCH] Bug 10131: Add a fallback if the pref search is not a valid
> regex
>
>It's possible to search prefs using a regex.
>But it the regex is not correctly written, the app explodes.
>We should provide a fallback.
>
>Test plan:
>0/ Does not apply the patch
>1/ Search for sysprefs with "notes.*", note the number of results
>2/ Search for *notes*, boom
>3/ Apply the patch
>4/ Repeat 1 and confirm you get the same number of results
>5/ Repeat 2 and confirm you don't get the error anymore
>---
> admin/preferences.pl | 10 +++++++++-
> 1 file changed, 9 insertions(+), 1 deletion(-)
>
>diff --git a/admin/preferences.pl b/admin/preferences.pl
>index a6b4776..4fc2612 100755
>--- a/admin/preferences.pl
>+++ b/admin/preferences.pl
>@@ -271,7 +271,15 @@ sub SearchPrefs {
> 
> sub matches {
>     my ( $text, $terms ) = @_;
>-    if ( $text ) { return !grep( { $text !~ /$_/i } @$terms ); }
>+    if ( $text ) {
>+        return !grep(
>+            {
>+                my $re = eval{qr|$_|i};
>+                $re = qr|\Q$_\E| if $@;
>+                $text !~ m|$re|;
>+            } @$terms
>+        )
>+    }
> }
> 
> my $dbh = C4::Context->dbh;
>-- 
>2.1.0

Actions: View | Diff | Splinter Review

Attachments on bug 10131: 37818 | 37825 | 37826 | 37920