From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 4 Sep 2006 04:25:18 +0000 (+0000)
Subject: avoiding warning
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b19fec5483b76a65966e712e8563d37b925feb2f;p=evergreen%2Fpines.git

avoiding warning


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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
index 4fef7364f8..77d8122254 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
@@ -317,7 +317,8 @@ sub patron_search {
 
 	my $u_select = "SELECT id as id FROM $u_table u WHERE $usr_where";
 	my $a_select = "SELECT usr as id FROM $a_table a WHERE $addr_where";
-	my $clone_select = "JOIN (SELECT cu.id as id FROM $a_table ca ".
+	my $clone_select = '';
+	$clone_select = "JOIN (SELECT cu.id as id FROM $a_table ca ".
 			   "JOIN $u_table cu ON (cu.mailing_address = ca.id OR cu.billing_address = ca.id) ".
 			   "WHERE $addr_where) AS clone USING (id)" if ($addr_where);