From: preecej <preecej@localhost>
Date: Thu, 8 Sep 2011 01:32:48 +0000 (+0000)
Subject: fixed non-PMID: ref pub strip at line 291
X-Git-Url: http://gitweb.planteome.org/?a=commitdiff_plain;h=1942dead3dc1f79bc3d6dbb21bdc5b409475230a;p=old-jaiswallab-svn%2F.git

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 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)