Lines 130-136
sub new {
Link Here
|
130 |
|
130 |
|
131 |
# FIXME: populate fine_items recall_items |
131 |
# FIXME: populate fine_items recall_items |
132 |
$ilspatron{unavail_holds} = _get_outstanding_holds($kp->{borrowernumber}); |
132 |
$ilspatron{unavail_holds} = _get_outstanding_holds($kp->{borrowernumber}); |
133 |
$ilspatron{items} = $patron->pending_checkouts->unblessed; |
133 |
my $pending_checkouts = $patron->pending_checkouts; |
|
|
134 |
my @items_infos; |
135 |
while ( my $c = $pending_checkouts->next ) { |
136 |
push @items_infos, $c->unblessed_all_relateds; |
137 |
} |
138 |
$ilspatron{items} = \@items_infos; |
139 |
|
134 |
$self = \%ilspatron; |
140 |
$self = \%ilspatron; |
135 |
$debug and warn Dumper($self); |
141 |
$debug and warn Dumper($self); |
136 |
syslog("LOG_DEBUG", "new ILS::Patron(%s): found patron '%s'", $patron_id,$self->{id}); |
142 |
syslog("LOG_DEBUG", "new ILS::Patron(%s): found patron '%s'", $patron_id,$self->{id}); |
137 |
- |
|
|