diff --git a/docs/upgrades/upgrade_3.8.0-3.9.0.sql b/docs/upgrades/upgrade_3.8.0-3.9.0.sql index a303c68de..10c87f280 100644 --- a/docs/upgrades/upgrade_3.8.0-3.9.0.sql +++ b/docs/upgrades/upgrade_3.8.0-3.9.0.sql @@ -52,7 +52,7 @@ alter table UserSubmission add column editTimeout int not null default 1; alter table UserSubmission add column groupToPost int not null default 2; alter table UserSubmission add column groupToApprove int not null default 4; INSERT INTO international VALUES (39,'UserSubmission','English','Post a Reply'); -INSERT INTO international VALUES (40,'UserSubmission','English','Posted By'); +INSERT INTO international VALUES (40,'UserSubmission','English','Posted by'); INSERT INTO international VALUES (41,'UserSubmission','English','Date'); INSERT INTO international VALUES (42,'UserSubmission','English','Edit Response'); INSERT INTO international VALUES (43,'UserSubmission','English','Delete Response'); diff --git a/lib/WebGUI/HTML.pm b/lib/WebGUI/HTML.pm index a7df86b3f..f33d64e1c 100644 --- a/lib/WebGUI/HTML.pm +++ b/lib/WebGUI/HTML.pm @@ -85,11 +85,12 @@ sub cleanSegment { =cut sub filter { - my ($filter, $html); - if ($_[1] eq "all") { + my ($filter, $html, $type); + $type = $_[1] || $session{setting}{filterContributedHTML}; + if ($type eq "all") { $filter = HTML::TagFilter->new(allow=>{'none'},strip_comments=>1); $html = $filter->filter($_[0]); - } elsif ($_[1] eq "none") { + } elsif ($type eq "none") { $html = $_[0]; } else { $filter = HTML::TagFilter->new; # defaultly strips almost everything diff --git a/lib/WebGUI/Wobject/UserSubmission.pm b/lib/WebGUI/Wobject/UserSubmission.pm index 92bfcae90..268e811e9 100644 --- a/lib/WebGUI/Wobject/UserSubmission.pm +++ b/lib/WebGUI/Wobject/UserSubmission.pm @@ -153,6 +153,8 @@ sub _weblogView { where wobjectId=".$_[0]->get("wobjectId")." and (status='Approved' or userId=$session{user}{userId}) order by dateSubmitted desc"); while (%submission = $sth->hash) { $submission{title} = WebGUI::HTML::filter($submission{title},'all'); + $submission{content} = WebGUI::HTML::filter($submission{content}); + ($submission{content}) = split(/\^\-\;/,$submission{content}); ($responses) = WebGUI::SQL->quickArray("select count(*) from discussion where wobjectId=".$_[0]->get("wobjectId")." and subId=$submission{submissionId}"); $row[$i] = ''.$submission{title}; @@ -172,7 +174,11 @@ sub _weblogView { .' - '.epochToHuman($submission{dateSubmitted},"%z \@ %Z").'
' .$submission{content}.'

('.WebGUI::International::get(46,$namespace) - .' | '.$responses.' '.WebGUI::International::get(57,$namespace).')

'; + .''; + if ($_[0]->get("allowDiscussion")) { + $row[$i] .= ' | '.$responses.' '.WebGUI::International::get(57,$namespace) + } + $row[$i] .= ')

'; $i++; } $sth->finish; @@ -613,6 +619,7 @@ sub www_viewSubmission { %submission = WebGUI::SQL->quickHash("select * from UserSubmission_submission where submissionId=$session{form}{sid}"); $submission{title} = WebGUI::HTML::filter($submission{title},'all'); $submission{content} = WebGUI::HTML::filter($submission{content},$session{setting}{filterContributedHTML}); + $submission{content} =~ s/\^\-\;//g; $output = "

".$submission{title}."

"; $output .= ''; $output .= '
';