<%attr> ajax => 1 <%args> $del => undef

<& SELF:display, del => undef &> <%method display> <%args> $del => undef <%perl> my $bookmarkF = $r->notes('CFG_bookmark'); open(FILE, "< $bookmarkF"); foreach my $url () { my $descr = undef; chomp($url); if ( $url =~ /^(.+?)\s+(.+)$/ ) { $url = $1; $descr = $2; } $m->comp('/include/reelbox:create_link', url=>$url, target => '_blank', descr => $descr); print "
\n"; } close(FILE);