From 5ea83546520a7e1e62213738cda458d653993348 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Fri, 17 Dec 2021 08:42:00 +0100
Subject: [PATCH] added battern for OJS BZJ, see #25831
---
dcd.pl | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/dcd.pl b/dcd.pl
index cfbdf99..af1ee58 100755
--- a/dcd.pl
+++ b/dcd.pl
@@ -212,7 +212,13 @@ sub register_url
my $sep= $repo_cnf->{id_separator};
$sep= '.' if ($journal eq 'jeacs');
my ($pfx, $ns, $nr)= split_doi_string ($prod_doi_string, $sep);
-# print __LINE__, " prod_doi_string=[$prod_doi_string] pfx=[$pfx] ns=[$ns] nr=[$nr]\n";
+print __LINE__, " prod_doi_string=[$prod_doi_string] pfx=[$pfx] ns=[$ns] nr=[$nr]\n";
+
+ if ($prod_doi_string =~ m#(10\.25365)\/(BZJ)(-)(\d+-\d+)#) # see #25831
+ {
+ # 219 prod_doi_string=[10.25365/BZJ-048-000] pfx=[10.25365] ns=[BZJ-048-000] nr=[] dc_xml=[na/na-dcd-10-25365/metadata/BZJ-048-000/BZJ-048-000..xml]
+ ($pfx, $ns, $sep, $nr)= ($1, $2, $3, $4);
+ }
my $dc_xml= join ('/', $na_path, 'metadata', $ns, join ($sep, $ns, $nr) .'.xml');
--
GitLab