--- FeatureSaplingLoader.pm	2009/06/30 19:53:01	1.4
+++ FeatureSaplingLoader.pm	2009/07/15 23:39:58	1.5
@@ -214,10 +214,14 @@
         my @essentials = $fig->get_attributes($fid, undef, ['essential', 'potential-essential']);
         for my $essentialTuple (@essentials) {
             my (undef, undef, $essentialityType, $url) = @$essentialTuple;
-            # Form a hyperlink from this essentiality tuple.
-            my $link = HyperLink->new($essentialityType, $url);
-            # Store it as essentiality data for this feature.
-            $self->PutE(FeatureEssential => $fid, essential => $link);
+            # Only keep this datum if it has a URL. The ones without URLs are
+            # all duplicates.
+            if ($url) {
+                # Form a hyperlink from this essentiality tuple.
+                my $link = HyperLink->new($essentialityType, $url);
+                # Store it as essentiality data for this feature.
+                $self->PutE(FeatureEssential => $fid, essential => $link);
+            }
         }
         # If this is a PEG, we have a protein sequence.
         my $proteinID;
@@ -257,7 +261,7 @@
             my $natural = AliasAnalysis::Type($aliasType => $aliasID) || $aliasID;
             # Create the identifier record.
             $self->PutE(Identifier => $aliasID, natural_form => $natural,
-                        source => $type);
+                        source => $aliasType);
             # Is this a protein alias?
             if ($aliasConf eq 'C' && $proteinID) {
                 # Yes. Connect it using IsNamedBy.