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