[open-ils-commits] r9281 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher

[svn at svn.open-ils.org]

Author: miker
Date: 2008-04-09 13:22:51 -0400 (Wed, 09 Apr 2008)
New Revision: 9281

Modified:
   branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
Log:
adjusting address search for cloned users

Modified: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm	2008-04-09 16:10:07 UTC (rev 9280)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm	2008-04-09 17:22:51 UTC (rev 9281)
@@ -504,12 +504,14 @@
 	my $ou_table = actor::org_unit->table;
 
 	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 $a_select = "SELECT u.id as id FROM $a_table a JOIN $u_table u ON (u.mailing_address = a.id OR u.billing_address = a.id) WHERE $addr_where";
+
 	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 ON (clone.id = users.id)" if ($addr_where);
 
+	#$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 ON (clone.id = users.id)" if ($addr_where);
+
 	my $select = '';
 	if ($usr_where) {
 		if ($addr_where) {