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:
parent
2f599812f4
commit
097de28bd0
1 changed files with 4 additions and 2 deletions
|
|
@ -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*$/;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue