Select Code to Download

<%def .link><%perl>
    my( $title, $page, %args ) = @_;
...
    }
    $m->print( "'>" . $i->apply_escapes($title,'h') . "</a>" );
</%perl></%def>

<%def .link><%perl>
    my( $title, $page, %args ) = @_;
...
    $title  = $i->apply_escapes( $title, 'h' );
    $m->print( "<a href='$page'>$title</a>" );
</%perl></%def>