|
Lines 1248-1254
sub BuildAuthHierarchy{
Link Here
|
| 1248 |
$cell{"children"}=\@loopchildren; |
1248 |
$cell{"children"}=\@loopchildren; |
| 1249 |
$cell{"class"}=$class; |
1249 |
$cell{"class"}=$class; |
| 1250 |
$cell{"authid"}=$authid; |
1250 |
$cell{"authid"}=$authid; |
| 1251 |
$cell{"current_value"} =1 if $authid eq $authid_constructed; |
1251 |
$cell{"current_value"} =1 if ($authid eq $authid_constructed); |
| 1252 |
$cell{"value"}=C4::Context->preference('marcflavour') eq 'UNIMARC' ? $record->subfield('2..',"a") : $record->subfield('1..', 'a'); |
1252 |
$cell{"value"}=C4::Context->preference('marcflavour') eq 'UNIMARC' ? $record->subfield('2..',"a") : $record->subfield('1..', 'a'); |
| 1253 |
return \%cell; |
1253 |
return \%cell; |
| 1254 |
} |
1254 |
} |
|
Lines 1275-1281
sub BuildAuthHierarchyBranch {
Link Here
|
| 1275 |
if (scalar @$tree > 0) { |
1275 |
if (scalar @$tree > 0) { |
| 1276 |
my $nextBranch = BuildAuthHierarchyBranch($tree, $authid, ++$cnt); |
1276 |
my $nextBranch = BuildAuthHierarchyBranch($tree, $authid, ++$cnt); |
| 1277 |
my $nextAuthid = $nextBranch->{authid}; |
1277 |
my $nextAuthid = $nextBranch->{authid}; |
| 1278 |
push @{$branch->{children}}, $nextBranch unless grep {$_->{authid} == $nextAuthid} @{$branch->{children}}; |
1278 |
my $found; |
|
|
1279 |
# If we already have the next branch listed as a child, let's |
| 1280 |
# replace the old listing with the new one. If not, we will add |
| 1281 |
# the branch at the end. |
| 1282 |
foreach my $cell (@{$branch->{children}}) { |
| 1283 |
if ($cell->{authid} eq $nextAuthid) { |
| 1284 |
$cell = $nextBranch; |
| 1285 |
$found = 1; |
| 1286 |
last; |
| 1287 |
} |
| 1288 |
} |
| 1289 |
push @{$branch->{children}}, $nextBranch unless $found; |
| 1279 |
} |
1290 |
} |
| 1280 |
return $branch; |
1291 |
return $branch; |
| 1281 |
} |
1292 |
} |
| 1282 |
- |
|
|