avoiding warning
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 4 Sep 2006 04:25:18 +0000 (04:25 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 4 Sep 2006 04:25:18 +0000 (04:25 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5914 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm

index 4fef736..77d8122 100644 (file)
@@ -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);