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

Annotation of /RAST/RASTShared.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (view) (download) (as text)

1 : paarmann 1.1 package RAST::RASTShared;
2 :    
3 :     use strict;
4 :     use warnings;
5 :    
6 :     use base qw( Exporter );
7 :     our @EXPORT = qw ( get_menu_job );
8 :    
9 :     1;
10 :    
11 :    
12 :     sub get_menu_job {
13 :     my ($menu, $job) = @_;
14 :    
15 :     if ($job) {
16 :     my $jobmenu = 'Job #'.$job->id;
17 :     $menu->add_category($jobmenu, "?page=JobDetails&job=".$job->id);
18 :     $menu->add_entry($jobmenu, 'Debug this job',
19 :     'rast.cgi?page=JobDebugger&job='.$job->id, undef, [ 'debug' ]);
20 :     $menu->add_entry($jobmenu, 'Change job priority',
21 :     'rast.cgi?page=JobPriority&job='.$job->id, undef, [ 'debug' ]);
22 :     $menu->add_entry($jobmenu, 'Delete this job',
23 :     'rast.cgi?page=JobDelete&job='.$job->id, undef, ['delete', 'genome', $job->id ]);
24 : paczian 1.2 $menu->add_entry($jobmenu, 'Compare this job', 'rast.cgi?page=GenomeStatistics&job='.$job->id, undef, [ 'debug' ]);
25 : paarmann 1.1 }
26 :    
27 :     return 1;
28 :    
29 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3