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

View of /RAST/RASTShared.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (download) (as text) (annotate)
Mon Jun 16 16:23:55 2008 UTC (11 years, 11 months ago) by paczian
Branch: MAIN
CVS Tags: rast_rel_2008_06_18, rast_rel_2008_07_21, rast_2008_0924, rast_rel_2008_09_30, mgrast_rel_2008_0923, mgrast_rel_2008_0924, mgrast_rel_2008_0625, rast_rel_2008_08_07, mgrast_rel_2008_1110_v2, rast_rel_2008_10_09, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0919, mgrast_rel_2008_1110, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, rast_rel_2008_11_24
Changes since 1.2: +1 -1 lines
fixed delete job entry in 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->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