--- nfo/perl/libs/OEF/YAA/Jobs.pm	2003/04/04 17:29:49	1.3
+++ nfo/perl/libs/OEF/YAA/Jobs.pm	2003/04/18 16:04:03	1.4
@@ -1,7 +1,10 @@
 ## -------------------------------------------------------------------------
-##  $Id: Jobs.pm,v 1.3 2003/04/04 17:29:49 joko Exp $
+##  $Id: Jobs.pm,v 1.4 2003/04/18 16:04:03 joko Exp $
 ## -------------------------------------------------------------------------
 ##  $Log: Jobs.pm,v $
+##  Revision 1.4  2003/04/18 16:04:03  joko
+##  new api method: getTaskGroups - returns job groups (just a hash) from some configuration slot
+##
 ##  Revision 1.3  2003/04/04 17:29:49  joko
 ##  updated signatures: session-based service
 ##  enabled method protection
@@ -82,6 +85,15 @@
         help => "",
         protected => 1,
       },
+      {
+        name => "getTaskGroups",
+        version => "0.02",
+        hidden => 0,
+        code => \&getTaskGroups,
+        signature => [ 'struct', 'struct struct' ],
+        help => "",
+        protected => 0,
+      },
     ];
     $self->register($procs);
   }  
@@ -228,6 +240,17 @@
   }
 
 
+  sub getTaskGroups {
+    my $self = shift;
+
+    $logger->info( __PACKAGE__ . "->getTaskGroups()" );
+    
+    # emulate a row based result
+    my $jobgroups = $bizProcess->{app}->{config}->{jobs}->{groups};
+    
+    return $jobgroups;
+    
+  }
 
 
 1;