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

Diff of /SeedViewer/seedviewer.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4, Wed Nov 7 17:09:12 2007 UTC revision 1.5, Mon Nov 26 17:29:08 2007 UTC
# Line 5  Line 5 
5  use WebApplication;  use WebApplication;
6  use WebMenu;  use WebMenu;
7  use WebLayout;  use WebLayout;
8    use FIG_Config;
9    
10  eval {  eval {
11      &main;      &main;
# Line 30  Line 31 
31      my $cgi = new CGI();      my $cgi = new CGI();
32    
33      # initialize db-master      # initialize db-master
34      my $dbmaster = DBMaster->new(-database => 'WebAppBackend');      #my $dbmaster = DBMaster->new(-database => 'WebAppBackend');
35    
36      # initialize layout      # initialize layout
37      my $layout = WebLayout->new('./Html/SeedViewer.tmpl');      my $layout = WebLayout->new('./Html/SeedViewer.tmpl');
# Line 40  Line 41 
41      # build menu      # build menu
42      my $menu = WebMenu->new();      my $menu = WebMenu->new();
43      $menu->add_category('»Navigate', '?page=Home');      $menu->add_category('»Navigate', '?page=Home');
44      $menu->add_entry('»Navigate', 'Search', '?page=Home');      $menu->add_entry('»Navigate', 'Startpage', '?page=Home');
     $menu->add_entry('»Navigate', 'Subsystems', '?page=SubsystemSelect');  
45      $menu->add_entry('»Navigate', 'Organisms', '?page=OrganismSelect');      $menu->add_entry('»Navigate', 'Organisms', '?page=OrganismSelect');
46        $menu->add_entry('»Navigate', 'Subsystems', '?page=SubsystemSelect');
47        $menu->add_entry('»Navigate', 'Blast', '?page=BlastRun');
48        $menu->add_entry('&raquo;Navigate', "<form style='margin: 0px 0px 0px 6px;'>ID&nbsp;&nbsp;<input type='text' name='pattern' style='border: 1px solid #5da668; width: 120px; height: 17px; margin-top: 2px; font-size: 11px;'><input type='hidden' name='page' value='SearchResult'><input type='hidden' name='action' value='check_search'><input type='submit' style='display:none;'></form>");
49    
50        if (defined($FIG_Config::teacher_db)) {
51      $menu->add_category('&raquo;Teacher', '?page=Teach', undef, ['edit', 'problem_list'], 96);      $menu->add_category('&raquo;Teacher', '?page=Teach', undef, ['edit', 'problem_list'], 96);
52            $menu->add_entry('&raquo;Teacher', 'Class Performance', '?page=Teach');
53            $menu->add_entry('&raquo;Teacher', 'Class Management', '?page=ManageClass');
54            $menu->add_entry('&raquo;Teacher', 'Problem Sets', '?page=ManageProblemSets');
55        }
56      $menu->add_category('&raquo;Admin', '?page=Admin', undef, ['edit', 'scope', '*'], 99);      $menu->add_category('&raquo;Admin', '?page=Admin', undef, ['edit', 'scope', '*'], 99);
57      $menu->add_category('&raquo;Help', 'http://www.theseed.org', 'help', undef, 98);      $menu->add_category('&raquo;Help', 'http://www.theseed.org', 'help', undef, 98);
58      $menu->add_entry('&raquo;Help', 'What is the SEED', 'http://www.theseed.org/wiki/Home_of_the_SEED');      $menu->add_entry('&raquo;Help', 'What is the SEED', 'http://www.theseed.org/wiki/Home_of_the_SEED');
# Line 54  Line 63 
63    
64      # initialize application      # initialize application
65      my $WebApp = WebApplication->new( { id => 'SeedViewer',      my $WebApp = WebApplication->new( { id => 'SeedViewer',
66                                          dbmaster => $dbmaster,                                          #dbmaster => $dbmaster,
67                                          menu     => $menu,                                          menu     => $menu,
68                                          layout   => $layout,                                          layout   => $layout,
69                                          default  => 'Home',                                          default  => 'Home',
70                                        } );                                        } );
71        $WebApp->show_login_user_info(1);
72    
73      # run application      # run application
74      $WebApp->run();      $WebApp->run();

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3