Mostly invisible, but fixes html validation and drops useless replacement
intended to undo swapped names in old list.
$_ = sprintf '<img src="/%s" alt="%s">', $img, $ref if -e $img;
}
else {
$_ = sprintf '<img src="/%s" alt="%s">', $img, $ref if -e $img;
}
else {
+ $_ = EscapeHTML($short || $name);
- $name =~ s/([^,]*), (.*)/$2 $1/;
printf "\n".'<td class="%s" title="%s">%s',
$_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_;
}
printf "\n".'<td class="%s" title="%s">%s',
$_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_;
}