In Place Url

We've recognized a TranslationToken marking the location of an in-place URL. Here we retrieve the text of the URL and format it as a HypertextMarkupLanguage anchor.

  sub InPlaceUrl {
    local($num) = (@_);
    local($ref) = $InPlaceUrl[$num];
    "<a href=\"$ref\">$ref</a>";

Note, as is sometimes the style in perl, we have used InPlaceUrl as a scalar, an array and a subroutine. The scalar and array are implicitly defined.


Last edited February 1, 1996
Return to WelcomeVisitors