Well, it's in admin\Links\User\Add.pm. There is a _category_list function.
This creates the list of all categories. You can create a 'category_list' global with similar content:
Code:
sub {
# -------------------------------------------------------------------
# Return a list of all the categories.
#
my $category;
if ($CFG->{db_gen_category_list}) {
my $links_db = $DB->table('Links');
my $html = $DB->html($links_db, $IN);
my @ids = $IN->param('CatLinks.CategoryID') || $IN->param('ID');
$category = $html->get_all_categories(\@ids, 'CatLinks.CategoryID', 1);
}
else {
my $cat_db = $DB->table('Category');
my $id = $IN->param('CatLinks.CategoryID') || $IN->param('ID');
my $sth = $cat_db->select ( { ID => $id }, ['Full_Name'] );
my ($name) = $sth->fetchrow_array();
if ($name) {
$category = "$name <input type=hidden name='CatLinks.CategoryID' value='$id'>";
}
else {
return;
}
}
return $category;
}
You can modify it to include css as you want.
The html select field is generated with GT::SQL::HTML::Display methods, so if you need to go deeper to add your css, you need to replace the "$db->select" type form generation, and generate the select form yourself.
Best regards,
Webmaster33
Paid Support from Webmaster33. Expert in Perl programming & Gossamer Threads applications. (click here for prices)
Webmaster33's products (upd.2004.09.26) | Private message | Contact me | Was my post helpful? Donate my help...