projects
/
koha_fer
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9b656b5
)
Bug 8523 follow-up fixing perlcritic
author
Paul Poulain
<paul.poulain@biblibre.com>
Fri, 21 Sep 2012 14:30:36 +0000
(16:30 +0200)
committer
Paul Poulain
<paul.poulain@biblibre.com>
Fri, 21 Sep 2012 14:30:36 +0000
(16:30 +0200)
C4/AuthoritiesMarc.pm
patch
|
blob
|
history
diff --git
a/C4/AuthoritiesMarc.pm
b/C4/AuthoritiesMarc.pm
index
4699114
..
2671cd4
100644
(file)
--- a/
C4/AuthoritiesMarc.pm
+++ b/
C4/AuthoritiesMarc.pm
@@
-1312,7
+1312,7
@@
sub BuildAuthHierarchy{
my $record = shift @_;
my $class = shift @_;
my $authid_constructed = shift @_;
- return un
def un
less ($record && $record->field('001'));
+ return unless ($record && $record->field('001'));
my $authid=$record->field('001')->data();
my %cell;
my $parents=""; my $children="";