projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
remove use of 2xx$3 in Building hierarchy
[koha.git]
/
C4
/
AuthoritiesMarc.pm
diff --git
a/C4/AuthoritiesMarc.pm
b/C4/AuthoritiesMarc.pm
index
72d0992
..
aef8b6c
100644
(file)
--- a/
C4/AuthoritiesMarc.pm
+++ b/
C4/AuthoritiesMarc.pm
@@
-1108,7
+1108,7
@@
sub BuildUnimarcHierarchy{
my $record = shift @_;
my $class = shift @_;
my $authid_constructed = shift @_;
- my $authid=$record->
subfield('2..','3'
);
+ my $authid=$record->
field('001')->data(
);
my %cell;
my $parents=""; my $children="";
my (@loopparents,@loopchildren);