View | Details | Raw Unified | Return to bug 17214
Collapse All | Expand All

(-)a/virtualshelves/shelves.pl (-2 / +1 lines)
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
- 

Return to bug 17214