|
Lines 188-197
$hold->move_hold();
Link Here
|
| 188 |
sub move_hold { |
188 |
sub move_hold { |
| 189 |
my ( $self, $args ) = @_; |
189 |
my ( $self, $args ) = @_; |
| 190 |
|
190 |
|
| 191 |
my $original = $self; |
191 |
my $original = $self->unblessed; |
| 192 |
my $original_biblionumber = $self->biblionumber; |
192 |
my $original_biblionumber = $self->biblionumber; |
| 193 |
|
193 |
|
| 194 |
my $found = $original->found // ''; |
194 |
my $found = $self->found // ''; |
| 195 |
|
195 |
|
| 196 |
if ( $found eq 'W' ) { |
196 |
if ( $found eq 'W' ) { |
| 197 |
return { success => 0, error => 'Cannot move a waiting hold' }; |
197 |
return { success => 0, error => 'Cannot move a waiting hold' }; |
| 198 |
- |
|
|