Lines 61-71
sub new {
Link Here
|
61 |
my %ilspatron; |
61 |
my %ilspatron; |
62 |
my $adr = $kp->{streetnumber} || ''; |
62 |
my $adr = $kp->{streetnumber} || ''; |
63 |
my $address = $kp->{address} || ''; |
63 |
my $address = $kp->{address} || ''; |
|
|
64 |
my $zip = $kp->{zipcode} || ''; |
64 |
my $dob = $kp->{dateofbirth}; |
65 |
my $dob = $kp->{dateofbirth}; |
65 |
$dob and $dob =~ s/-//g; # YYYYMMDD |
66 |
$dob and $dob =~ s/-//g; # YYYYMMDD |
66 |
my $dexpiry = $kp->{dateexpiry}; |
67 |
my $dexpiry = $kp->{dateexpiry}; |
67 |
$dexpiry and $dexpiry =~ s/-//g; # YYYYMMDD |
68 |
$dexpiry and $dexpiry =~ s/-//g; # YYYYMMDD |
68 |
$adr .= ($adr && $address) ? " $address" : $address; |
69 |
$adr .= ($adr && $address && $zip) ? " $address" : $address; |
69 |
my $fines_amount = $flags->{CHARGES}->{amount}; |
70 |
my $fines_amount = $flags->{CHARGES}->{amount}; |
70 |
$fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0; |
71 |
$fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0; |
71 |
{ |
72 |
{ |
72 |
- |
|
|