Lines 65-72
sub new {
Link Here
|
65 |
$dob and $dob =~ s/-//g; # YYYYMMDD |
65 |
$dob and $dob =~ s/-//g; # YYYYMMDD |
66 |
my $dexpiry = $kp->{dateexpiry}; |
66 |
my $dexpiry = $kp->{dateexpiry}; |
67 |
$dexpiry and $dexpiry =~ s/-//g; # YYYYMMDD |
67 |
$dexpiry and $dexpiry =~ s/-//g; # YYYYMMDD |
|
|
68 |
|
68 |
my $fines_amount = $flags->{CHARGES}->{amount}; # This "amount" is the negative balance or the one of the guarantees |
69 |
my $fines_amount = $flags->{CHARGES}->{amount}; # This "amount" is the negative balance or the one of the guarantees |
69 |
$fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0; |
70 |
$fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0; |
|
|
71 |
my $guarantees_fines_amount = $flags->{CHARGES_GUARANTEES} ? $flags->{CHARGES_GUARANTEES}->{amount} : 0; |
72 |
$fines_amount += $guarantees_fines_amount; |
73 |
|
70 |
my $fee_limit = _fee_limit(); |
74 |
my $fee_limit = _fee_limit(); |
71 |
my $fine_blocked = $fines_amount > $fee_limit; |
75 |
my $fine_blocked = $fines_amount > $fee_limit; |
72 |
my $circ_blocked =( C4::Context->preference('OverduesBlockCirc') ne "noblock" && defined $flags->{ODUES}->{itemlist} ) ? 1 : 0; |
76 |
my $circ_blocked =( C4::Context->preference('OverduesBlockCirc') ne "noblock" && defined $flags->{ODUES}->{itemlist} ) ? 1 : 0; |
73 |
- |
|
|