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

(-)a/C4/SIP/ILS/Patron.pm (-6 / +20 lines)
Lines 50-55 sub new { Link Here
50
	my $flags     = $kp->{flags};     # or warn "Warning: No flags from patron object for '$patron_id'"; 
50
	my $flags     = $kp->{flags};     # or warn "Warning: No flags from patron object for '$patron_id'"; 
51
	my $debarred  = $kp->{debarred};  # 1 if ($kp->{flags}->{DBARRED}->{noissues});
51
	my $debarred  = $kp->{debarred};  # 1 if ($kp->{flags}->{DBARRED}->{noissues});
52
	$debug and warn sprintf("Debarred = %s : ", ($debarred||'undef')) . Dumper(%{$kp->{flags}});
52
	$debug and warn sprintf("Debarred = %s : ", ($debarred||'undef')) . Dumper(%{$kp->{flags}});
53
    my ($day, $month, $year) = (localtime)[3,4,5];
54
    my $today    = sprintf '%04d-%02d-%02d', $year+1900, $month+1, $day;
55
    my $expired  = ($today gt $kp->{dateexpiry}) ? 1 : 0;
56
    if ($expired) {
57
        if ($kp->{opacnote} ) {
58
            $kp->{opacnote} .= q{ };
59
        }
60
        $kp->{opacnote} .= 'PATRON EXPIRED';
61
    }
53
	my %ilspatron;
62
	my %ilspatron;
54
	my $adr     = $kp->{streetnumber} || '';
63
	my $adr     = $kp->{streetnumber} || '';
55
	my $address = $kp->{address}      || ''; 
64
	my $address = $kp->{address}      || ''; 
Lines 74-83 sub new { Link Here
74
        address         => $adr,
83
        address         => $adr,
75
        home_phone      => $kp->{phone},
84
        home_phone      => $kp->{phone},
76
        email_addr      => $kp->{email},
85
        email_addr      => $kp->{email},
77
        charge_ok       => ( !$debarred ),
86
        charge_ok       => ( !$debarred && !$expired ),
78
        renew_ok        => ( !$debarred ),
87
        renew_ok        => ( !$debarred && !$expired ),
79
        recall_ok       => ( !$debarred ),
88
        recall_ok       => ( !$debarred && !$expired ),
80
        hold_ok         => ( !$debarred ),
89
        hold_ok         => ( !$debarred && !$expired ),
81
        card_lost       => ( $kp->{lost} || $kp->{gonenoaddress} || $flags->{LOST} ),
90
        card_lost       => ( $kp->{lost} || $kp->{gonenoaddress} || $flags->{LOST} ),
82
        claims_returned => 0,
91
        claims_returned => 0,
83
        fines           => $fines_amount, # GetMemberAccountRecords($kp->{borrowernumber})
92
        fines           => $fines_amount, # GetMemberAccountRecords($kp->{borrowernumber})
Lines 92-98 sub new { Link Here
92
        fine_items      => [],
101
        fine_items      => [],
93
        recall_items    => [],
102
        recall_items    => [],
94
        unavail_holds   => [],
103
        unavail_holds   => [],
95
        inet            => ( !$debarred ),
104
        inet            => ( !$debarred && !$expired ),
105
        expired         => $expired,
96
    );
106
    );
97
    }
107
    }
98
    $debug and warn "patron fines: $ilspatron{fines} ... amountoutstanding: $kp->{amountoutstanding} ... CHARGES->amount: $flags->{CHARGES}->{amount}";
108
    $debug and warn "patron fines: $ilspatron{fines} ... amountoutstanding: $kp->{amountoutstanding} ... CHARGES->amount: $flags->{CHARGES}->{amount}";
Lines 205-210 sub language { Link Here
205
    return $self->{language} || '000'; # Unspecified
215
    return $self->{language} || '000'; # Unspecified
206
}
216
}
207
217
218
sub expired {
219
    my $self = shift;
220
    return $self->{expired};
221
}
222
208
#
223
#
209
# remove the hold on item item_id from my hold queue.
224
# remove the hold on item item_id from my hold queue.
210
# return true if I was holding the item, false otherwise.
225
# return true if I was holding the item, false otherwise.
211
- 

Return to bug 4361