blob: 1b1d7f2c9a75819fc101454fe050aea32ef11a2c (
plain) (
tree)
|
|
@code
sub URL {
$_[0]->CHECK(qw(url));
$_[0]->{url};
}
sub LINK {
$_[0]->CHECK(qw(url title));
"<A HREF=\"$_[0]->{url}\">$_[0]->{title}</A>";
}
sub LINK_SEC {
$_[0]->CHECK(qw(url section title));
"<A HREF=\"$_[0]->{url}\">$_[0]->{section} $_[0]->{title}</A>";
}
sub MAILTO {
$_[0]->CHECK(qw(address name));
"<A HREF=\"mailto:$_[0]->{address}\">$_[0]->{name}</A>";
}
@end
|