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 |
- |
|
|