ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/www/generate
(Generate patch)

Comparing deliantra/www/generate (file contents):
Revision 1.12 by pippijn, Sun Sep 16 12:02:47 2007 UTC vs.
Revision 1.13 by pippijn, Sun Sep 16 12:13:23 2007 UTC

111 111
112use strict; 112use strict;
113use warnings; 113use warnings;
114use utf8; 114use utf8;
115 115
116my $rcsid = '$Id: generate,v 1.12 2007/09/16 12:02:47 pippijn Exp $'; 116my $rcsid = '$Id: generate,v 1.13 2007/09/16 12:13:23 pippijn Exp $';
117 117
118use base "Pod::POM::View"; 118use base "Pod::POM::View";
119 119
120our $subdir; 120our $subdir;
121our $dir; 121our $dir;
134sub view_head2 { 134sub 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
139sub view_textblock {
140 my ($self, $item) = @_;
141 $item, "<br />"
142}
143
139sub view_seq_bold { 144sub view_seq_bold {
140 my ($self, $item) = @_; 145 my ($self, $item) = @_;
141 "<b>$item</b>" 146 "<b>$item</b>"
142} 147}
143 148
149sub view_seq_file {
150 my ($self, $item) = @_;
151 "<tt>$item</tt>"
152}
153
144sub view_seq_link { 154sub 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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines