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...".

1 files changed, 3 insertions, 0 deletions

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