[Bio] / IGSBPortal / igsb.cgi Repository:
ViewVC logotype

View of /IGSBPortal/igsb.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (annotate)
Tue Jul 6 17:05:45 2010 UTC (9 years, 3 months ago) by wilke
Branch: MAIN
CVS Tags: HEAD
*** empty log message ***

use strict;
use warnings;
no warnings 'once';

use WebApplication;
use WebMenu;
use WebLayout;
use WebConfig;

use FIG_Config;

eval {
    &main;
};

if ($@)
{
    my $cgi = new CGI();

    print $cgi->header();
    print $cgi->start_html();
    
    # print out the error
    print '<pre>'.$@.'</pre>';

    print $cgi->end_html();

}

sub main {


    my $layout = WebLayout->new(TMPL_PATH.'IGSB.tmpl');
    $layout->add_css("$FIG_Config::cgi_url/Html/IGSB.css");

    # build menu
    my $menu = WebMenu->new();
    $menu->add_category('&raquo;Navigate', '?');
    $menu->add_entry('&raquo;Navigate', 'IGSB Home', 'http://www.igsb.org');
    
    $menu->add_category('Manage', '' , '', undef , ['login'] );	    
    $menu->add_entry('Manage', 'Manage Offers', '?page=ManageOffers' , undef , ['login'] ); 
    $menu->add_entry('Manage', 'Manage Samples', '?page=ManageSamples' , undef , ['login'] ); 	
    $menu->add_entry('Manage', 'Create Run Config', '?page=CreateConfig' , undef , ['login'] );       
   #  # help
#     $menu->add_category('&raquo;Help', 'http://www.theseed.org', 'help', undef, 98);
#     $menu->add_entry('&raquo;Help', 'What is the SEED', 'http://www.theseed.org/wiki/Home_of_the_SEED');
#     $menu->add_entry('&raquo;Help', 'HowTo use the MG-RAST', 'http://www.nmpdr.org/FIG/wiki/view.cgi/Main/MG-RAST');
#     $menu->add_entry('&raquo;Help', 'Submitting Data to MG-RAST', 'http://www.nmpdr.org/FIG/wiki/view.cgi/Main/MG-RAST#Upload_and_manage_your_job');
#     $menu->add_entry('&raquo;Help', 'Contact', 'http://www.theseed.org/wiki/Contact');
#     $menu->add_entry('&raquo;Help', 'Register', '?page=Register');
#     $menu->add_entry('&raquo;Help', 'I forgot my Password', '?page=RequestNewPassword');

    # initialize application
    my $WebApp = WebApplication->new( { id       => 'IGSBportal',
					menu     => $menu,
					layout   => $layout,
					default  => 'RequestOffer',
				      } );
    $WebApp->page_title_prefix('IGSB - ');
    $WebApp->show_login_user_info(1);

    # run application
    $WebApp->run();

}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3