* [Bug #12605] Fix: Search with paragraphs

2 files changed, 8 insertions, 4 deletions

diff --git a/lib/Tools.pm b/lib/Tools.pm
index 2f15fcf..aac926f 100644
--- a/lib/Tools.pm
+++ b/lib/Tools.pm
@@ -342,6 +342,10 @@ sub _buildsearchcomma {
     $su =~ s/\)/\\\)/sg;
 
     $su =~ s/\*/\.*/sg;
+    # Search strings to paragraphs like Cast:ABC  => 'Cast:[^:]*ABC';
+    if($queryField =~ /description/) {
+      $su =~ s/\:/\:\[\^\:\]\*/;
+    }
 
     $out .= ' AND ' if($out);
     if($su =~ s/^\-+//) {
@@ -391,6 +395,10 @@ sub _buildsearchlogical {
         $su =~ s/\)/\\\)/sg;
 
         $su =~ s/\*/\.*/sg;
+        # Search strings to paragraphs like Cast:ABC  => 'Cast:[^:]*ABC';
+        if($queryField =~ /description/) {
+          $su =~ s/\:/\:\[\^\:\]\*/;
+        }
 
         $out .= qq| ($queryField RLIKE ?)|;
         push(@$term,$su);
diff --git a/lib/XXV/MODULES/AUTOTIMER.pm b/lib/XXV/MODULES/AUTOTIMER.pm
index 4c87ee4..5901524 100644
--- a/lib/XXV/MODULES/AUTOTIMER.pm
+++ b/lib/XXV/MODULES/AUTOTIMER.pm
@@ -1099,10 +1099,6 @@ sub _eventsearch {
     my $term = [];
   
     if($a->{Search}) {
-  		# Search strings to Paragraphs Changed
-  		$a->{Search} =~ s/\:/\:\.\*/
-  			if($a->{InFields} =~ /description/);
-
       $query = buildsearch($a->{InFields}, $a->{Search});
       $search = $query->{query};
       $term = $query->{term};