Lines 144-157
sub all_libraries {
Link Here
|
144 |
|
144 |
|
145 |
my @libraries; |
145 |
my @libraries; |
146 |
|
146 |
|
147 |
my @children = $self->children; |
147 |
push (@libraries, $self->libraries); |
|
|
148 |
my @children = $self->children->search({ branchcode => undef }); |
148 |
foreach my $c (@children) { |
149 |
foreach my $c (@children) { |
149 |
if ( $c->branchcode ) { |
150 |
push( @libraries, $c->all_libraries ); |
150 |
push( @libraries, $c->library ); |
|
|
151 |
} |
152 |
else { |
153 |
push( @libraries, $c->all_libraries ); |
154 |
} |
155 |
} |
151 |
} |
156 |
|
152 |
|
157 |
my %seen; |
153 |
my %seen; |
158 |
- |
|
|