|
Lines 1650-1655
sub get_notice {
Link Here
|
| 1650 |
push @metaarray, "- $key: $value" if $value; |
1650 |
push @metaarray, "- $key: $value" if $value; |
| 1651 |
} |
1651 |
} |
| 1652 |
my $metastring = join("\n", @metaarray); |
1652 |
my $metastring = join("\n", @metaarray); |
|
|
1653 |
|
| 1654 |
my $illrequestattributes = {}; |
| 1655 |
my $attributes = $self->illrequestattributes; |
| 1656 |
while ( my $attribute = $attributes->next ) { |
| 1657 |
$illrequestattributes->{$attribute->type} = $attribute->value; |
| 1658 |
} |
| 1659 |
|
| 1653 |
my $letter = C4::Letters::GetPreparedLetter( |
1660 |
my $letter = C4::Letters::GetPreparedLetter( |
| 1654 |
module => 'ill', |
1661 |
module => 'ill', |
| 1655 |
letter_code => $params->{notice_code}, |
1662 |
letter_code => $params->{notice_code}, |
|
Lines 1666-1672
sub get_notice {
Link Here
|
| 1666 |
ill_bib_title => $title ? $title->value : '', |
1673 |
ill_bib_title => $title ? $title->value : '', |
| 1667 |
ill_bib_author => $author ? $author->value : '', |
1674 |
ill_bib_author => $author ? $author->value : '', |
| 1668 |
ill_full_metadata => $metastring, |
1675 |
ill_full_metadata => $metastring, |
| 1669 |
additional_text => $params->{additional_text} |
1676 |
additional_text => $params->{additional_text}, |
|
|
1677 |
illrequestattributes => $illrequestattributes, |
| 1670 |
} |
1678 |
} |
| 1671 |
); |
1679 |
); |
| 1672 |
|
1680 |
|
| 1673 |
- |
|
|