- for $p (sort keys %removed) {
- print " <li><em>" . &wwwname($p) . ":</em>\n";
- for $b (sort split(/ /, $removed{$p})) {
- print &wwwnumber($b) . " ";
+ for my $p (sort keys %removed) {
+ print " <li><em>" . &scanlib::wwwname($p) . ":</em>\n";
+ for $b (sort @{$removed{$p}}) {
+ print &scanlib::wwwnumber($b) . " ";