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; |