… | |
… | |
111 | |
111 | |
112 | use strict; |
112 | use strict; |
113 | use warnings; |
113 | use warnings; |
114 | use utf8; |
114 | use utf8; |
115 | |
115 | |
116 | my $rcsid = '$Id: generate,v 1.12 2007/09/16 12:02:47 pippijn Exp $'; |
116 | my $rcsid = '$Id: generate,v 1.13 2007/09/16 12:13:23 pippijn Exp $'; |
117 | |
117 | |
118 | use base "Pod::POM::View"; |
118 | use base "Pod::POM::View"; |
119 | |
119 | |
120 | our $subdir; |
120 | our $subdir; |
121 | our $dir; |
121 | our $dir; |
… | |
… | |
134 | sub view_head2 { |
134 | sub view_head2 { |
135 | my ($self, $item) = @_; |
135 | my ($self, $item) = @_; |
136 | "<p><em><span class=\"date\">", $item->title, "</span> ", $item->content->present ($self), "</em></p>" |
136 | "<p><em><span class=\"date\">", $item->title, "</span> ", $item->content->present ($self), "</em></p>" |
137 | } |
137 | } |
138 | |
138 | |
|
|
139 | sub view_textblock { |
|
|
140 | my ($self, $item) = @_; |
|
|
141 | $item, "<br />" |
|
|
142 | } |
|
|
143 | |
139 | sub view_seq_bold { |
144 | sub view_seq_bold { |
140 | my ($self, $item) = @_; |
145 | my ($self, $item) = @_; |
141 | "<b>$item</b>" |
146 | "<b>$item</b>" |
142 | } |
147 | } |
143 | |
148 | |
|
|
149 | sub view_seq_file { |
|
|
150 | my ($self, $item) = @_; |
|
|
151 | "<tt>$item</tt>" |
|
|
152 | } |
|
|
153 | |
144 | sub view_seq_link { |
154 | sub view_seq_link { |
145 | my ($self, $item) = @_; |
155 | my ($self, $item) = @_; |
146 | my ($name, $href) = split "|", $item, 2; |
156 | my ($name, $href) = split /\|/, $item, 2; |
147 | "<a href=\"$href\">$name</a>" |
157 | "<a href=\"$href\">$name</a>" |
148 | } |
158 | } |
149 | |
159 | |
150 | =head1 AUTHOR |
160 | =head1 AUTHOR |
151 | |
161 | |