Deleting Date::Manip

[koha_fer] / authorities / detail.pl

diff --git a/authorities/detail.pl b/authorities/detail.pl
index 9f9f10a..aa95e31 100755 (executable)
--- a/authorities/detail.pl
+++ b/authorities/detail.pl
@@ -19,7 +19,7 @@
 
 =head1 NAME
 
-etail.pl : script to show an authority in MARC format
+detail.pl : script to show an authority in MARC format
 
 =head1 SYNOPSIS
 
@@ -44,7 +44,6 @@ use C4::AuthoritiesMarc;
 use C4::Auth;
 use C4::Context;
 use C4::Output;
-use C4::Interface::CGI::Output;
 use CGI;
 use MARC::Record;
 use C4::Koha;
@@ -70,8 +69,8 @@ my $authid = $query->param('authid');
 
 
 
-my $authtypecode = &AUTHfind_authtypecode($dbh,$authid);
-my $tagslib = &AUTHgettagslib($dbh,1,$authtypecode);
+my $authtypecode = &GetAuthTypeCode($authid);
+my $tagslib = &GetTagsLabels(1,$authtypecode);
 
 my $record;
 if (C4::Context->preference("AuthDisplayHierarchy")){
@@ -85,8 +84,8 @@ if (C4::Context->preference("AuthDisplayHierarchy")){
     my $cnt=0;
     my @loophierarchy;
     foreach my $element (@tree){
-      my %cell;
-      my $elementdata = AUTHgetauthority($dbh,$element);
+      my $cell;
+      my $elementdata = GetAuthority($element);
       $record= $elementdata if ($authid==$element);
       push @loophierarchy, BuildUnimarcHierarchy($elementdata,"child".$cnt, $authid);
       $cnt++;
@@ -98,9 +97,9 @@ if (C4::Context->preference("AuthDisplayHierarchy")){
     'loophierarchies' =>\@loophierarchies,
   );
 } else {
-  $record=AUTHgetauthority($dbh,$authid);
+  $record=GetAuthority($authid);
 }
-my $count = AUTHcount_usage($authid);
+my $count = CountUsage($authid);
 
 # find the marc field/subfield used in biblio by this authority
 my $sth = $dbh->prepare("select distinct tagfield from marc_subfield_structure where authtypecode=?");