|
Lines 362-368
sub remove_hold {
Link Here
|
| 362 |
sub { |
362 |
sub { |
| 363 |
my ($data) = @_; |
363 |
my ($data) = @_; |
| 364 |
return 1 if $data->{errorCode} eq "PatronDoesntHaveTitleOnHold"; |
364 |
return 1 if $data->{errorCode} eq "PatronDoesntHaveTitleOnHold"; |
| 365 |
die ($data->{message} || $data->{errorCode})."\n"; |
365 |
my $error = ($data->{message} || $data->{errorCode})."\n"; |
|
|
366 |
die $error; |
| 366 |
}, |
367 |
}, |
| 367 |
$url |
368 |
$url |
| 368 |
); |
369 |
); |
|
Lines 570-576
sub return {
Link Here
|
| 570 |
sub { |
571 |
sub { |
| 571 |
my ($data) = @_; |
572 |
my ($data) = @_; |
| 572 |
return 1 if $data->{errorCode} eq "PatronDoesntHaveTitleCheckedOut"; |
573 |
return 1 if $data->{errorCode} eq "PatronDoesntHaveTitleCheckedOut"; |
| 573 |
die ($data->{message} || $data->{errorCode})."\n"; |
574 |
my $error = ($data->{message} || $data->{errorCode})."\n"; |
|
|
575 |
die $error; |
| 574 |
}, |
576 |
}, |
| 575 |
$url |
577 |
$url |
| 576 |
); |
578 |
); |
|
Lines 640-646
sub native_place_hold {
Link Here
|
| 640 |
} |
642 |
} |
| 641 |
} |
643 |
} |
| 642 |
|
644 |
|
| 643 |
die ($data->{message} || $data->{errorCode})."\n"; |
645 |
my $error = ($data->{message} || $data->{errorCode})."\n"; |
|
|
646 |
die $error; |
| 644 |
}, |
647 |
}, |
| 645 |
$url, |
648 |
$url, |
| 646 |
{fields => \@fields} |
649 |
{fields => \@fields} |
| 647 |
- |
|
|