From fc6dd535b54923a54ba9b2927d8c69002c34f385 Mon Sep 17 00:00:00 2001 From: Gerhard Gonter <ggonter@gmail.com> Date: Tue, 20 Oct 2020 14:45:11 +0200 Subject: [PATCH] new journal with new prefix 10.14764 --- dcd.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/dcd.pl b/dcd.pl index c690c41..8464e58 100755 --- a/dcd.pl +++ b/dcd.pl @@ -161,6 +161,7 @@ sub register_url || $repo_url =~ m#https://(journals\.univie\.ac\.at)/index\.php/(yis|kf|mp|oezg|wdr)/article/view/(\d+)$# || $repo_url =~ m#https://(chronotopos\.eu)/index\.php/(cts)/article/view/(\d+)$# || $repo_url =~ m#https://(viennalawreview\.com)/index\.php/(vlr)/article/view/(\d+)$# + || $repo_url =~ m#https://(aseas\.univie\.ac\.at)/index\.php/(aseas)/article/view/(\d+)$# || $repo_url =~ m#https://(othes\.univie\.ac\.at)/(\d+)/$# ) { @@ -189,7 +190,7 @@ sub register_url return undef; } - my ($pfx, $ns, $nr)= split_doi_string ($prod_doi_string); + my ($pfx, $ns, $nr)= split_doi_string ($prod_doi_string, $repo_cnf->{id_separator}); # print __LINE__, " prod_doi_string=[$prod_doi_string] pfx=[$pfx] ns=[$ns] nr=[$nr]\n"; my $dc_xml= join ('/', $na_path, 'metadata', $ns, join ($repo_cnf->{id_separator}, $ns, $nr) .'.xml'); @@ -373,9 +374,10 @@ sub get_all_urls sub split_doi_string { my $doi= shift; # e.g. 10.25365/phaidra.1 + my $id_separator= shift || '.'; my ($pfx, $sfx)= split ('/', $doi, 2); - my ($ns, $nr)= split (/[\.\-]/, $sfx, 2); + my ($ns, $nr)= split ($id_separator, $sfx, 2); ($pfx, $ns, $nr); } -- GitLab