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 |
- |
|
|