|
Lines 1555-1561
sub get_notice {
Link Here
|
| 1555 |
); |
1555 |
); |
| 1556 |
my $metahash = $self->metadata; |
1556 |
my $metahash = $self->metadata; |
| 1557 |
my @metaarray = (); |
1557 |
my @metaarray = (); |
| 1558 |
while (my($key, $value) = each %{$metahash}) { |
1558 |
foreach my $key (sort { lc $a cmp lc $b } keys %{$metahash}) { |
|
|
1559 |
my $value = $metahash->{$key}; |
| 1559 |
push @metaarray, "- $key: $value" if $value; |
1560 |
push @metaarray, "- $key: $value" if $value; |
| 1560 |
} |
1561 |
} |
| 1561 |
my $metastring = join("\n", @metaarray); |
1562 |
my $metastring = join("\n", @metaarray); |
| 1562 |
- |
|
|