[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.71, Tue Jan 25 18:04:35 2005 UTC revision 1.72, Tue Jan 25 19:14:40 2005 UTC
# Line 173  Line 173 
173                  push(@$args,[$name,$val]);                  push(@$args,[$name,$val]);
174                  }                  }
175                  unshift @$html, "<TITLE>The SEED: Protein Tool</TITLE>\n";                  unshift @$html, "<TITLE>The SEED: Protein Tool</TITLE>\n";
176                    #$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
177                  push(@$html,&HTML::get_html($url,$method,$args));                  push(@$html,&HTML::get_html($url,$method,$args));
178      }      }
179  }  }
# Line 386  Line 387 
387    
388          $/ = "\n//\n";          $/ = "\n//\n";
389          while (defined($_ = <TMP>)) {          while (defined($_ = <TMP>)) {
390                # allow comment lines in the file
391                next if (/^#/);
392              my($tool,$desc) = split(/\n/,$_);              my($tool,$desc) = split(/\n/,$_);
393              push(@$tab,["<a href=\"$url\&tool=$tool\">$tool</a>",$desc]);              # RAE modified this so we can include column headers.
394                undef($desc) if ($desc eq "//"); # it is a separator
395                if ($desc) {push(@$tab,["<a href=\"$url\&tool=$tool\">$tool</a>",$desc])}
396                else {push(@$tab, [["<strong>$tool</strong>", "td colspan=2 align=center"]])}
397          }          }
398          close(TMP);          close(TMP);
399          $/ = "\n";          $/ = "\n";

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3