@@ -, +, @@ --- C4/Biblio.pm | 8 ++++++++ 1 file changed, 8 insertions(+) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -1397,6 +1397,14 @@ sub GetCOinSBiblio { return $coins_value; } +=head2 GetOpenURLResolverURL + + my $url = C4::Biblio::GetOpenURLResolverURL($record); + + Takes MARC::Record and return url for OpenURL resolver set in OpenURLResolverURL + +=cut + sub GetOpenURLResolverURL { my ($record) = @_; --