|
Lines 175-181
if ( $op eq 'add_form' ) {
Link Here
|
| 175 |
foreach my $biblionumber (@biblionumbers) { |
175 |
foreach my $biblionumber (@biblionumbers) { |
| 176 |
$biblionumber =~ s/\r$//; # strip any naughty return chars |
176 |
$biblionumber =~ s/\r$//; # strip any naughty return chars |
| 177 |
next if $biblionumber eq ''; |
177 |
next if $biblionumber eq ''; |
| 178 |
my $biblio = GetBiblio($biblionumber); |
178 |
my $biblio = Koha::Biblios->find($biblionumber); |
| 179 |
if (defined $biblio) { |
179 |
if (defined $biblio) { |
| 180 |
my $added = eval { $shelf->add_biblio( $biblionumber, $loggedinuser ); }; |
180 |
my $added = eval { $shelf->add_biblio( $biblionumber, $loggedinuser ); }; |
| 181 |
if ($@) { |
181 |
if ($@) { |
| 182 |
- |
|
|