[Bio] / RAST / RASTShared.pm Repository:
ViewVC logotype

View of /RAST/RASTShared.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Mon Apr 14 19:38:34 2008 UTC (12 years, 2 months ago) by paarmann
Branch: MAIN
method get_menu_job for the shared menu

package RAST::RASTShared;

use strict;
use warnings;

use base qw( Exporter );
our @EXPORT = qw ( get_menu_job );

1;


sub get_menu_job {
  my ($menu, $job) = @_;
 
  if ($job) {
    my $jobmenu = 'Job #'.$job->id;
    $menu->add_category($jobmenu, "?page=JobDetails&job=".$job->id);
    $menu->add_entry($jobmenu, 'Debug this job', 
      'rast.cgi?page=JobDebugger&job='.$job->id, undef, [ 'debug' ]);
    $menu->add_entry($jobmenu, 'Change job priority', 
      'rast.cgi?page=JobPriority&job='.$job->id, undef, [ 'debug' ]);
    $menu->add_entry($jobmenu, 'Delete this job', 
      'rast.cgi?page=JobDelete&job='.$job->id, undef, ['delete', 'genome', $job->id ]);
  }

  return 1;

}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3