[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.12, Tue Feb 5 04:44:46 2008 UTC revision 1.17, Thu May 1 07:58:38 2008 UTC
# Line 16  Line 16 
16    
17  if ($@)  if ($@)
18  {  {
19        my $error = $@;
20      my $cgi = new CGI();      my $cgi = new CGI();
21    
22      print $cgi->header();      print $cgi->header();
23      print $cgi->start_html();      print $cgi->start_html();
24    
25      # print out the error      # print out the error
26        Trace("Script error: $error") if T(0);
27      print '<pre>'.$@.'</pre>';      print '<pre>'.$@.'</pre>';
28    
29      print $cgi->end_html();      print $cgi->end_html();
# Line 32  Line 34 
34    
35      # initialize cgi      # initialize cgi
36      my $cgi = new CGI();      my $cgi = new CGI();
     ETracing($cgi);  
37    
38      # initialize layout      # initialize layout
39      # Use the template file for the current mode-- NMPDR or SEED      # Use the template file for the current mode-- NMPDR or SEED
40      my $templateFile = (FIGRules::nmpdr_mode($cgi) ? './Html/NmpdrViewer.tmpl' : './Html/SeedViewer.tmpl');      my $templateFile = (FIGRules::nmpdr_mode($cgi) ? './Html/NmpdrViewer.tmpl' : './Html/SeedViewer.tmpl');
41      Trace("Template file is $templateFile") if T(3);      Trace("Template file is $templateFile") if T(3);
42      my $layout = WebLayout->new($templateFile);      my $layout = WebLayout->new($templateFile);
     # Start with the normal style.  
     $layout->add_css('./Html/default.css');  
43      # Choose the body/header style sheet according to the mode.      # Choose the body/header style sheet according to the mode.
44      if (FIGRules::nmpdr_mode($cgi)) {      if (FIGRules::nmpdr_mode($cgi)) {
45          # NMPDR mode.          # NMPDR mode.
46          $layout->add_css('./Html/nmpdrviewer.css');          $layout->add_css('./Html/nmpdrviewer.css');
47          # Show the NMPDR version in the header.          # Display the official NMPDR icon for this machine.
48          $layout->set_variable(VERSION => "Sprout version $FIG_Config::nmpdr_version on $ENV{HTTP_HOST}.");          $layout->add_metatag("<link rel=\"icon\" href=\"${FIG_Config::cgi_base}wiki/pub/logos/nmpdr.ico\" type=\"image/x-icon\" />");
49            $layout->add_metatag("<link rel=\"shortcut icon\" href=\"${FIG_Config::cgi_base}wiki/pub/logos/nmpdr.ico\" type=\"image/x-icon\" />");
50      } else {      } else {
51          # SEED mode.          # SEED mode.
52          $layout->add_css('./Html/seedviewer.css');          $layout->add_css('./Html/seedviewer.css');
53     }     }
54      # Add the common styles.      # Add the common styles.
55      $layout->add_css('./Html/commonviewer.css');      $layout->add_css('./Html/commonviewer.css');
56        # Add the normal style.
57      # add site meter      $layout->add_css('./Html/default.css');
     my $site_meter = $FIG_Config::site_meter;  
     if ($site_meter) {  
         $layout->add_javascript("http://s20.sitemeter.com/js/counter.js?site=s20nmpdr");  
     }  
   
58      # build menu      # build menu
59      my $menu;      my $menu;
60      $menu = WebMenu->new();      $menu = WebMenu->new();
61        if (FIGRules::nmpdr_mode($cgi)) {
62            $menu->add_category('&raquo;Navigate', '?page=Home');
63            $menu->add_entry('&raquo;Navigate', 'NMPDR home', "$FIG_Config::nmpdr_site_url/index.php");
64            $menu->add_entry('&raquo;Navigate', 'Organisms', "$FIG_Config::nmpdr_site_url/content/organisms.php");
65            $menu->add_entry('&raquo;Navigate', 'Subsystems', "$FIG_Config::nmpdr_site_url/content/subsystems.php");
66            $menu->add_entry('&raquo;Navigate', 'FigFams', '?page=FigFamViewer');
67        } else {
68      $menu->add_category('&raquo;Navigate', '?page=Home');      $menu->add_category('&raquo;Navigate', '?page=Home');
69      $menu->add_entry('&raquo;Navigate', 'Startpage', '?page=Home');      $menu->add_entry('&raquo;Navigate', 'Startpage', '?page=Home');
70      $menu->add_entry('&raquo;Navigate', 'Organisms', '?page=OrganismSelect');      $menu->add_entry('&raquo;Navigate', 'Organisms', '?page=OrganismSelect');
71      $menu->add_entry('&raquo;Navigate', 'Subsystems', '?page=SubsystemSelect');      $menu->add_entry('&raquo;Navigate', 'Subsystems', '?page=SubsystemSelect');
72            $menu->add_entry('&raquo;Navigate', 'FigFams', '?page=FigFamViewer');
73      $menu->add_entry('&raquo;Navigate', '<a>Jump to Feature by</a>');      $menu->add_entry('&raquo;Navigate', '<a>Jump to Feature by</a>');
74      $menu->add_entry('&raquo;Navigate', '&nbsp;&nbsp;BLAST Search', '?page=BlastRun');      $menu->add_entry('&raquo;Navigate', '&nbsp;&nbsp;BLAST Search', '?page=BlastRun');
75      $menu->add_entry('&raquo;Navigate', "<form style='margin: 0px 0px 0px 6px;'>&nbsp;&nbsp;ID&nbsp;&nbsp;<input type='text' name='pattern' style='border: 1px solid #5da668; width: 100px; 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>");      $menu->add_entry('&raquo;Navigate', "<form style='margin: 0px 0px 0px 6px;'>&nbsp;&nbsp;ID&nbsp;&nbsp;<input type='text' name='pattern' style='border: 1px solid #5da668; width: 100px; 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>");
76        }
77      if (defined($FIG_Config::teacher_db)) {      if (defined($FIG_Config::teacher_db)) {
78          $menu->add_category('&raquo;Teacher', '?page=Teach', undef, ['edit', 'problem_list'], 96);          $menu->add_category('&raquo;Teacher', '?page=Teach', undef, ['edit', 'problem_list'], 96);
79          $menu->add_entry('&raquo;Teacher', 'Class Performance', '?page=Teach');          $menu->add_entry('&raquo;Teacher', 'Class Performance', '?page=Teach');
# Line 80  Line 83 
83      }      }
84      #$menu->add_category('&raquo;Admin', '?page=Admin', undef, ['edit', 'scope', '*'], 99);      #$menu->add_category('&raquo;Admin', '?page=Admin', undef, ['edit', 'scope', '*'], 99);
85      if (FIGRules::nmpdr_mode($cgi)) {      if (FIGRules::nmpdr_mode($cgi)) {
86          $menu->add_category('&raquo;Help', "$FIG_Config::nmpdr_site_url/content/help.php", 'help', undef, 98);          $menu->add_category('Help', "$FIG_Config::nmpdr_site_url/content/help.php", 'help', undef, 98);
87          $menu->add_entry('&raquo;Help', 'Searching NMPDR', "$FIG_Config::nmpdr_site_url/content/find.php");          $menu->add_entry('Help', 'Searching NMPDR', "$FIG_Config::nmpdr_site_url/content/find.php");
88          $menu->add_entry('&raquo;Help', 'SEED Viewer Tutorial', 'http://www.theseed.org/wiki/SEED_Viewer_Tutorial');          $menu->add_entry('Help', 'Contact', "$FIG_Config::nmpdr_site_url/content/contactus.php");
         $menu->add_entry('&raquo;Help', 'Contact', "$FIG_Config::nmpdr_site_url/content/contact.php");  
89      } else {      } else {
90          $menu->add_category('&raquo;Help', 'http://www.theseed.org', 'help', undef, 98);          $menu->add_category('&raquo;Help', 'http://www.theseed.org', 'help', undef, 98);
91          $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');

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.17

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3