Lines 1159-1165
Return a string representing the material type of this request or undef
Link Here
|
1159 |
|
1159 |
|
1160 |
sub get_type { |
1160 |
sub get_type { |
1161 |
my ($self) = @_; |
1161 |
my ($self) = @_; |
1162 |
my $attr = $self->illrequestattributes->find({ type => 'type'}); |
1162 |
my $attr = $self->extended_attributes->find({ type => 'type'}); |
1163 |
return if !$attr; |
1163 |
return if !$attr; |
1164 |
return $attr->value; |
1164 |
return $attr->value; |
1165 |
}; |
1165 |
}; |
Lines 1795-1804
and transport type
Link Here
|
1795 |
sub get_notice { |
1795 |
sub get_notice { |
1796 |
my ( $self, $params ) = @_; |
1796 |
my ( $self, $params ) = @_; |
1797 |
|
1797 |
|
1798 |
my $title = $self->illrequestattributes->find( |
1798 |
my $title = $self->extended_attributes->find( |
1799 |
{ type => 'title' } |
1799 |
{ type => 'title' } |
1800 |
); |
1800 |
); |
1801 |
my $author = $self->illrequestattributes->find( |
1801 |
my $author = $self->extended_attributes->find( |
1802 |
{ type => 'author' } |
1802 |
{ type => 'author' } |
1803 |
); |
1803 |
); |
1804 |
my $metahash = $self->metadata; |
1804 |
my $metahash = $self->metadata; |
Lines 1810-1816
sub get_notice {
Link Here
|
1810 |
my $metastring = join("\n", @metaarray); |
1810 |
my $metastring = join("\n", @metaarray); |
1811 |
|
1811 |
|
1812 |
my $illrequestattributes = { |
1812 |
my $illrequestattributes = { |
1813 |
map { $_->type => $_->value } $self->illrequestattributes->as_list |
1813 |
map { $_->type => $_->value } $self->extended_attributes->as_list |
1814 |
}; |
1814 |
}; |
1815 |
|
1815 |
|
1816 |
my $letter = C4::Letters::GetPreparedLetter( |
1816 |
my $letter = C4::Letters::GetPreparedLetter( |
1817 |
- |
|
|