Lines 30-35
use C4::Members;
Link Here
|
30 |
use C4::Members::AttributeTypes; |
30 |
use C4::Members::AttributeTypes; |
31 |
use C4::Members::Attributes qw/GetBorrowerAttributeValue/; |
31 |
use C4::Members::Attributes qw/GetBorrowerAttributeValue/; |
32 |
use C4::Output; |
32 |
use C4::Output; |
|
|
33 |
use C4::Overdues qw/CheckBorrowerDebarred/; |
33 |
use C4::Biblio; |
34 |
use C4::Biblio; |
34 |
use C4::Items; |
35 |
use C4::Items; |
35 |
use C4::Dates qw/format_date/; |
36 |
use C4::Dates qw/format_date/; |
Lines 78-84
for (qw(dateenrolled dateexpiry dateofbirth)) {
Link Here
|
78 |
} |
79 |
} |
79 |
$borr->{'ethnicity'} = fixEthnicity( $borr->{'ethnicity'} ); |
80 |
$borr->{'ethnicity'} = fixEthnicity( $borr->{'ethnicity'} ); |
80 |
|
81 |
|
81 |
if ( $borr->{'debarred'} || $borr->{'gonenoaddress'} || $borr->{'lost'} ) { |
82 |
my $debar = CheckBorrowerDebarred($borrowernumber); |
|
|
83 |
if ($debar) { |
84 |
$borr->{'userdebarred'} = 1; |
85 |
if ( $debar ne "9999-12-31" ) { |
86 |
$borr->{'userdebarreddate'} = C4::Dates::format_date($debar); |
87 |
} |
88 |
} |
89 |
|
90 |
if ( $borr->{'userdebarred'} || $borr->{'gonenoaddress'} || $borr->{'lost'} ) { |
82 |
$borr->{'flagged'} = 1; |
91 |
$borr->{'flagged'} = 1; |
83 |
} |
92 |
} |
84 |
|
93 |
|
Lines 104-110
if ( $borr->{'amountoutstanding'} < 0 ) {
Link Here
|
104 |
} |
113 |
} |
105 |
|
114 |
|
106 |
$borr->{'amountoutstanding'} = sprintf "%.02f", $borr->{'amountoutstanding'}; |
115 |
$borr->{'amountoutstanding'} = sprintf "%.02f", $borr->{'amountoutstanding'}; |
107 |
$borr->{'debarred'} = C4::Dates->new($borr->{'debarred'},'iso')->output; |
|
|
108 |
|
116 |
|
109 |
my @bordat; |
117 |
my @bordat; |
110 |
$bordat[0] = $borr; |
118 |
$bordat[0] = $borr; |
111 |
- |
|
|