From 1942dead3dc1f79bc3d6dbb21bdc5b409475230a Mon Sep 17 00:00:00 2001
From: preecej <preecej@localhost>
Date: Thu, 8 Sep 2011 01:32:48 +0000
Subject: [PATCH] fixed non-PMID: ref pub strip at line 291

svn path=/; revision=180
---
 preecej/semantic_wiki/paw_TransformForImport.pl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/preecej/semantic_wiki/paw_TransformForImport.pl b/preecej/semantic_wiki/paw_TransformForImport.pl
index 4f61cd0..95c0a7f 100644
--- 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)
-- 
2.34.1