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

Diff of /FigWebServices/index.cgi

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

revision 1.37, Wed Jun 16 14:06:17 2004 UTC revision 1.38, Wed Jun 16 14:25:36 2004 UTC
# Line 118  Line 118 
118  #-----------------------------------------------------------------------  #-----------------------------------------------------------------------
119  elsif (($map = $cgi->param('kmap')) && $cgi->param('Metabolic Overview'))  elsif (($map = $cgi->param('kmap')) && $cgi->param('Metabolic Overview'))
120  {  {
121      $map =~ s/^.*\((MAP\d+)\).*$/$1/;      if ($map =~ /\(([^)]*)\)$/)
122        {
123            $map = $1;
124        }
125        else
126        {
127            # ???
128        }
129    
130        #$map =~ s/^.*\((MAP\d+)\).*$/$1/;
131      @orgs = $cgi->param('korgs');      @orgs = $cgi->param('korgs');
132      @orgs = map { $_ =~ /\((\d+\.\d+)\)/; $1 } @orgs;      @orgs = map { $_ =~ /\((\d+\.\d+)\)/; $1 } @orgs;
133      $ENV{"REQUEST_METHOD"} = "GET";      $ENV{"REQUEST_METHOD"} = "GET";
# Line 132  Line 141 
141      }      }
142    
143      unshift @$html, "<TITLE>The SEED: Metabolic Overview</TITLE>\n";      unshift @$html, "<TITLE>The SEED: Metabolic Overview</TITLE>\n";
144      my @out = `./show_kegg_map.cgi`;      my @out = `./show_map.cgi`;
145      &HTML::trim_output(\@out);      &HTML::trim_output(\@out);
146      push( @$html, "<br>\n", @out );      push( @$html, "<br>\n", @out );
147  }  }

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3