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

Diff of /FigWebServices/protein.cgi

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

revision 1.54, Thu Jan 6 10:53:18 2005 UTC revision 1.55, Sun Jan 9 17:15:12 2005 UTC
# Line 1568  Line 1568 
1568              push(@$gg,$map);              push(@$gg,$map);
1569          }          }
1570      }      }
1571        &GenoGraphics::disambiguate_maps($gg);
     my(%seen,$abbr);  
     foreach $map (@$gg)  
     {  
         $abbr = $map->[0];  
         if (defined($seen{$abbr}))  
         {  
             $seen{$abbr}++;  
             $map->[0] = substr($map->[0],0,10) . "\*$seen{$abbr}";  
         }  
         else  
         {  
             $seen{$abbr} = 0;  
         }  
     }  
1572      return $gg;      return $gg;
1573  }  }
1574    
# Line 2167  Line 2153 
2153  sub abbrev {  sub abbrev {
2154      my($genome_name) = @_;      my($genome_name) = @_;
2155    
2156      $genome_name =~ s/^(\S{3})\S+/$1./;      return &FIG::abbrev($genome_name);
     $genome_name =~ s/^(\S+\s+\S{4})\S+/$1./;  
     if (length($genome_name) > 13)  
     {  
         $genome_name = substr($genome_name,0,13);  
     }  
     return $genome_name;  
2157  }  }
2158    

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3