Lines 102-107
sub new {
Link Here
|
102 |
$self->{hold_queue} = $holds; |
102 |
$self->{hold_queue} = $holds; |
103 |
$self->{hold_shelf} = [( grep { defined $_->{found} and $_->{found} eq 'W' } @{$self->{hold_queue}} )]; |
103 |
$self->{hold_shelf} = [( grep { defined $_->{found} and $_->{found} eq 'W' } @{$self->{hold_queue}} )]; |
104 |
$self->{pending_queue} = [( grep {(! defined $_->{found}) or $_->{found} ne 'W' } @{$self->{hold_queue}} )]; |
104 |
$self->{pending_queue} = [( grep {(! defined $_->{found}) or $_->{found} ne 'W' } @{$self->{hold_queue}} )]; |
|
|
105 |
$self->{title} = $biblio->title; |
106 |
$self->{author} = $biblio->author; |
105 |
bless $self, $type; |
107 |
bless $self, $type; |
106 |
|
108 |
|
107 |
syslog( "LOG_DEBUG", "new ILS::Item('%s'): found with title '%s'", |
109 |
syslog( "LOG_DEBUG", "new ILS::Item('%s'): found with title '%s'", |
108 |
- |
|
|