@@ -, +, @@ --- .../prog/en/modules/virtualshelves/shelves.tt | 25 +++++++++++++++++++--- virtualshelves/shelves.pl | 24 +++++++++++++++++++++ 2 files changed, 46 insertions(+), 3 deletions(-) --- a/koha-tmpl/intranet-tmpl/prog/en/modules/virtualshelves/shelves.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/virtualshelves/shelves.tt @@ -379,7 +379,11 @@ function AdjustRemark() { [% CASE 'error_on_delete' %] An error occurred when deleting this list. [% CASE 'error_on_add_biblio' %] - The item ([% m.item_barcode %]) has not been added to the list. Please verify it is not already in the list. + [% IF m.item_barcode %] + The item ([% m.item_barcode %]) has not been added to the list. Please verify it is not already in the list. + [% ELSE %] + The record ([% m.bibnum %]) has not been added to the list. Please verify it is not already in the list. + [% END %] [% CASE 'success_on_update' %] List updated. [% CASE 'success_on_insert' %] @@ -387,13 +391,21 @@ function AdjustRemark() { [% CASE 'success_on_delete' %] List deleted. [% CASE 'success_on_add_biblio' %] - The item ([% m.item_barcode %]) has been added to the list. + [% IF m.item_barcode %] + The item ([% m.item_barcode %]) has been added to the list. + [% ELSE %] + The record ([% m.bibnum %]) has been added to the list. + [% END %] [% CASE 'success_on_remove_biblios' %] The item has been removed from the list. [% CASE 'does_not_exist' %] This list does not exist. [% CASE 'item_does_not_exist' %] - The item ([% m.item_barcode %]) does not exist. + [% IF m.item_barcode %] + The item ([% m.item_barcode %]) does not exist. + [% ELSE %] + The record ([% m.bibnum %]) does not exist. + [% END %] [% CASE 'unauthorized_on_view' %] You do not have permission to view this list. [% CASE 'unauthorized_on_update' %] @@ -687,6 +699,13 @@ function AdjustRemark() { +
  • + + + + + +
  • --- a/virtualshelves/shelves.pl +++ a/virtualshelves/shelves.pl @@ -169,6 +169,30 @@ if ( $op eq 'add_form' ) { push @messages, { type => 'alert', code => 'unauthorized_on_add_biblio' }; } } + if ( my $biblionumbers = $query->param('biblionumbers') ) { + if ( $shelf->can_biblios_be_added( $loggedinuser ) ) { + my @biblionumbers = split /\n/, $biblionumbers; + foreach my $biblionumber (@biblionumbers) { + $biblionumber =~ s/\r$//; # strip any naughty return chars + next if $biblionumber eq ''; + my $biblio = Koha::Biblios->find($biblionumber); + if (defined $biblio) { + my $added = eval { $shelf->add_biblio( $biblionumber, $loggedinuser ); }; + if ($@) { + push @messages, { bibnum => $biblionumber, type => 'alert', code => ref($@), msg => $@ }; + } elsif ( $added ) { + push @messages, { bibnum => $biblionumber, type => 'message', code => 'success_on_add_biblio' }; + } else { + push @messages, { bibnum => $biblionumber, type => 'message', code => 'error_on_add_biblio' }; + } + } else { + push @messages, { bibnum => $biblionumber, type => 'alert', code => 'item_does_not_exist' }; + } + } + } else { + push @messages, { type => 'alert', code => 'unauthorized_on_add_biblio' }; + } + } } else { push @messages, { type => 'alert', code => 'does_not_exist' }; } --