|
Lines 67-75
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
| 67 |
); |
67 |
); |
| 68 |
|
68 |
|
| 69 |
my $authid = $query->param('authid'); |
69 |
my $authid = $query->param('authid'); |
|
|
70 |
my $record = GetAuthority( $authid ); |
| 71 |
if ( ! $record ) { |
| 72 |
print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early |
| 73 |
exit; |
| 74 |
} |
| 75 |
|
| 70 |
my $authtypecode = &GetAuthTypeCode( $authid ); |
76 |
my $authtypecode = &GetAuthTypeCode( $authid ); |
| 71 |
|
77 |
|
| 72 |
my $record; |
|
|
| 73 |
if ($display_hierarchy){ |
78 |
if ($display_hierarchy){ |
| 74 |
my $trees=BuildUnimarcHierarchies($authid); |
79 |
my $trees=BuildUnimarcHierarchies($authid); |
| 75 |
my @trees = split /;/,$trees ; |
80 |
my @trees = split /;/,$trees ; |
|
Lines 83-89
if ($display_hierarchy){
Link Here
|
| 83 |
foreach my $element (@tree){ |
88 |
foreach my $element (@tree){ |
| 84 |
my $cell; |
89 |
my $cell; |
| 85 |
my $elementdata = GetAuthority($element); |
90 |
my $elementdata = GetAuthority($element); |
| 86 |
$record= $elementdata if ($authid==$element); |
|
|
| 87 |
push @loophierarchy, BuildUnimarcHierarchy($elementdata,"child".$cnt, $authid); |
91 |
push @loophierarchy, BuildUnimarcHierarchy($elementdata,"child".$cnt, $authid); |
| 88 |
$cnt++; |
92 |
$cnt++; |
| 89 |
} |
93 |
} |
|
Lines 94-102
if ($display_hierarchy){
Link Here
|
| 94 |
'loophierarchies' =>\@loophierarchies, |
98 |
'loophierarchies' =>\@loophierarchies, |
| 95 |
); |
99 |
); |
| 96 |
} |
100 |
} |
| 97 |
else { |
|
|
| 98 |
$record = GetAuthority( $authid ); |
| 99 |
} |
| 100 |
my $count = CountUsage($authid); |
101 |
my $count = CountUsage($authid); |
| 101 |
|
102 |
|
| 102 |
|
103 |
|
| 103 |
- |
|
|