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

Diff of /FigKernelPackages/gjogenbank.pm

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

revision 1.14, Thu Dec 3 15:45:44 2015 UTC revision 1.15, Fri Dec 11 21:05:09 2015 UTC
# Line 541  Line 541 
541                  # to bring them into the org name. We will bring in values until we get                  # to bring them into the org name. We will bring in values until we get
542                  # one with a ; since that begins the taxonomy.                  # one with a ; since that begins the taxonomy.
543                  $entry{ ORGANISM } = $org;                  $entry{ ORGANISM } = $org;
544                  while ($value[0] !~ /;/)                  while (@value && $value[0] !~ /\.$/ && $value[0] !~ /;/)
545                  {                  {
546                      my $ent = shift @value;                      my $ent = shift @value;
547                      $entry { ORGANISM } .= " $ent";                      $entry { ORGANISM } .= " $ent";

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3