… | |
… | |
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.11 2007/09/16 09:10:13 pippijn Exp $'; |
116 | my $rcsid = '$Id: generate,v 1.12 2007/09/16 12:02:47 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; |
… | |
… | |
131 | $item->content->present ($self) |
131 | $item->content->present ($self) |
132 | } |
132 | } |
133 | |
133 | |
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, "</em></p>" |
136 | "<p><em><span class=\"date\">", $item->title, "</span> ", $item->content->present ($self), "</em></p>" |
|
|
137 | } |
|
|
138 | |
|
|
139 | sub view_seq_bold { |
|
|
140 | my ($self, $item) = @_; |
|
|
141 | "<b>$item</b>" |
|
|
142 | } |
|
|
143 | |
|
|
144 | sub view_seq_link { |
|
|
145 | my ($self, $item) = @_; |
|
|
146 | my ($name, $href) = split "|", $item, 2; |
|
|
147 | "<a href=\"$href\">$name</a>" |
137 | } |
148 | } |
138 | |
149 | |
139 | =head1 AUTHOR |
150 | =head1 AUTHOR |
140 | |
151 | |
141 | Copyright © 2007 Pippijn van Steenhoven |
152 | Copyright © 2007 Pippijn van Steenhoven |