From: gmc <gmc@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 30 Jun 2010 23:06:15 +0000 (+0000)
Subject: bug #600432: fix MARC expert search
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=324913c861b22e8dcc0f2bf29674cd7536d9041c;p=evergreen%2Fbjwebb.git

bug #600432: fix MARC expert search

Fix gitch introduced via overzealous tidying that broke MARC
expert search; in the expression @array || $scalar, @array
is evaluated in scalar context and thus returns the number
of elements in it.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>


git-svn-id: svn://svn.open-ils.org/ILS/trunk@16837 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
index bb715ef94..dc6bf8be9 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
@@ -432,7 +432,8 @@ sub biblio_multi_search_full_rec {
 		my $term     = $$arg{term};
 		my $limiters = $$arg{restrict};
 
-		my ($index_col)  = metabib::full_rec->columns('FTS') || 'value';
+		my ($index_col)  = metabib::full_rec->columns('FTS');
+		$index_col ||= 'value';
 		my $search_table = metabib::full_rec->table;
 
 		my $fts = OpenILS::Application::Storage::FTS->compile('default' => $term, 'value',"$index_col");