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