archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

static-hybrid.pl passes perl -c

Browse Source 
ToString needs parenthesis.
This commit is contained in:
Alex Schroeder
2015-07-03 14:28:09 +02:00
parent 4f4ad14850
commit f1f2ed71a5
1 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
modules/static-hybrid.pl
View File

@@ -174,22 +174,22 @@ sub StaticHtml {
# Process the page
local $Message = "";
# encoding is left off, so fix it:
my $result = ToString sub {
print qq!<?xml version="1.0" encoding="UTF-8" ?>!;
print GetHeader($id, QuoteHtml($id), undef, "");
print $q->start_div({-class=> 'content browse'});
print PageHtml($id);
print $q->end_div();
SetParam('rcclusteronly', $id) if (FreeToNormal(GetCluster($Page{text})) eq $id);
if (($id eq $RCName) || (T($RCName) eq $id) || (T($id) eq $RCName)
|| GetParam('rcclusteronly', '')) {
print $q->start_div({-class=>'rc'});;
print $q->hr() if not GetParam('embed', $EmbedWiki);
DoRc(\&GetRcHtml);
print $q->end_div();
}
PrintFooter($id);
}
my $result = ToString(sub {
print qq!<?xml version="1.0" encoding="UTF-8" ?>!;
print GetHeader($id, QuoteHtml($id), undef, "");
print $q->start_div({-class=> 'content browse'});
print PageHtml($id);
print $q->end_div();
SetParam('rcclusteronly', $id) if (FreeToNormal(GetCluster($Page{text})) eq $id);
if (($id eq $RCName) || (T($RCName) eq $id) || (T($id) eq $RCName)
|| GetParam('rcclusteronly', '')) {
print $q->start_div({-class=>'rc'});;
print $q->hr() if not GetParam('embed', $EmbedWiki);
DoRc(\&GetRcHtml);
print $q->end_div();
}
PrintFooter($id);
});
print $F $result;
return;
}