diff --git a/dcd.pl b/dcd.pl index 1aa01123e25158fff1ec8f2cf947a3f8d71668e8..57639e0a74cc5f5168a6bd6d464c5c0645c58e08 100755 --- a/dcd.pl +++ b/dcd.pl @@ -168,7 +168,7 @@ sub register_url || $repo_url =~ m#https://(ojs3test\.univie\.ac\.at)/index\.php/wks/article/view/(\d+)$# || $repo_url =~ m#https://(wbagon\.univie\.ac\.at)/index\.php/(wbagon)/article/view/(\d+)$# || $repo_url =~ m#https://(rezenstfm\.univie\.ac\.at)/index\.php/(tfm)/article/view/(\d+)$# - || $repo_url =~ m#https://(journals\.univie\.ac\.at)/index\.php/(aaj|jeacs|kf|lili|mp|oezg|rhy|wdr|yis)/article/view/(\d+)$# + || $repo_url =~ m#https://(journals\.univie\.ac\.at)/index\.php/(aaj|integ|jeacs|kf|lili|mp|oezg|rhy|wdr|yis)/article/view/(\d+)$# || $repo_url =~ m#https://(yis\.univie\.ac\.at)/index\.php/(yis)/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+)$# @@ -211,7 +211,7 @@ sub register_url } my $sep= $repo_cnf->{id_separator}; - $sep= '.' if ($journal eq 'jeacs'); + $sep= '.' if ($journal eq 'jeacs' || $journal eq 'integ'); 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";