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

Diff of /FigWebServices/wc.cgi

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

revision 1.8, Tue May 27 16:31:49 2014 UTC revision 1.9, Mon Jun 2 18:41:21 2014 UTC
# Line 17  Line 17 
17  # http://www.theseed.org/LICENSE.TXT.  # http://www.theseed.org/LICENSE.TXT.
18  #  #
19    
20    eval {
21        require FIG_Config;
22    };
23    
24  use URI::Escape;  # uri_escape  use URI::Escape;  # uri_escape
25  use gjoseqlib;  use gjoseqlib;
26  use HTML;  use HTML;
# Line 48  Line 52 
52  my $keywords = $cgi->param('keywords');  my $keywords = $cgi->param('keywords');
53  my $function = $cgi->param('function');  my $function = $cgi->param('function');
54  my $dataD    = $cgi->param('dataD');  my $dataD    = $cgi->param('dataD');
55    
56    #
57    # If we are operating in RAST, the csD sits within the
58    # RAST job directory and the dataD setting is the
59    # RAST job number.
60    #
61    
62  my $csD      = "/homes/overbeek/Ross/MakeCS.Kbase/Data/CS";  my $csD      = "/homes/overbeek/Ross/MakeCS.Kbase/Data/CS";
63    
64    if ($FIG_Config::rast_jobs)
65    {
66        $csD = "$FIG_Config::rast_jobs/$dataD/CloseStrains";
67    }
68  my $dataDF   = "$csD/$dataD";  my $dataDF   = "$csD/$dataD";
69    
70  my $parms = {};  my $parms = {};
# Line 170  Line 186 
186          print "<h2>Genera Available</h2>\n";          print "<h2>Genera Available</h2>\n";
187          foreach my $g (sort @genera)          foreach my $g (sort @genera)
188          {          {
189              print "<h3><a target=_blank href=http://bioseed.mcs.anl.gov/ross/FIG/wc.cgi?request=show_options_for_otu&dataD=$g>$g</a>\n";              print "<h3><a target=_blank href=wc.cgi?request=show_options_for_otu&dataD=$g>$g</a>\n";
190          }          }
191      }      }
192      else      else
# Line 185  Line 201 
201      if ((-s "$dataDF/virulence.functions") && ($dataDF =~ /([^\/]+)$/))      if ((-s "$dataDF/virulence.functions") && ($dataDF =~ /([^\/]+)$/))
202      {      {
203          my $dataDQ = uri_escape($1);          my $dataDQ = uri_escape($1);
204          return "<a target=_blank href=http://bioseed.mcs.anl.gov/ross/FIG/wc.cgi?request=show_virulence_functions&dataD=$dataDQ>Some Posssible Functions Associated with Virulence</a>";          return "<a target=_blank href=wc.cgi?request=show_virulence_functions&dataD=$dataDQ>Some Posssible Functions Associated with Virulence</a>";
205      }      }
206      return '';      return '';
207  }  }
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
MCS Webmaster
 ViewVC Help
Powered by ViewVC 1.0.3