oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a perl syntax error, and use if/elsif/else instead

Browse source 
of cascaded if, since the 2nd if would always win.
This commit is contained in:
Colin Kuskie 2009-01-29 23:38:14 +00:00
parent 2f599812f4
commit 097de28bd0
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/Post.pm
View file

@ -552,9 +552,11 @@ sub getSynopsisAndContent {
my @content; my @content;
if( $body =~ /\^\-\;/ ) { if( $body =~ /\^\-\;/ ) {
@content = split(/\^\-\;/, $body ,2); @content = split(/\^\-\;/, $body ,2);
if( $body =~ /<p>/ ) { }
elsif( $body =~ /<p>/ ) {
@content = WebGUI::HTML::splitTag($body); @content = WebGUI::HTML::splitTag($body);
} else { }
else {
@content = split("\n",$body); @content = split("\n",$body);
} }
shift @content if $content[0] =~ /^\s*$/; shift @content if $content[0] =~ /^\s*$/;