Convenience-Funktion zum Auslesen von Employee-Objekten zu einer AuthGroup

diff --git a/SL/DB/AuthGroup.pm b/SL/DB/AuthGroup.pm
index 8bd54506ca70fd844f7024a6d27b98266196cc33..fe755c7b501ed3aa4a2afefc3d4b5c2e61b9cb39 100644 (file)
--- a/SL/DB/AuthGroup.pm
+++ b/SL/DB/AuthGroup.pm
@@ -29,4 +29,9 @@ __PACKAGE__->meta->add_relationship(
 
 __PACKAGE__->meta->initialize;
 
+sub get_employees {
+  my @logins = map { $_->login } $_[0]->users;
+  return @logins ? @{ SL::DB::Manager::Employee->get_all(query => [ login => \@logins ]) } : ();
+}
+
 1;