View | Details | Raw Unified | Return to bug 8125
Collapse All | Expand All

(-)a/C4/SIP/ILS/Patron.pm (-2 / +2 lines)
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
- 

Return to bug 8125