Ok, in MyLinks_DB.pm line 81 in EditPlus, you'll see:
my %grp;
...change it to:
my %grp;
my %match;
Then a few lines down you'll see:
Code:
while (my $rec = $sth->fetchrow_hashref) {
push @{$grp{$rec->{CategoryID}}}, Links::SiteHTML::display('mylinks_link', { %$rec, MyLinks_Font => $tmp->{MyLinks_Font} } );
}
....you need to change it to:
Code:
while (my $rec = $sth->fetchrow_hashref) {
unless (exists $match{$rec->{LinkID}}) {
push @{$grp{$rec->{CategoryID}}}, Links::SiteHTML::display('mylinks_link', { %$rec, MyLinks_Font => $tmp->{MyLinks_Font} } );
$match{$rec->{LinkID}}++;
}
}
Then on about line 112 you'll find:
Code:
while (my $rec = $sth->fetchrow_hashref) {
$tags->{saved_links} .= Links::SiteHTML::display('mylinks_link', { %$rec, MyLinks_Font => $tmp->{MyLinks_Font} } );
}
You'll need to change it to:
Code:
my %match;
while (my $rec = $sth->fetchrow_hashref) {
unless (exists $match{$rec->{LinkID}}) {
$tags->{saved_links} .= Links::SiteHTML::display('mylinks_link', { %$rec, MyLinks_Font => $tmp->{MyLinks_Font} } );
$match{$rec->{LinkID}}++;
}
}
Then you'll need to make the same changes for the user_favorites routine further down (about line 287 and 314).
Let me know if you get stuck.