=head1 NAME
-etail.pl : script to show an authority in MARC format
+detail.pl : script to show an authority in MARC format
=head1 SYNOPSIS
use C4::Auth;
use C4::Context;
use C4::Output;
-use C4::Interface::CGI::Output;
use CGI;
use MARC::Record;
use C4::Koha;
-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")){
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++;
'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=?");