|
Lines 713-721
sub HoldTitle {
Link Here
|
| 713 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
713 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 714 |
return { code => 'PatronNotFound' } unless $patron; |
714 |
return { code => 'PatronNotFound' } unless $patron; |
| 715 |
|
715 |
|
|
|
716 |
|
| 716 |
# If borrower is restricted return an error code |
717 |
# If borrower is restricted return an error code |
| 717 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
718 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
| 718 |
|
719 |
|
|
|
720 |
# Check for patron expired, category and syspref settings |
| 721 |
return { code => 'PatronExpired' } if ($patron->category->effective_BlockExpiredPatronOpacActions && $patron->is_expired); |
| 722 |
|
| 719 |
# Get the biblio record, or return an error code |
723 |
# Get the biblio record, or return an error code |
| 720 |
my $biblionumber = $cgi->param('bib_id'); |
724 |
my $biblionumber = $cgi->param('bib_id'); |
| 721 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
725 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
|
Lines 824-829
sub HoldItem {
Link Here
|
| 824 |
# If borrower is restricted return an error code |
828 |
# If borrower is restricted return an error code |
| 825 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
829 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
| 826 |
|
830 |
|
|
|
831 |
# Check for patron expired, category and syspref settings |
| 832 |
return { code => 'PatronExpired' } if ($patron->category->effective_BlockExpiredPatronOpacActions && $patron->is_expired); |
| 833 |
|
| 827 |
# Get the biblio or return an error code |
834 |
# Get the biblio or return an error code |
| 828 |
my $biblionumber = $cgi->param('bib_id'); |
835 |
my $biblionumber = $cgi->param('bib_id'); |
| 829 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
836 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
| 830 |
- |
|
|