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

Diff of /FigKernelPackages/raelib.pm

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

revision 1.19, Fri Jun 10 16:12:53 2005 UTC revision 1.20, Fri Jun 10 16:43:27 2005 UTC
# Line 217  Line 217 
217    foreach my $piece (split /\s*\;\s*/, $_) {    foreach my $piece (split /\s*\;\s*/, $_) {
218     my ($acc, $nam, $unk)=split /\s*\,\s*/, $piece;     my ($acc, $nam, $unk)=split /\s*\,\s*/, $piece;
219     foreach my $fig ($self->swiss_pir_ids($acc)) {     foreach my $fig ($self->swiss_pir_ids($acc)) {
220      print join "\t", ($famac, $famname, $famtype, $acc, $fig), "\n";      print OUT join "\t", ($famac, $famname, $famtype, $acc, $fig), "\n";
221     }     }
222    }    }
223   }   }

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3