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

Diff of /FigWebServices/protein.cgi

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

revision 1.69, Tue Jan 25 03:16:42 2005 UTC revision 1.70, Tue Jan 25 08:40:10 2005 UTC
# Line 172  Line 172 
172                  push(@$args,[$name,$val]);                  push(@$args,[$name,$val]);
173                  }                  }
174                  unshift @$html, "<TITLE>The SEED: Protein Tool</TITLE>\n";                  unshift @$html, "<TITLE>The SEED: Protein Tool</TITLE>\n";
175                    #$url='http://localhost/cgi-bin/extract_params.cgi'; in case I forget to delete this, it is just a script that grabs params from cgis RAE
176                  push(@$html,&HTML::get_html($url,$method,$args));                  push(@$html,&HTML::get_html($url,$method,$args));
177      }      }
178  }  }
# Line 385  Line 386 
386    
387          $/ = "\n//\n";          $/ = "\n//\n";
388          while (defined($_ = <TMP>)) {          while (defined($_ = <TMP>)) {
389                # allow comment lines in the file
390                next if (/^#/);
391              my($tool,$desc) = split(/\n/,$_);              my($tool,$desc) = split(/\n/,$_);
392              push(@$tab,["<a href=\"$url\&tool=$tool\">$tool</a>",$desc]);              # RAE modified this so we can include column headers.
393                undef($desc) if ($desc eq "//"); # it is a separator
394                if ($desc) {push(@$tab,["<a href=\"$url\&tool=$tool\">$tool</a>",$desc])}
395                else {push(@$tab, [["<strong>$tool</strong>", "td colspan=2 align=center"]])}
396          }          }
397          close(TMP);          close(TMP);
398          $/ = "\n";          $/ = "\n";

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3