| … | … | ||
|---|---|---|---|
| 50 | 50 | ||
| 51 | use strict; | 51 | use strict; |
| 52 | use warnings; | 52 | use warnings; |
| 53 | use utf8; | 53 | use utf8; |
| 54 | 54 | ||
| 55 | my $rcsid = '$Id: generate,v 1.30 2010/04/28 05:41:31 elmex Exp $'; | 55 | my $rcsid = '$Id: generate,v 1.31 2010/04/28 05:44:37 elmex Exp $'; |
| 56 | 56 | ||
| 57 | use base "Pod::POM::View"; | 57 | use base "Pod::POM::View"; |
| 58 | 58 | ||
| 59 | our $subdir; | 59 | our $subdir; |
| 60 | our $dir; | 60 | our $dir; |
| … | … | ||
| 86 | $str | 86 | $str |
| 87 | } | 87 | } |
| 88 | 88 | ||
| 89 | sub view_textblock { | 89 | sub view_textblock { |
| 90 | my ($self, $item) = @_; | 90 | my ($self, $item) = @_; |
| 91 | "<p>$item</p>\n" | 91 | "<p class=\"news_item\">$item</p>\n" |
| 92 | } | 92 | } |
| 93 | 93 | ||
| 94 | sub view_seq_bold { | 94 | sub view_seq_bold { |
| 95 | my ($self, $item) = @_; | 95 | my ($self, $item) = @_; |
| 96 | "<b>$item</b>" | 96 | "<b>$item</b>" |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |