From 177d41fefe32f244e34a27d429c067a6f3e1421c Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 1 Dec 2021 15:44:23 +0530
Subject: Remove gn:geoSeries when value starts with "No Geo Series...".

* dump.scm (dump-info-files): Remove gn:geoSeries when value starts
with "No Geo Series...".
---
 dump.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'dump.scm')

diff --git a/dump.scm b/dump.scm
index 8db2dbe..b22a196 100755
--- a/dump.scm
+++ b/dump.scm
@@ -403,6 +403,9 @@ GROUP BY Email"))
                                     ;; characters in the summary?
                                     (cons 'gn:aboutTissue
                                           (delete-substrings about-tissue "\x01" "\x03")))
+                                   (('gn:geoSeries . geo-series)
+                                    (and (not (string-prefix-ci? "no geo series" geo-series))
+                                         (cons 'gn:geoSeries geo-series)))
                                    (x x))
                                  (process-metadata-alist alist))
                      id)))
-- 
cgit v1.2.3