From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 10 Jan 2007 07:24:08 +0000 (+0000)
Subject: typo ... arg
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=89f2afb56907c5bbe95db1bdc38c00518969cc7d;p=Evergreen.git

typo ... arg


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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/money.pm
index 6034ee400e..22778dbf7b 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/money.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/money.pm
@@ -244,7 +244,7 @@ SELECT  usr,
 		my ($org) = actor::org_unit->search( shortname => uc($l) );
 		next unless $org;
 
-		my $o_list = actor::org_unit->db_Main->selectcol_arrayref->( "SELECT id FROM actor.org_unit_descendants(?);", {}, $org->id );
+		my $o_list = actor::org_unit->db_Main->selectcol_arrayref( "SELECT id FROM actor.org_unit_descendants(?);", {}, $org->id );
 		next unless (@$o_list);
 
 		my $o_txt = join ',' => @$o_list;
@@ -257,7 +257,7 @@ SELECT  usr,
 			$org->id, $startdate, $enddate,
 			$org->id, $startdate, $enddate,
 			$org->id, $startdate, $enddate,
-			$org->id, $startdate, $enddate,
+			$org->id, $startdate, $enddate
 		);
 
 		while (my $row = $sth->fetchrow_hashref) {