|
Lines 143-148
sub HandleSelect {
Link Here
|
| 143 |
} |
143 |
} |
| 144 |
|
144 |
|
| 145 |
sub LoadBib { |
145 |
sub LoadBib { |
|
|
146 |
#see comment in AddBibliosToShelf |
| 147 |
if (scalar(@biblionumber) == 1) { |
| 148 |
@biblionumber = (split /\//,$biblionumber[0]); |
| 149 |
} |
| 146 |
for my $bib (@biblionumber) { |
150 |
for my $bib (@biblionumber) { |
| 147 |
my $data = GetBiblioData( $bib ); |
151 |
my $data = GetBiblioData( $bib ); |
| 148 |
push(@biblios, |
152 |
push(@biblios, |
| 149 |
- |
|
|