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