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

Comparing deliantra/www/generate (file contents):
Revision 1.33 by elmex, Wed Apr 28 08:19:55 2010 UTC vs.
Revision 1.34 by elmex, Wed May 5 06:46:33 2010 UTC

… …
8my $parser = new Pod::POM meta => 1; 8my $parser = new Pod::POM meta => 1;
9 9
10my ($pom, $html); 10my ($pom, $html);
11 11
12our $top_news; 12our $top_news;
13our $top_news_cnt = 2;
13 14
14$pom = $parser->parse ("src/news.pod") 15$pom = $parser->parse ("src/news.pod")
15 or die $parser->error; 16 or die $parser->error;
16$html = join '', $pom->present ("PodHTML"); 17$html = join '', $pom->present ("PodHTML");
17$html =~ s/\[/</g; 18$html =~ s/\[/</g;
… …
53use warnings; 54use warnings;
54use utf8; 55use utf8;
55 56
56use CGI qw/escapeHTML/; 57use CGI qw/escapeHTML/;
57 58
58my $rcsid = '$Id: generate,v 1.33 2010/04/28 08:19:55 elmex Exp $'; 59my $rcsid = '$Id: generate,v 1.34 2010/05/05 06:46:33 elmex Exp $';
59 60
60use base "Pod::POM::View"; 61use base "Pod::POM::View";
61 62
62our $subdir; 63our $subdir;
63our $dir; 64our $dir;
… …
80 . $item->title 81 . $item->title
81 . "</span>\n" 82 . "</span>\n"
82 . $item->content->present ($self) 83 . $item->content->present ($self)
83 . "\n\n"; 84 . "\n\n";
84 85
85 unless (defined $top_news) { 86 if ($top_news_cnt-- > 0) {
86 $top_news = $str 87 $top_news .= $str
87 } 88 }
88 89
89 $str 90 $str
90} 91}
91 92

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines