|
Lines 675-680
sub HoldTitle {
Link Here
|
| 675 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
675 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 676 |
return { code => 'PatronNotFound' } unless $patron; |
676 |
return { code => 'PatronNotFound' } unless $patron; |
| 677 |
|
677 |
|
|
|
678 |
# If borrower is debarred return an error code |
| 679 |
return { code => 'PatronDebarred' } if $patron->is_debarred; |
| 680 |
|
| 678 |
# Get the biblio record, or return an error code |
681 |
# Get the biblio record, or return an error code |
| 679 |
my $biblionumber = $cgi->param('bib_id'); |
682 |
my $biblionumber = $cgi->param('bib_id'); |
| 680 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
683 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
|
Lines 760-765
sub HoldItem {
Link Here
|
| 760 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
763 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 761 |
return { code => 'PatronNotFound' } unless $patron; |
764 |
return { code => 'PatronNotFound' } unless $patron; |
| 762 |
|
765 |
|
|
|
766 |
# If borrower is debarred return an error code |
| 767 |
return { code => 'PatronDebarred' } if $patron->is_debarred; |
| 768 |
|
| 763 |
# Get the biblio or return an error code |
769 |
# Get the biblio or return an error code |
| 764 |
my $biblionumber = $cgi->param('bib_id'); |
770 |
my $biblionumber = $cgi->param('bib_id'); |
| 765 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
771 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
| 766 |
- |
|
|