From 85db5c0222998f31ab046f36524cb1ca59d19a42 Mon Sep 17 00:00:00 2001
From: vinuesa <vinuesa@ccg.unam.mx>
Date: Mon, 15 Sep 2025 11:42:28 -0600
Subject: [PATCH] extract_features_from_genbank uses isolate as strain id, if
 strain is undef

---
 lib/phyTools.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/phyTools.pm b/lib/phyTools.pm
index 33d11f2..b1f1698 100755
--- a/lib/phyTools.pm
+++ b/lib/phyTools.pm
@@ -923,6 +923,10 @@ sub extract_features_from_genbank
       {
         $strain = join(',',sort $f->each_tag_value('strain'));
       }
+      elsif($f->has_tag('isolate') and !$f->has_tag('strain'))
+      {
+              $strain = join(',',sort $f->each_tag_value('isolate')); 
+      }
       elsif($features_to_parse =~ $f->primary_tag())
       {
         $gi = $genename = $featseq = $rev = ''; # compatible con subrutina extract_CDS_from_genbank