|
Lines 2916-2922
If any blockers are found, these are returned in a hash
Link Here
|
| 2916 |
=cut |
2916 |
=cut |
| 2917 |
|
2917 |
|
| 2918 |
sub can_borrow { |
2918 |
sub can_borrow { |
| 2919 |
my ( $self ) = @_; |
2919 |
my ($self) = @_; |
| 2920 |
|
2920 |
|
| 2921 |
my $status = { can_borrow => 1 }; |
2921 |
my $status = { can_borrow => 1 }; |
| 2922 |
|
2922 |
|
|
Lines 2948-2964
sub is_patron_inside_charge_limits {
Link Here
|
| 2948 |
my ( $self, $args ) = @_; |
2948 |
my ( $self, $args ) = @_; |
| 2949 |
|
2949 |
|
| 2950 |
my $borrowernumber = $args->{borrowernumber}; |
2950 |
my $borrowernumber = $args->{borrowernumber}; |
| 2951 |
my $patron = $args->{patron} || Koha::Patrons->find( { borrowernumber => $borrowernumber } ); |
2951 |
my $patron = $self || Koha::Patrons->find( { borrowernumber => $borrowernumber } ); |
| 2952 |
my $patron_category = $patron->category; |
2952 |
my $patron_category = $patron->category; |
| 2953 |
my $patron_charge_limits = {}; |
2953 |
my $patron_charge_limits = {}; |
| 2954 |
|
2954 |
|
| 2955 |
my $no_issues_charge = $patron_category->noissuescharge || C4::Context->preference('noissuescharge') || 0; |
2955 |
my $no_issues_charge = $patron_category->noissuescharge || C4::Context->preference('noissuescharge'); |
| 2956 |
my $no_issues_charge_guarantees = |
2956 |
my $no_issues_charge_guarantees = |
| 2957 |
$patron_category->noissueschargeguarantees || C4::Context->preference('NoIssuesChargeGuarantees') || 0; |
2957 |
$patron_category->noissueschargeguarantees || C4::Context->preference('NoIssuesChargeGuarantees'); |
| 2958 |
my $no_issues_charge_guarantors_with_guarantees = |
2958 |
my $no_issues_charge_guarantors_with_guarantees = $patron_category->noissueschargeguarantorswithguarantees |
| 2959 |
$patron_category->noissueschargeguarantorswithguarantees |
2959 |
|| C4::Context->preference('NoIssuesChargeGuarantorsWithGuarantees'); |
| 2960 |
|| C4::Context->preference('NoIssuesChargeGuarantorsWithGuarantees') |
|
|
| 2961 |
|| 0; |
| 2962 |
|
2960 |
|
| 2963 |
my $non_issues_charges = $patron->account->non_issues_charges; |
2961 |
my $non_issues_charges = $patron->account->non_issues_charges; |
| 2964 |
my $guarantees_non_issues_charges = 0; |
2962 |
my $guarantees_non_issues_charges = 0; |