| … | |
… | |
| 1320 | sub htmlLink { |
1320 | sub htmlLink { |
| 1321 | my $url = shift; |
1321 | my $url = shift; |
| 1322 | my $text = shift; |
1322 | my $text = shift; |
| 1323 | my $options = shift; |
1323 | my $options = shift; |
| 1324 | $options = "" unless defined($options); |
1324 | $options = "" unless defined($options); |
|
|
1325 | return "${main::BBOLD}[ broken link: $text ] ${main::EBOLD}" unless defined($url); |
| 1325 | M3( "{\\bf \\underline{$text} }", |
1326 | M3( "{\\bf \\underline{$text} }", |
| 1326 | "\\begin{rawhtml} <A HREF=\"$url\" $options> $text </A>\\end{rawhtml}", |
1327 | "\\begin{rawhtml} <A HREF=\"$url\" $options> $text </A>\\end{rawhtml}", |
| 1327 | "<A HREF=\"$url\" $options> $text </A>" |
1328 | "<A HREF=\"$url\" $options> $text </A>" |
| 1328 | ); |
1329 | ); |
| 1329 | } |
1330 | } |