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

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

View file

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