/g;
}
} elsif ($contentType eq "text") {
$content =~ s/\t/ /g;
$content =~ s/\n/\
/g;
} elsif ($contentType eq "code") {
$content =~ s/&/&/g;
$content =~ s/\/>/g;
$content =~ s/\n/\
/g;
$content =~ s/\t/ /g;
$content =~ s/ / /g;
$content = '
'.$content.'
';
}
return $content;
}
#-------------------------------------------------------------------
=head2 processReplacements ( content )
Processes text using the WebGUI replacements system.
=over
=item content
The content to be processed through the replacements filter.
=back
=cut
sub processReplacements {
my ($content) = @_;
if (exists $session{replacements}) {
my $replacements = $session{replacements};
foreach my $searchFor (keys %{$replacements}) {
my $replaceWith = $replacements->{$searchFor};
$content =~ s/\Q$searchFor/$replaceWith/gs;
}
} else {
my $sth = WebGUI::SQL->read("select searchFor,replaceWith from replacements");
while (my ($searchFor,$replaceWith) = $sth->array) {
$session{replacements}{$searchFor} = $replaceWith;
$content =~ s/\Q$searchFor/$replaceWith/gs;
}
$sth->finish;
}
return $content;
}
1;