[Bio] / SubsystemEditor / SubsysEditor.cgi Repository:
ViewVC logotype

Annotation of /SubsystemEditor/SubsysEditor.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (view) (download)

1 : parrello 1.1 use strict;
2 :     use warnings;
3 :    
4 : parrello 1.2 use FIG_Config;
5 :     use lib "$FIG_Config::fig_disk/dist/current/$FIG_Config::arch/lib/WebApplication";
6 :     use lib "$FIG_Config::common_runtime/lib/SubsystemEditor";
7 :    
8 : parrello 1.1 use DBMaster;
9 :     use WebApplication;
10 :     use WebMenu;
11 :     use WebLayout;
12 :    
13 :     my $cgi = new CGI();
14 : bartels 1.3
15 :     my $dbmaster = DBMaster->new( -database => 'WebAppBackend' );
16 :    
17 :     my $layout = WebLayout->new('./Html/SubsystemEditorLayout.tmpl');
18 :     $layout->add_css('./Html/SubsystemEditor.css');
19 :     $layout->add_css('./Html/default.css');
20 :    
21 :     my $menu = WebMenu->new();
22 :     $menu->add_category( 'Home', 'SubsysEditor.cgi?page=SubsystemOverview' );
23 :     $menu->add_category( 'Logout', 'proposeSS.cgi?page=Login&action=perform_logout', undef, [ 'login' ] );
24 :    
25 :     my $WebApp = WebApplication->new( { id => 'SubsystemEditor',
26 :     dbmaster => $dbmaster,
27 :     menu => $menu,
28 :     layout => $layout,
29 :     default => 'SubsystemOverview',
30 :     } );
31 :    
32 :     $WebApp->show_login_user_info(1);
33 :     $WebApp->run();
34 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3