[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.10, Thu Apr 7 19:16:10 2005 UTC revision 1.13, Wed May 4 03:07:23 2005 UTC
# Line 2  Line 2 
2    
3  =pod  =pod
4    
5  =head1  =head1 RAE Library
6    
7   Some routines and things that Rob uses. Please feel free to use at will and incorporate into   Some routines and things that Rob uses. Please feel free to use at will and incorporate into
8   your own code or move them into FIG.pm or elsewhere.   your own code or move them into FIG.pm or elsewhere.
# Line 103  Line 103 
103     print OUT $_, "\t", $peg, "\n";     print OUT $_, "\t", $peg, "\n";
104     $done=1;     $done=1;
105    }    }
106      unless ($done) {
107       foreach my $peg ($fig->by_alias("tr|$_")) {
108        print OUT $_, "\t", $peg, "\n";
109        $done=1;
110       }
111      }
112      unless ($done) {
113       foreach my $peg ($fig->by_alias("sp|$_")) {
114        print OUT $_, "\t", $peg, "\n";
115        $done=1;
116       }
117      }
118    unless ($done) {print OUT $_, "\t\n"}    unless ($done) {print OUT $_, "\t\n"}
119   }   }
120   close IN;   close IN;
# Line 187  Line 199 
199   my @return;   my @return;
200   my @attr=$fig->feature_attributes($peg);   my @attr=$fig->feature_attributes($peg);
201   foreach my $attr (@attr) {   foreach my $attr (@attr) {
202    my ($gottag, $val, $link)=@$attr;    my ($gotpeg, $gottag, $val, $link)=@$attr;
203    push @return, $val if ($gottag eq $tag);    push @return, $val if ($gottag eq $tag);
204   }   }
205   return wantarray ? @return : join "; ", @return;   return wantarray ? @return : join "; ", @return;

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.13

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3