|
Lines 108-115
sub new {
Link Here
|
| 108 |
my $biblio = Koha::Biblios->find( $self->{biblionumber} ); |
108 |
my $biblio = Koha::Biblios->find( $self->{biblionumber} ); |
| 109 |
my $holds = $biblio->current_holds->unblessed; |
109 |
my $holds = $biblio->current_holds->unblessed; |
| 110 |
$self->{hold_queue} = $holds; |
110 |
$self->{hold_queue} = $holds; |
| 111 |
$self->{hold_attached} = [( grep { defined $_->{found} and ( $_->{found} eq 'W' or $_->{found} eq 'P' ) } @{$self->{hold_queue}} )]; |
111 |
$self->{hold_attached} = [( grep { defined $_->{found} and ( $_->{found} eq 'W' or $_->{found} eq 'P' or $_->{found} eq 'T' ) } @{$self->{hold_queue}} )]; |
| 112 |
$self->{pending_queue} = [( grep {(! defined $_->{found}) or ( $_->{found} ne 'W' and $_->{found} ne 'P' ) } @{$self->{hold_queue}} )]; |
112 |
$self->{pending_queue} = [( grep {(! defined $_->{found}) or ( $_->{found} ne 'W' and $_->{found} ne 'P' and $_->{found} ne 'T' ) } @{$self->{hold_queue}} )]; |
| 113 |
$self->{title} = $biblio->title; |
113 |
$self->{title} = $biblio->title; |
| 114 |
$self->{author} = $biblio->author; |
114 |
$self->{author} = $biblio->author; |
| 115 |
bless $self, $type; |
115 |
bless $self, $type; |
| 116 |
- |
|
|