html.wd (387B)
1 @code 2 sub URL { 3 $_[0]->CHECK(qw(url)); 4 $_[0]->{url}; 5 } 6 sub LINK { 7 $_[0]->CHECK(qw(url title)); 8 "<A HREF=\"$_[0]->{url}\">$_[0]->{title}</A>"; 9 } 10 sub LINK_SEC { 11 $_[0]->CHECK(qw(url section title)); 12 "<A HREF=\"$_[0]->{url}\">$_[0]->{section} $_[0]->{title}</A>"; 13 } 14 sub MAILTO { 15 $_[0]->CHECK(qw(address name)); 16 "<A HREF=\"mailto:$_[0]->{address}\">$_[0]->{name}</A>"; 17 } 18 @end