… | |
… | |
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.28 2010/04/27 18:58:31 elmex Exp $'; |
55 | my $rcsid = '$Id: generate,v 1.29 2010/04/28 05:23:41 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; |
… | |
… | |
71 | } |
71 | } |
72 | |
72 | |
73 | sub view_head2 { |
73 | sub view_head2 { |
74 | my ($self, $item) = @_; |
74 | my ($self, $item) = @_; |
75 | my @str = ( |
75 | my @str = ( |
76 | "<p><em><span class=\"date\">", |
76 | "<p><span class=\"date\">", |
77 | $item->title, |
77 | $item->title, |
78 | "</span> ", |
78 | "</span> ", |
79 | $item->content->present ($self), |
79 | $item->content->present ($self), |
80 | "</em></p>" |
80 | "</p>" |
81 | ); |
81 | ); |
82 | |
82 | |
83 | unless (defined $top_news) { |
83 | unless (defined $top_news) { |
84 | $top_news = join '', @str; |
84 | $top_news = join '', @str; |
85 | } |
85 | } |
… | |
… | |
93 | } |
93 | } |
94 | |
94 | |
95 | sub view_seq_bold { |
95 | sub view_seq_bold { |
96 | my ($self, $item) = @_; |
96 | my ($self, $item) = @_; |
97 | "<b>$item</b>" |
97 | "<b>$item</b>" |
|
|
98 | } |
|
|
99 | |
|
|
100 | sub view_seq_italic { |
|
|
101 | my ($self, $item) = @_; |
|
|
102 | "<i>$item</i>" |
98 | } |
103 | } |
99 | |
104 | |
100 | sub view_seq_file { |
105 | sub view_seq_file { |
101 | my ($self, $item) = @_; |
106 | my ($self, $item) = @_; |
102 | "<tt>$item</tt>" |
107 | "<tt>$item</tt>" |