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

Diff of /FigWebServices/serv_index.cgi

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

revision 1.1, Wed Feb 8 17:17:52 2012 UTC revision 1.2, Wed Apr 11 20:35:29 2012 UTC
# Line 24  Line 24 
24  my $cgi = CGI->new;  my $cgi = CGI->new;
25  my $fig = FIG->new;  my $fig = FIG->new;
26  my $sap = SAPserver->new();  my $sap = SAPserver->new();
27    my $sapdb;
28    
29  my $user_name = $cgi->param("user");  my $user_name = $cgi->param("user");
30    
31  my $my_url = "serv_index.cgi";  my $my_url = "serv_index.cgi?";
32    
33  my($html, $title) = ServIndex::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);  my $env = {fig => $fig,
34               cgi => $cgi,
35               sap => $sap,
36               sapdb => $sapdb,
37               user => $user_name,
38               url => $my_url,
39               hidden_form_variable => "",
40               seedviewer_page_obj => ""
41    };
42    
43    if ($cgi->param('kb'))
44    {
45        require Bio::KBase::CDMI::CDMIClient;
46        my $kbO = Bio::KBase::CDMI::CDMIClient->new_for_script();
47        $env->{kbase} = $kbO;
48    }
49    
50    my($html, $title) = ServIndex::run($env);
51    
52  print $cgi->header;  print $cgi->header;
53  print "<title>$title</title>";  print "<title>$title</title>";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3