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

View of /RAST/RASTShared.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (download) (as text) (annotate)
Thu Dec 18 12:57:38 2008 UTC (10 years, 10 months ago) by paczian
Branch: MAIN
CVS Tags: mgrast_dev_02212011, rast_rel_2014_0912, rast_rel_2010_0928, rast_rel_2010_0526, rast_rel_2014_0729, rast_rel_2009_05_18, rast_rel_2009_0925, rast_rel_2010_1206, rast_rel_2010_0118, rast_rel_2009_02_05, rast_rel_2011_0119, rast_rel_2008_12_18, rast_rel_2009_07_09, rast_rel_2010_0827, myrast_33, rast_rel_2011_0928, mgrast_dev_02222011, rast_rel_2009_03_26, HEAD
Changes since 1.3: +1 -1 lines
changed menu category to "Manage Job #x"

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 = 'Manage 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->genome_id ]);
    $menu->add_entry($jobmenu, 'Compare this job', 'rast.cgi?page=GenomeStatistics&job='.$job->id, undef, [ 'debug' ]);
  }

  return 1;

}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3