[Bio] / LIMS / LIMS.cgi Repository:
ViewVC logotype

View of /LIMS/LIMS.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (download) (annotate)
Tue Mar 4 19:44:42 2008 UTC (11 years, 9 months ago) by jared
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +1 -1 lines
Minor changes

use strict;
use warnings;

use DBMaster;
use WebApplication;
use WebMenu;
use WebLayout;
use WebConfig;
use Tracer;
use FIGRules;
use FIG_Config;

eval {
    &main;
};

if ($@)
{
    my $cgi = new CGI();

    print $cgi->header();
    print $cgi->start_html();
    
    # print out the error
    print '<pre>'.$@.'</pre>';

    print $cgi->end_html();

}

sub main {
    my $layout = WebLayout->new('./Html/lims.tmpl');
    $layout->add_css(TMPL_PATH.'lims.css');

    my $menu = WebMenu->new();
    $menu->add_category('Home', 'LIMS.cgi');

    my $WebApp = WebApplication->new( { id       => 'LIMS',
                                    menu     => $menu,
                                    layout   => $layout,
				    default => 'Home'
                                  } );
  #  my $user = $WebApp->{session}->user();
  #  if($user->has_right(				    
   $WebApp->{dblims} = DBMaster->new(-database => $WebConfig::lims_db, -backend  =>'SQLite');
   $WebApp->show_login_user_info(1);  
   $WebApp->run();			
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3