Lines 209-216
sub remove_biblios {
Link Here
|
209 |
my $borrowernumber = $params->{borrowernumber}; |
209 |
my $borrowernumber = $params->{borrowernumber}; |
210 |
return unless @$biblionumbers; |
210 |
return unless @$biblionumbers; |
211 |
|
211 |
|
|
|
212 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
213 |
my $staffuser = 1 if ( haspermission( $patron->userid, {'catalogue' => 1 })); |
212 |
my $number_removed = 0; |
214 |
my $number_removed = 0; |
213 |
if( ( $self->owner == $borrowernumber && $self->allow_change_from_owner ) |
215 |
if( ( $self->owner == $borrowernumber && $self->allow_change_from_owner ) |
|
|
216 |
|| ( $staffuser && $self->allow_change_from_staff ) |
214 |
|| $self->allow_change_from_others ) { |
217 |
|| $self->allow_change_from_others ) { |
215 |
$number_removed += $self->get_contents->search({ |
218 |
$number_removed += $self->get_contents->search({ |
216 |
biblionumber => $biblionumbers, |
219 |
biblionumber => $biblionumbers, |
217 |
- |
|
|