Lines 148-154
sub all_libraries {
Link Here
|
148 |
my @children = $self->children; |
148 |
my @children = $self->children; |
149 |
foreach my $c (@children) { |
149 |
foreach my $c (@children) { |
150 |
if ( $c->branchcode ) { |
150 |
if ( $c->branchcode ) { |
151 |
push( @libraries, $c ); |
151 |
push( @libraries, $c->library ); |
152 |
} |
152 |
} |
153 |
else { |
153 |
else { |
154 |
push( @libraries, $c->all_libraries ); |
154 |
push( @libraries, $c->all_libraries ); |
Lines 159-165
sub all_libraries {
Link Here
|
159 |
@libraries = |
159 |
@libraries = |
160 |
grep { !$seen{ $_->id }++ } @libraries; |
160 |
grep { !$seen{ $_->id }++ } @libraries; |
161 |
|
161 |
|
162 |
# return wantarray ? @li : $children; |
|
|
163 |
return @libraries; |
162 |
return @libraries; |
164 |
} |
163 |
} |
165 |
|
164 |
|
166 |
- |
|
|