[Bio] / FigKernelPackages / FigFam.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FigFam.pm

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

revision 1.28, Mon Dec 25 17:14:15 2006 UTC revision 1.29, Tue Dec 26 00:39:51 2006 UTC
# Line 318  Line 318 
318      my @funcs = sort { $funcs{$b} <=> $funcs{$a} } keys(%funcs);      my @funcs = sort { $funcs{$b} <=> $funcs{$a} } keys(%funcs);
319      $func = (@funcs > 0) ? $funcs[0] : "hypothetical protein";      $func = (@funcs > 0) ? $funcs[0] : "hypothetical protein";
320      open(FUNC,">$fam_dir/function") || die "could not open $fam_dir/function";      open(FUNC,">$fam_dir/function") || die "could not open $fam_dir/function";
321      print FUNC "$1\n";      print FUNC "$func\n";
322      close(FUNC);      close(FUNC);
323  }  }
324    

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3