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

Comparing deliantra/www/generate (file contents):
Revision 1.28 by elmex, Tue Apr 27 18:58:31 2010 UTC vs.
Revision 1.29 by elmex, Wed Apr 28 05:23:41 2010 UTC

50 50
51use strict; 51use strict;
52use warnings; 52use warnings;
53use utf8; 53use utf8;
54 54
55my $rcsid = '$Id: generate,v 1.28 2010/04/27 18:58:31 elmex Exp $'; 55my $rcsid = '$Id: generate,v 1.29 2010/04/28 05:23:41 elmex Exp $';
56 56
57use base "Pod::POM::View"; 57use base "Pod::POM::View";
58 58
59our $subdir; 59our $subdir;
60our $dir; 60our $dir;
71} 71}
72 72
73sub view_head2 { 73sub 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
95sub view_seq_bold { 95sub view_seq_bold {
96 my ($self, $item) = @_; 96 my ($self, $item) = @_;
97 "<b>$item</b>" 97 "<b>$item</b>"
98}
99
100sub view_seq_italic {
101 my ($self, $item) = @_;
102 "<i>$item</i>"
98} 103}
99 104
100sub view_seq_file { 105sub view_seq_file {
101 my ($self, $item) = @_; 106 my ($self, $item) = @_;
102 "<tt>$item</tt>" 107 "<tt>$item</tt>"

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines