[Bio] / PRAST / prast.cgi Repository:
ViewVC logotype

View of /PRAST/prast.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (download) (annotate) (vendor branch)
Wed Mar 4 15:37:38 2009 UTC (10 years, 7 months ago) by jared
Branch: Initial, MAIN
CVS Tags: start, HEAD
Changes since 1.1: +0 -0 lines
Initial version

use strict;
use warnings;

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


# choose a layout
my $layout = WebLayout->new("$FIG_Config::fig/CGI/Html/PRAST.tmpl");
$layout->add_css(TMPL_URL_PATH.'/default.css');
$layout->add_css(TMPL_URL_PATH.'/rast.css');


# create the menu
my $menu = WebMenu->new();

$menu->add_category('Home', 'prast.cgi', undef, [ 'login' ]);
$menu->add_category('Your Jobs', 'prast.cgi?page=Jobs', undef, [ 'login' ]);
$menu->add_entry('Your Jobs', 'Jobs Overview', 'prast.cgi?page=Jobs');
$menu->add_entry('Your Jobs', 'Upload New Job', 'prast.cgi?page=UploadPlasmid');

# init the WebApplication
my $WebApp = WebApplication->new( { id       => 'PRAST',
                                    menu     => $menu,
                                    layout   => $layout,
                                    default  => 'Home',
                                  } );
	
$WebApp->page_title_prefix('PRAST Server - ');

$WebApp->run();

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3