if (param('ssi') { &ssi(); }

sub ssi {
my $max = 5;
my @links = split /\|/, $old;
my (@display, $output);
open (LINKS, "$db_lib_path/data/links.db") or die $!;
while () {
chomp (my $record = $_);
foreach (@links) {
$record =~ /^$_\|/ or next;
my @values = split /\|/, $record;
push @display, [ @values ];
}
}
close (LINKS);
my $saved = $#display + 1;
my $links = '';
my $i = 0;
foreach (sort { ${$a}[$db_title] cmp ${$b}[$db_title] } @display) {
my %rec = &array_to_hash(0, @{$_});
$links .= &load_template ("bookmark_link.html", { %rec, %globals });
$i++;
last if ($i = $max);
}
print header();
print &load_template("bookmark_home.html", {
'saved' => $saved,
'links' => $links,
%globals
});
}

<%if links%>
<%links%>
<a href="portal.cgi?action=delete&ID=all">Delete All</a>
<%endif%>