# somewhere at top add this
use HTML::Entities;
# and somewhere in the middle add this
sub print_revision {
my $self = shift;
my @time_units = ('days', 'hours', 'minutes', 'seconds');
my ($uri_base, $revision, $diff_revision) = @_;
my $revision_uri = "$uri_base?r=" . $revision->number();
my $date = localtime($revision->date());
my $age = join(', ',
map { $revision->age()->{$_} . ' ' . $_ } @time_units);
my $symbol = $revision->symbol() || ' ';
$self->request()->print("<tr>
<td><a href=$revision_uri>" .
$revision->number() . '</td>' .
'<td>' . $revision->author() . '</td>' .
'<td>' . $revision->state() . '</td>' .
"<td>$symbol</td><td>$date</td><td>$age</td>" .
'<td>' . encode_entities($revision->comment()) . '</td>');
if ($diff_revision eq $revision->number()) {
$self->request()->print('<td>selected for diff</td>');
} else {
if ($diff_revision) {
$self->request()->print(qq|<td><a href="$uri_base?ds=| .
$revision->number() .
qq|&dt=$diff_revision">select for diff | .
"with $diff_revision</a>");
} else {
$self->request()->print(qq|<td><a href="$uri_base?ds=| .
$revision->number() .
'">select for diff</a>');
}
}
$self->request()->print('</tr>');
}
The magic line is:
'<td>' . encode_entities($revision->comment()) . '</td>');
ugly hack (having to repeat all of that code) .. but it
works ;)
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
|