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