|
Lines 728-736
sub HoldTitle {
Link Here
|
| 728 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
728 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 729 |
return { code => 'PatronNotFound' } unless $patron; |
729 |
return { code => 'PatronNotFound' } unless $patron; |
| 730 |
|
730 |
|
|
|
731 |
|
| 731 |
# If borrower is restricted return an error code |
732 |
# If borrower is restricted return an error code |
| 732 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
733 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
| 733 |
|
734 |
|
|
|
735 |
# Check for patron expired, category and syspref settings |
| 736 |
return { code => 'PatronExpired' } if ($patron->category->effective_BlockExpiredPatronOpacActions && $patron->is_expired); |
| 737 |
|
| 734 |
# Get the biblio record, or return an error code |
738 |
# Get the biblio record, or return an error code |
| 735 |
my $biblionumber = $cgi->param('bib_id'); |
739 |
my $biblionumber = $cgi->param('bib_id'); |
| 736 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
740 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
|
Lines 839-844
sub HoldItem {
Link Here
|
| 839 |
# If borrower is restricted return an error code |
843 |
# If borrower is restricted return an error code |
| 840 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
844 |
return { code => 'PatronRestricted' } if $patron->is_debarred; |
| 841 |
|
845 |
|
|
|
846 |
# Check for patron expired, category and syspref settings |
| 847 |
return { code => 'PatronExpired' } if ($patron->category->effective_BlockExpiredPatronOpacActions && $patron->is_expired); |
| 848 |
|
| 842 |
# Get the biblio or return an error code |
849 |
# Get the biblio or return an error code |
| 843 |
my $biblionumber = $cgi->param('bib_id'); |
850 |
my $biblionumber = $cgi->param('bib_id'); |
| 844 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
851 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
| 845 |
- |
|
|