2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------- |
## ------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.4 2003/04/18 16:04:03 joko |
6 |
|
## new api method: getTaskGroups - returns job groups (just a hash) from some configuration slot |
7 |
|
## |
8 |
## Revision 1.3 2003/04/04 17:29:49 joko |
## Revision 1.3 2003/04/04 17:29:49 joko |
9 |
## updated signatures: session-based service |
## updated signatures: session-based service |
10 |
## enabled method protection |
## enabled method protection |
85 |
help => "", |
help => "", |
86 |
protected => 1, |
protected => 1, |
87 |
}, |
}, |
88 |
|
{ |
89 |
|
name => "getTaskGroups", |
90 |
|
version => "0.02", |
91 |
|
hidden => 0, |
92 |
|
code => \&getTaskGroups, |
93 |
|
signature => [ 'struct', 'struct struct' ], |
94 |
|
help => "", |
95 |
|
protected => 0, |
96 |
|
}, |
97 |
]; |
]; |
98 |
$self->register($procs); |
$self->register($procs); |
99 |
} |
} |
240 |
} |
} |
241 |
|
|
242 |
|
|
243 |
|
sub getTaskGroups { |
244 |
|
my $self = shift; |
245 |
|
|
246 |
|
$logger->info( __PACKAGE__ . "->getTaskGroups()" ); |
247 |
|
|
248 |
|
# emulate a row based result |
249 |
|
my $jobgroups = $bizProcess->{app}->{config}->{jobs}->{groups}; |
250 |
|
|
251 |
|
return $jobgroups; |
252 |
|
|
253 |
|
} |
254 |
|
|
255 |
|
|
256 |
1; |
1; |