[Bio] / SeedViewer / seedviewer.cgi Repository:
ViewVC logotype

Annotation of /SeedViewer/seedviewer.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (view) (download)

1 : paczian 1.1 use strict;
2 :     use warnings;
3 :    
4 :     use DBMaster;
5 :     use WebApplication;
6 :     use WebMenu;
7 :     use WebLayout;
8 :    
9 :     eval {
10 :     &main;
11 :     };
12 :    
13 :     if ($@)
14 :     {
15 :     my $cgi = new CGI();
16 :    
17 :     print $cgi->header();
18 :     print $cgi->start_html();
19 :    
20 :     # print out the error
21 :     print '<pre>'.$@.'</pre>';
22 :    
23 :     print $cgi->end_html();
24 :    
25 :     }
26 :    
27 :     sub main {
28 :    
29 :     # initialize cgi
30 :     my $cgi = new CGI();
31 :    
32 :     # initialize db-master
33 :     my $dbmaster = DBMaster->new(-database => 'WebAppBackend');
34 :    
35 :     # initialize layout
36 :     my $layout = WebLayout->new('./Html/SeedViewer.tmpl');
37 :     $layout->add_css('./Html/seedviewer.css');
38 :    
39 :     # build menu
40 :     my $menu = WebMenu->new();
41 : paczian 1.2 $menu->add_category('&raquo;Navigate', '?page=Home');
42 :     $menu->add_entry('&raquo;Navigate', 'Search', '?page=Home');
43 : paczian 1.3 $menu->add_entry('&raquo;Navigate', 'Subsystems', '?page=SubsystemSelect');
44 : paczian 1.2 $menu->add_entry('&raquo;Navigate', 'Organisms', '?page=OrganismSelect');
45 : paczian 1.3 $menu->add_category('&raquo;Teacher', '?page=Teach', undef, ['edit', 'problem_list'], 96);
46 :     #$menu->add_category('&raquo;Analysis', '?page=Analysis', undef, ['login'], 97);
47 : paczian 1.2 $menu->add_category('&raquo;Help', 'http://biofiler.mcs.anl.gov', 'help', undef, 98);
48 :     $menu->add_entry('&raquo;Help', 'What is the SEED', 'http://www.theseed.org');
49 :     $menu->add_entry('&raquo;Help', 'HowTo use the SEED Viewer', 'http://www.theseed.org');
50 :     $menu->add_entry('&raquo;Help', 'Submitting Data to SEED', 'http://www.theseed.org');
51 :     $menu->add_entry('&raquo;Help', 'Contact', 'http://www.theseed.org');
52 :     $menu->add_entry('&raquo;Help', 'Register', '?page=Register');
53 : paczian 1.1
54 :     # initialize application
55 :     my $WebApp = WebApplication->new( { id => 'SeedViewer',
56 :     dbmaster => $dbmaster,
57 :     menu => $menu,
58 :     layout => $layout,
59 :     default => 'Home',
60 :     } );
61 :    
62 :     # run application
63 :     $WebApp->run();
64 :    
65 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3