From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 18 Oct 2006 16:39:53 +0000 (+0000)
Subject: fetch the full my-orgs list from the passed ou
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=433474884e7799571ef5d3fdb93ccb46b827c907;p=Evergreen.git

fetch the full my-orgs list from the passed ou


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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm b/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm
index d74528885b..b8c580029e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm
@@ -398,6 +398,13 @@ sub magic_fetch_all {
 	my $hint = $$args{hint};
 	my $org_col = $$args{org_column};
 	my $orgs = $$args{org};
+	
+	if ($orgs && !$$args{no_fetch}) {
+		($orgs) = $self
+				->method_lookup( 'open-ils.reporter.org_unit.full_path' )
+				->run( $orgs );
+		$orgs = [ map {$_->id} @$orgs ];
+	}
 
 	# Find the class the iplements the given hint
 	my ($class) = grep {