Bug 15381: Remove GetAuthType and GetAuthTypeCode

[srvgit] / authorities / authorities.pl

diff --git a/authorities/authorities.pl b/authorities/authorities.pl
index eedaf66..2eba66e 100755 (executable)
--- a/authorities/authorities.pl
+++ b/authorities/authorities.pl
@@ -568,7 +568,7 @@ my $breedingid    = $input->param('breedingid');
 
 my $dbh = C4::Context->dbh;
 if(!$authtypecode) {
-  $authtypecode = $authid? &GetAuthTypeCode($authid): '';
+    $authtypecode = $authid ? Koha::Authorities->find($authid)->authtypecode : '';
 }
 
 my ($template, $loggedinuser, $cookie)