%args>
$idlist => undef
%args>
<%perl>
print "
";
return if !defined $idlist;
print "$idlist
\n";
my @ids = split /[^0-9-]+/, $idlist;
print "\n";
foreach my $id (@ids) {
next if $id =~ /^-/;
if ($id =~ /([0-9]+)-([0-9]+)/) {
my($first, $last) = ($1, $2);
if (length($first) > length($last)) {
$last = substr($first, 0, length($first)-length($last)) . $last;
}
foreach my $id2 ($first .. $last) {
print " - $id2
\n"
if length($id2) > 1;
}
} else {
print " - $id
\n"
if length($id) > 1;
}
}
print "
\n";
%perl>