[Bio] / PatScanResult / patscanresult.cgi Repository:
ViewVC logotype

Annotation of /PatScanResult/patscanresult.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (view) (download)

1 : parrello 1.1 use strict;
2 :     use warnings;
3 :    
4 : parrello 1.3 use FIG_Config;
5 :     use lib "$FIG_Config::fig_disk/dist/releases/current/$FIG_Config::arch/lib/PatScanResult";
6 : parrello 1.1 use DBMaster;
7 :     use WebApplication;
8 :     use WebMenu;
9 :     use WebLayout;
10 :     use Tracer;
11 : dsouza 1.2 use FIG;
12 : parrello 1.1
13 :     use ComparedRegions;
14 :    
15 :     my $cgi = new CGI();
16 :     my $page = $cgi->param('page');
17 :    
18 : parrello 1.5 #my $dbmaster = DBMaster->new(-database => 'WebAppBackend');
19 : parrello 1.1
20 :     my $layout = WebLayout->new('./Html/PatScan.tmpl');
21 :     $layout->add_css('./Html/PatScan.css');
22 :    
23 : dsouza 1.2 my $menu = WebMenu->new();
24 :    
25 :     # Commented out the menu categories so the entire menu does not get displayed in NMPDR.
26 :     # $menu->add_category('Genome Regions', 'patscanresult.cgi?page=genome_regions');
27 : parrello 1.1
28 :     my $WebApp = WebApplication->new( { id => 'PatScanResult',
29 : parrello 1.5 # dbmaster => $dbmaster,
30 : dsouza 1.2 menu => $menu,
31 : parrello 1.1 layout => $layout,
32 :     default => $page,
33 :     } );
34 :    
35 :     $WebApp->run();

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3