From: Bill Erickson <berickxx@gmail.com>
Date: Wed, 29 Oct 2014 21:07:25 +0000 (-0400)
Subject: kmain151_replace_dash_with_space
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=71b63bb854f40459310f3bc11b3a7c773a377b4e;p=working%2FEvergreen.git

kmain151_replace_dash_with_space

    Cross-port: 3b95587
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
index 031a715a5e..c6e8923440 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
@@ -47,7 +47,7 @@ sub _prepare_biblio_search_basics {
         # This stuff probably will need refined or rethought to better handle
         # the weird things Real Users will surely type in.
         $contains = "" unless defined $contains; # silence warning
-        $query =~ s/-//g; # Get rid of -
+        $query =~ s/-/ /g; # replace dash with space
         if ($contains eq 'nocontains') {
             $query =~ s/"//g;
             $query = ('"' . $query . '"') if index $query, ' ';