From 7a57a7cc8b39d64d9baacc573be67d24b3919052 Mon Sep 17 00:00:00 2001 From: Brian Moses Hall Date: Wed, 13 Mar 2024 15:28:53 -0400 Subject: [PATCH] Revert VIAF.pm to main --- cgi/VIAF.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/cgi/VIAF.pm b/cgi/VIAF.pm index 0a16b2f4..0588f465 100644 --- a/cgi/VIAF.pm +++ b/cgi/VIAF.pm @@ -35,8 +35,7 @@ sub GetVIAFData { return {'author' => $ref->[0]->[0], 'birth_year' => $ref->[0]->[1], 'death_year' => $ref->[0]->[2], - 'country' => $ref->[0]->[3], 'viafID' => $ref->[0]->[4], - 'author_url' => 'http://viaf.org/viaf/' . $ref->[0]->[4]}; + 'country' => $ref->[0]->[3], 'viafID' => $ref->[0]->[4]}; } } $author =~ s/["#]//g; @@ -95,7 +94,6 @@ sub GetVIAFData 'country,viafID) VALUES (?,?,?,?,?,?)'; $self->PrepareSubmitSql($sql, $author, $ret->{'author'}, $ret->{'birth_year'}, $ret->{'death_year'}, $ret->{'country'}, $ret->{'viafID'}); - $ret->{'author_url'} = 'http://viaf.org/viaf/' . $ret->{'viafID'}; } $ret->{'url'} = $url; return $ret;