new journal with new prefix 10.14764

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