gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing hierarchy processing

This commit is contained in:
Henri-Damien LAURENT 2010-03-08 12:33:35 +01:00
parent 29e5fa7ca2
commit cf4144bca8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C4/AuthoritiesMarc.pm
View File

@ -1051,9 +1051,7 @@ sub BuildUnimarcHierarchies{
my $data = GetHeaderAuthority($authid);
if ($data->{'authtrees'} and not $force){
return $data->{'authtrees'};
} elsif ($data->{'authtrees'}){
$hierarchies=$data->{'authtrees'};
} else {
} elsif ($force or !($data->{authtrees})) {
my $record = GetAuthority($authid);
my $found;
foreach my $field ($record->field('550')){
@ -1079,6 +1077,9 @@ sub BuildUnimarcHierarchies{
}
#Unless there is no ancestor, I am alone.
$hierarchies="$authid" unless ($hierarchies);
}
else {
$hierarchies=$data->{'authtrees'};
}
AddAuthorityTrees($authid,$hierarchies);
return $hierarchies;