|
Lines 688-695
sub HoldTitle {
Link Here
|
| 688 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
688 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 689 |
return { code => 'PatronNotFound' } unless $patron; |
689 |
return { code => 'PatronNotFound' } unless $patron; |
| 690 |
|
690 |
|
| 691 |
# If borrower is debarred return an error code |
691 |
# If borrower is restricted return an error code |
| 692 |
return { code => 'PatronDebarred' } if $patron->is_debarred; |
692 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
| 693 |
|
693 |
|
| 694 |
# Get the biblio record, or return an error code |
694 |
# Get the biblio record, or return an error code |
| 695 |
my $biblionumber = $cgi->param('bib_id'); |
695 |
my $biblionumber = $cgi->param('bib_id'); |
|
Lines 776-783
sub HoldItem {
Link Here
|
| 776 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
776 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 777 |
return { code => 'PatronNotFound' } unless $patron; |
777 |
return { code => 'PatronNotFound' } unless $patron; |
| 778 |
|
778 |
|
| 779 |
# If borrower is debarred return an error code |
779 |
# If borrower is restricted return an error code |
| 780 |
return { code => 'PatronDebarred' } if $patron->is_debarred; |
780 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
| 781 |
|
781 |
|
| 782 |
# Get the biblio or return an error code |
782 |
# Get the biblio or return an error code |
| 783 |
my $biblionumber = $cgi->param('bib_id'); |
783 |
my $biblionumber = $cgi->param('bib_id'); |
| 784 |
- |
|
|