|
Lines 688-696
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 |
|
| 691 |
# If borrower is restricted return an error code |
692 |
# If borrower is restricted return an error code |
| 692 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
693 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
| 693 |
|
694 |
|
|
|
695 |
# Check for patron expired, category and syspref settings |
| 696 |
return { code => 'PatronExpired' } if ($patron->category->effective_BlockExpiredPatronOpacActions && $patron->is_expired); |
| 697 |
|
| 694 |
# Get the biblio record, or return an error code |
698 |
# Get the biblio record, or return an error code |
| 695 |
my $biblionumber = $cgi->param('bib_id'); |
699 |
my $biblionumber = $cgi->param('bib_id'); |
| 696 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
700 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
|
Lines 779-784
sub HoldItem {
Link Here
|
| 779 |
# If borrower is restricted return an error code |
783 |
# If borrower is restricted return an error code |
| 780 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
784 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
| 781 |
|
785 |
|
|
|
786 |
# Check for patron expired, category and syspref settings |
| 787 |
return { code => 'PatronExpired' } if ($patron->category->effective_BlockExpiredPatronOpacActions && $patron->is_expired); |
| 788 |
|
| 782 |
# Get the biblio or return an error code |
789 |
# Get the biblio or return an error code |
| 783 |
my $biblionumber = $cgi->param('bib_id'); |
790 |
my $biblionumber = $cgi->param('bib_id'); |
| 784 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
791 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
| 785 |
- |
|
|