- my $url = prurl($ctx->{env}, $ibx->{url});
- my $tmp = <<"";
-* $ts - $url
- $ce->{description}
-
- if (defined(my $info_url = $ibx->{infourl})) {
- $tmp .= ' ' . prurl($ctx->{env}, $info_url) . "\n";
+ my ($url, $href);
+ if (scalar(@{$ibx->{url} // []})) {
+ $url = $href = ascii_html(prurl($ctx->{env}, $ibx->{url}));
+ } else {
+ $href = ascii_html(uri_escape_utf8($ibx->{name})) . '/';
+ $url = ascii_html($ibx->{name});
+ }
+ my $tmp = <<EOM;
+* $ts - <a\nhref="$href">$url</a>
+ $desc
+EOM
+ if (defined($url = $ibx->{infourl})) {
+ $url = ascii_html(prurl($ctx->{env}, $url));
+ $tmp .= qq( <a\nhref="$url">$url</a>\n);