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 d745288..b8c5800 100644 (file)
--- 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 {