Hello ...
I'm wondering if anyone knows how to modify admin link forms so that category lists become clickable links.
For example: Admin > Database > Links: Search Results has a small table at the bottom listing the categories in which the links appears. I would like to be able to click on the category names to open the category pages (either static, dynamic or browser mode) to compare what else is there.
It's what we get in the Category Browser, but it would be really helpful to have it in the Database forms as well.
This is the sub in Link.pm ...
# -------------------------------------------------------------------
# Displays a list of categories for the form.
#
my $self = shift;
my $id = shift;
my $cat = $self->{db}->get_categories ($id);
my $out = '';
foreach my $id (sort { lc $cat->{$a} cmp lc $cat->{$b} } keys %$cat) {
$out .= "$id: $cat->{$id}<br>\n";
}
return $out;
}... need to add something to $out .= "$id: $cat->{$id} but I can't figure out what.
I'm wondering if anyone knows how to modify admin link forms so that category lists become clickable links.
For example: Admin > Database > Links: Search Results has a small table at the bottom listing the categories in which the links appears. I would like to be able to click on the category names to open the category pages (either static, dynamic or browser mode) to compare what else is there.
It's what we get in the Category Browser, but it would be really helpful to have it in the Database forms as well.
This is the sub in Link.pm ...
Code:
sub disp_categories { # -------------------------------------------------------------------
# Displays a list of categories for the form.
#
my $self = shift;
my $id = shift;
my $cat = $self->{db}->get_categories ($id);
my $out = '';
foreach my $id (sort { lc $cat->{$a} cmp lc $cat->{$b} } keys %$cat) {
$out .= "$id: $cat->{$id}<br>\n";
}
return $out;
}