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

Diff of /FigWebServices/protein_info.cgi

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

revision 1.2, Fri Jul 15 03:23:54 2005 UTC revision 1.4, Fri Jul 15 17:19:24 2005 UTC
# Line 85  Line 85 
85    
86   my $tab; my @unknowns;   my $tab; my @unknowns;
87   foreach my $key (keys %$ids) {   foreach my $key (keys %$ids) {
   print STDERR "$key\n";  
88    unless (scalar(@{$ids->{$key}})) {    unless (scalar(@{$ids->{$key}})) {
    print STDERR "Addiong $key\n";  
89     push @unknowns, $key;     push @unknowns, $key;
90     next;     next;
91    }    }
# Line 145  Line 143 
143   # If you look through the code, and find a really long run on line, blame GJO   # If you look through the code, and find a really long run on line, blame GJO
144   # he complained about having to delete my beautifully functional code. Perhaps he is worried about   # he complained about having to delete my beautifully functional code. Perhaps he is worried about
145   # disk space or something.   # disk space or something.
146   map {@{$want->{$_}}=$fig->by_alias($_) if ($_); s/^\s+//; s/\s+$//} map {split /[\s*\,]/, $_} @given;  # map {@{$want->{$_}}=$fig->by_alias($_) if ($_); s/^\s+//; s/\s+$//} map {split /[\s*\,]/, $_} @given;
147     map {
148       s/^\s+//; s/\s+$//;
149       if (/^\d+$/) {$_="gi|".$_}
150       elsif (/^[A-Z]\d+$/) {$_="uni|".$_}
151       @{$want->{$_}}=$fig->by_alias($_) if ($_);
152       }
153       map {split /[\s*\,]/, $_}
154       @given;
155    
156   return $want;   return $want;
157  }  }
158    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3