|
Lines 90-100
sub new {
Link Here
|
| 90 |
} elsif ( $noissueschargeguarantorswithguarantees ) { |
90 |
} elsif ( $noissueschargeguarantorswithguarantees ) { |
| 91 |
$fines_amount += $patron->relationships_debt({ include_guarantors => 1, only_this_guarantor => 0, include_this_patron => 0 }); |
91 |
$fines_amount += $patron->relationships_debt({ include_guarantors => 1, only_this_guarantor => 0, include_this_patron => 0 }); |
| 92 |
$fine_blocked ||= $fines_amount > $noissueschargeguarantorswithguarantees; |
92 |
$fine_blocked ||= $fines_amount > $noissueschargeguarantorswithguarantees; |
| 93 |
$fines_msg .= " -- " . "Patron blocked by fines ($fines_amount) on related accounts"; |
93 |
$fines_msg .= " -- " . "Patron blocked by fines ($fines_amount) on related accounts" if $fine_blocked; |
| 94 |
} elsif ( $noissueschargeguarantees ) { |
94 |
} elsif ( $noissueschargeguarantees ) { |
| 95 |
$fines_amount += $patron->relationships_debt({ include_guarantors => 0, only_this_guarantor => 0, include_this_patron => 0 }); |
95 |
$fines_amount += $patron->relationships_debt({ include_guarantors => 0, only_this_guarantor => 0, include_this_patron => 0 }); |
| 96 |
$fine_blocked ||= $fines_amount > $noissueschargeguarantees; |
96 |
$fine_blocked ||= $fines_amount > $noissueschargeguarantees; |
| 97 |
$fines_msg .= " -- " . "Patron blocked by fines ($fines_amount) on guaranteed accounts"; |
97 |
$fines_msg .= " -- " . "Patron blocked by fines ($fines_amount) on guaranteed accounts" if $fine_blocked; |
| 98 |
} |
98 |
} |
| 99 |
|
99 |
|
| 100 |
my $circ_blocked =( C4::Context->preference('OverduesBlockCirc') ne "noblock" && defined $flags->{ODUES}->{itemlist} ) ? 1 : 0; |
100 |
my $circ_blocked =( C4::Context->preference('OverduesBlockCirc') ne "noblock" && defined $flags->{ODUES}->{itemlist} ) ? 1 : 0; |
| 101 |
- |
|
|