|
Lines 178-183
sub delete {
Link Here
|
| 178 |
return $deleted; |
178 |
return $deleted; |
| 179 |
} |
179 |
} |
| 180 |
|
180 |
|
|
|
181 |
=head3 move_hold_item |
| 182 |
|
| 183 |
$hold->move_hold_item(); |
| 184 |
|
| 185 |
=cut |
| 186 |
|
| 187 |
sub move_hold_item { |
| 188 |
my ( $self, $args ) = @_; |
| 189 |
|
| 190 |
my $new_itemnumber = $args->{new_itemnumber}; |
| 191 |
my $new_biblionumber = $args->{new_biblionumber}; |
| 192 |
|
| 193 |
if ($new_itemnumber) { |
| 194 |
my $new_item = Koha::Items->find( { itemnumber => $new_itemnumber } ); |
| 195 |
$self->update( |
| 196 |
{ |
| 197 |
itemnumber => $new_item->itemnumber, |
| 198 |
biblionumber => $new_item->biblionumber |
| 199 |
} |
| 200 |
); |
| 201 |
} |
| 202 |
return $self; |
| 203 |
} |
| 204 |
|
| 181 |
=head3 set_transfer |
205 |
=head3 set_transfer |
| 182 |
|
206 |
|
| 183 |
=cut |
207 |
=cut |
| 184 |
- |
|
|