$_ = sprintf '<img src="/%s" alt="%s">', $img, $ref if -e $img;
}
else {
- $_ = $short || $name;
+ $_ = EscapeHTML($short || $name);
}
- $name =~ s/([^,]*), (.*)/$2 $1/;
printf "\n".'<td class="%s" title="%s">%s',
$_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_;
}