|
Lines 59-71
sub new {
Link Here
|
| 59 |
$kp->{opacnote} .= 'PATRON EXPIRED'; |
59 |
$kp->{opacnote} .= 'PATRON EXPIRED'; |
| 60 |
} |
60 |
} |
| 61 |
my %ilspatron; |
61 |
my %ilspatron; |
| 62 |
my $adr = $kp->{streetnumber} || ''; |
62 |
my $adr = _get_address($kp); |
| 63 |
my $address = $kp->{address} || ''; |
|
|
| 64 |
my $dob = $kp->{dateofbirth}; |
63 |
my $dob = $kp->{dateofbirth}; |
| 65 |
$dob and $dob =~ s/-//g; # YYYYMMDD |
64 |
$dob and $dob =~ s/-//g; # YYYYMMDD |
| 66 |
my $dexpiry = $kp->{dateexpiry}; |
65 |
my $dexpiry = $kp->{dateexpiry}; |
| 67 |
$dexpiry and $dexpiry =~ s/-//g; # YYYYMMDD |
66 |
$dexpiry and $dexpiry =~ s/-//g; # YYYYMMDD |
| 68 |
$adr .= ($adr && $address) ? " $address" : $address; |
|
|
| 69 |
my $fines_amount = $flags->{CHARGES}->{amount}; |
67 |
my $fines_amount = $flags->{CHARGES}->{amount}; |
| 70 |
$fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0; |
68 |
$fines_amount = ($fines_amount and $fines_amount > 0) ? $fines_amount : 0; |
| 71 |
{ |
69 |
{ |
|
Lines 350-355
sub charge_denied {
Link Here
|
| 350 |
return "Please contact library staff"; |
348 |
return "Please contact library staff"; |
| 351 |
} |
349 |
} |
| 352 |
|
350 |
|
|
|
351 |
sub _get_address { |
| 352 |
my $patron = shift; |
| 353 |
|
| 354 |
my $address = $patron->{streetnumber} || q{}; |
| 355 |
for my $field (qw( roaddetails address address2 city state zipcode country)) |
| 356 |
{ |
| 357 |
next unless $patron->{$field}; |
| 358 |
if ($address) { |
| 359 |
$address .= q{ }; |
| 360 |
$address .= $patron->{$field}; |
| 361 |
} |
| 362 |
else { |
| 363 |
$address .= $patron->{$field}; |
| 364 |
} |
| 365 |
} |
| 366 |
return $address; |
| 367 |
} |
| 368 |
|
| 353 |
1; |
369 |
1; |
| 354 |
__END__ |
370 |
__END__ |
| 355 |
|
371 |
|
| 356 |
- |
|
|