added battern for OJS BZJ, see #25831

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