[open-ils-commits] r8633 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-02-05 10:16:04 -0500 (Tue, 05 Feb 2008)
New Revision: 8633

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
fixed some typos

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2008-02-05 15:15:57 UTC (rev 8632)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2008-02-05 15:16:04 UTC (rev 8633)
@@ -1383,7 +1383,7 @@
 	my($self, $org_id, $depth) = @_;
 	$depth ||= 0;
 
-	my $org_list = OpenILS::Utils::CStoreEditor->new->json_query(
+	my $org_list = OpenILS::Utils::CStoreEditor->new->json_query({
 		select => {
 			aou => [{
 				transform => 'actor.org_unit_descendants',
@@ -1391,12 +1391,12 @@
 				result_field => 'id',
 				params => [$depth]
 			}],
-			from => 'aou',
-			where => {id => $org_id}
-		}
-	);
+		},
+        from => 'aou',
+		where => {id => $org_id}
+	});
 	my @orgs;
-	push(@orgs, $_->{id}) for $org_list;
+	push(@orgs, $_->{id}) for @$org_list;
 	return \@orgs;
 }
 
@@ -1404,7 +1404,7 @@
 	my($self, $org_id, $depth) = @_;
 	$depth ||= 0;
 
-	my $org_list = OpenILS::Utils::CStoreEditor->new->json_query(
+	my $org_list = OpenILS::Utils::CStoreEditor->new->json_query({
 		select => {
 			aou => [{
 				transform => 'actor.org_unit_ancestors',
@@ -1412,13 +1412,13 @@
 				result_field => 'id',
 				params => [$depth]
 			}],
-			from => 'aou',
-			where => {id => $org_id}
-		}
-	);
+		},
+		from => 'aou',
+		where => {id => $org_id}
+	});
 
 	my @orgs;
-	push(@orgs, $_->{id}) for $org_list;
+	push(@orgs, $_->{id}) for @$org_list;
 	return \@orgs;
 }
 
@@ -1426,7 +1426,7 @@
 	my($self, $org_id, $depth) = @_;
 	$depth ||= 0;
 
-	my $org_list = OpenILS::Utils::CStoreEditor->new->json_query(
+	my $org_list = OpenILS::Utils::CStoreEditor->new->json_query({
 		select => {
 			aou => [{
 				transform => 'actor.org_unit_full_path',
@@ -1434,13 +1434,13 @@
 				result_field => 'id',
 				params => [$depth]
 			}],
-			from => 'aou',
-			where => {id => $org_id}
-		}
-	);
+		},
+		from => 'aou',
+		where => {id => $org_id}
+	});
 
 	my @orgs;
-	push(@orgs, $_->{id}) for $org_list;
+	push(@orgs, $_->{id}) for @$org_list;
 	return \@orgs;
 }