[Bio] / Sprout / SproutLoad.pm Repository:
ViewVC logotype

Diff of /Sprout/SproutLoad.pm

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

revision 1.15, Fri Sep 16 04:12:05 2005 UTC revision 1.16, Fri Sep 16 10:31:15 2005 UTC
# Line 1031  Line 1031 
1031              chomp $line;              chomp $line;
1032              my($sourceID, $desc, $url) = split(/\t/,$line);              my($sourceID, $desc, $url) = split(/\t/,$line);
1033              $loadComesFrom->Put($genomeID, $sourceID);              $loadComesFrom->Put($genomeID, $sourceID);
1034              if ($url && ! exists $sourceURL{$genomeID}) {              if ($url && ! exists $sourceURL{$sourceID}) {
1035                  $loadSourceURL->Put($sourceID, $url);                  $loadSourceURL->Put($sourceID, $url);
1036                  $sourceURL{$sourceID} = 1;                  $sourceURL{$sourceID} = 1;
1037              }              }
1038              if ($desc && ! exists $sourceDesc{$sourceID}) {              if ($desc) {
1039                  $loadSource->Put($sourceID, $desc);                  $sourceDesc{$sourceID} = $desc;
1040                  $sourceDesc{$sourceID} = 1;              } elsif (! exists $sourceDesc{$sourceID}) {
1041                    $sourceDesc{$sourceID} = $sourceID;
1042              }              }
1043          }          }
1044          close TMP;          close TMP;
1045      }      }
1046        # Write the source descriptions.
1047        for my $sourceID (keys %sourceDesc) {
1048            $loadSource->Put($sourceID, $sourceDesc{$sourceID});
1049        }
1050      # Finish the load.      # Finish the load.
1051      my $retVal = $self->_FinishAll();      my $retVal = $self->_FinishAll();
1052      return $retVal;      return $retVal;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3