[Bio] / FigWebServices / ErdbDocWidget.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/ErdbDocWidget.cgi

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

revision 1.1, Mon Jan 19 21:01:22 2009 UTC revision 1.2, Tue Jun 16 16:36:20 2009 UTC
# Line 21  Line 21 
21  use Tracer qw(:DEFAULT PrintLine);  use Tracer qw(:DEFAULT PrintLine);
22  use ERDB;  use ERDB;
23  use ERDBPDocPage;  use ERDBPDocPage;
24    use ERDBExtras;
25    
26  =head1 ErdbDocWidget Script  =head1 ErdbDocWidget Script
27    
# Line 51  Line 52 
52  # Start the output page.  # Start the output page.
53  print CGI::header();  print CGI::header();
54  print CGI::start_html(-title => 'ERDB Database Documenter',  print CGI::start_html(-title => 'ERDB Database Documenter',
55                        -style =>  { src => "$FIG_Config::cgi_url/Html/css/ERDB.css" },                        -style =>  { src => "$ERDBExtras::css_dir/ERDB.css" },
56                        -script => { src => "$FIG_Config::cgi_url/Html/ERDB.js" });                        -script => { src => "$ERDBExtras::js_dir/ERDB.js" });
57  # Insure we recover from errors.  # Insure we recover from errors.
58  eval {  eval {
59      # Get the parameters.      # Get the parameters.
60      my $database = $cgi->param('database') || 'Sprout';      my $database = $cgi->param('database') || 'Sprout';
61      my $rows = $cgi->param('rows') || 0;      my $height = $cgi->param('height') || 900;
62      # Get the datanase object.      # Get the datanase object.
63      my $erdb = ERDB::GetDatabase($database);      my $erdb = ERDB::GetDatabase($database);
64      # Get a page creator.      # Get a page creator.
65      my $page = ERDBPDocPage->new(dbObject => $erdb);      my $page = ERDBPDocPage->new(dbObject => $erdb);
66      # Create the body HTML.      # Create the body HTML.
67      my $html = $page->DocPage(menuSize => $rows);      my $html = CGI::div({ class => 'doc' }, $page->DocPage(boxHeight => $height));
68      # Output it.      # Output it.
69      PrintLine($html);      PrintLine($html);
70  };  };
# Line 79  Line 80 
80  # Close the page.  # Close the page.
81  PrintLine CGI::end_html();  PrintLine CGI::end_html();
82    
 =head2 Utility Methods  
   
 =cut  
   
 ##TODO: subroutines go here  
   
83  1;  1;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3