|
Lines 144-151
sub all_libraries {
Link Here
|
| 144 |
|
144 |
|
| 145 |
my @libraries; |
145 |
my @libraries; |
| 146 |
|
146 |
|
| 147 |
push (@libraries, $self->libraries); |
147 |
push (@libraries, $self->libraries->as_list); |
| 148 |
my @children = $self->children->search({ branchcode => undef }); |
148 |
my @children = $self->children->search({ branchcode => undef })->as_list; |
| 149 |
foreach my $c (@children) { |
149 |
foreach my $c (@children) { |
| 150 |
push( @libraries, $c->all_libraries ); |
150 |
push( @libraries, $c->all_libraries ); |
| 151 |
} |
151 |
} |
| 152 |
- |
|
|