%attr>
ajax => 1
%attr>
<%args>
$del => undef
%args>
<& SELF:display, del => undef &>
<%method display>
<%args>
$del => undef
%args>
<%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);
%perl>
%method>