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

Diff of /FigWebServices/subsys.cgi

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

revision 1.42, Sat Feb 12 18:34:46 2005 UTC revision 1.43, Mon Feb 14 00:57:27 2005 UTC
# Line 2462  Line 2462 
2462          my $tip = 0;          my $tip = 0;
2463          my @out = ();          my @out = ();
2464    
2465          foreach ( `$FIG_Config::bin/align_with_clustal -org -func  -tree -UniProt \'$checked\'` )          my $dir = "$FIG_Config::data/Subsystems/" .
2466                      $cgi->param('ssa_name') .
2467                      "/Alignments/" .
2468                      $cgi->param('col_to_align');
2469    
2470            $dir =~ s/ /_/g;
2471            &FIG::verify_dir($dir);
2472            foreach ( `$FIG_Config::bin/align_with_clustal -org -func -tree -UniProt \'-save=$dir\' \'$checked\'` )
2473          {          {
2474              chomp;              chomp;
2475              if    ( /^   *\|[ |]*$/ ) {}  # line that adds only tree height              if    ( /^   *\|[ |]*$/ ) {}  # line that adds only tree height

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3