fixed non-PMID: ref pub strip at line 291

svn path=/; revision=180

diff --git a/preecej/semantic_wiki/paw_TransformForImport.pl b/preecej/semantic_wiki/paw_TransformForImport.pl
index 4f61cd0a7b7cbac5c80b34bfee4f9f7033c3012b..95c0a7f589acef3fa532011946b62bf37a243849 100644 (file)
--- a/preecej/semantic_wiki/paw_TransformForImport.pl
+++ b/preecej/semantic_wiki/paw_TransformForImport.pl
@@ -285,12 +285,13 @@ sub add_ontology_ref_data($$)
     my @evidence = split('\|', $ref_data{"with_or_from"});
     my @publications = split('\|', $ref_data{"db_reference"});
  
-    my $i = 0;
-    for (@publications) {
-        if (!(substr($_,0,5) eq "PMID:")) {
-            splice(@publications,$i,1);
+    my @tmp_pubs = @publications;
+    for my $tmp_pub (@tmp_pubs)
+    {
+        if (substr($tmp_pub,0,5) ne "PMID:")
+        {
+            my @junk = splice(@publications,0,1);
         }
-        $i++;
     }
 
     # aspect (assumes only one, allows overwrite)