|
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 |
- |
|
|