/[cvs]/nfo/perl/libs/OEF/YAA/Jobs.pm
ViewVC logotype

Diff of /nfo/perl/libs/OEF/YAA/Jobs.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by joko, Fri Apr 4 17:29:49 2003 UTC revision 1.4 by joko, Fri Apr 18 16:04:03 2003 UTC
# Line 2  Line 2 
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
# Line 82  my $bizProcess = $main::bizProcess; Line 85  my $bizProcess = $main::bizProcess;
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    }      }  
# Line 228  my $bizProcess = $main::bizProcess; Line 240  my $bizProcess = $main::bizProcess;
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;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed