diff --git a/dcd.pl b/dcd.pl index cfbdf99fadccda9a061d29eadb9fad02faa96f4e..af1ee58b75b5faece8cb727ec8073f7ef94d28cb 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');