diff --git a/eprints1.pl b/eprints1.pl index 11ddae09b679c438f77809b357dd447ac0c47314..f3378641e5e1d08e130b87ec7406c23342bd6522 100755 --- a/eprints1.pl +++ b/eprints1.pl @@ -2578,7 +2578,7 @@ sub doigen if ($mtime_ts gt $lastmod) { - print __LINE__, " doi=[$doi] already processed; skipping\n"; + print __LINE__, " doi=[$doi] already processed datacite_xml_path=[$datacite_xml_path]; skipping\n"; return undef; } } @@ -2725,7 +2725,7 @@ sub oma $new_status= 'done' if (@$synced); - policies_stats("processed block $block"); + policies_stats("processed block $block in context $ot2ut_context"); } elsif ($row->{action} eq 'send_ids') { @@ -5044,7 +5044,7 @@ sub policies_stats my $b6a= $cctab->bucket(0, @s6a); if (defined ($b6a)) { - $b6a->{annotation}= { bgcolor => 'lightblue', note => 'keine Volltextfreigabe; NBN schon vergeben' }; + $b6a->{annotation}= { bgcolor => 'lightblue', note => 'keine Volltextfreigabe; NBN vergeben' }; # print __LINE__, " special bucket found: ", Dumper($b6a); } @@ -5730,9 +5730,12 @@ EOX my $other= $p->{$context}; my $link; - if ($context eq 'test') { $link= 'https://utheses-frontend.ctest.univie.ac.at/client/?#/view/document/utheses/' . $other; } - elsif ($context eq 'entw') { $link= 'https://utheses-frontend-entw-utheses.ctest.univie.ac.at/?#/view/document/utheses/' . $other; } - elsif ($context eq 'prod') { $link= 'unknown'; } + if ($context eq 'test') { $link= 'https://utheses-frontend.ctest.univie.ac.at/client/#/detail/' . $other . '/'; } + elsif ($context eq 'entw') { $link= 'https://utheses-frontend-entw-utheses.ctest.univie.ac.at/#/detail/' . $other . '/'; } + elsif ($context eq 'prod') { $link= 'https://utheses-admin-ui-utheses-prod.cprod.univie.ac.at/client#/detail/' . $other . '/'; } + # if ($context eq 'test') { $link= 'https://utheses-frontend.ctest.univie.ac.at/client/?#/view/document/utheses/' . $other; } + # elsif ($context eq 'entw') { $link= 'https://utheses-frontend-entw-utheses.ctest.univie.ac.at/?#/view/document/utheses/' . $other; } + # elsif ($context eq 'prod') { $link= 'unknown'; } print LST "<td><a href=\"$link\" target=\"$context\">$other</a></td>"; }