Add Date: Thu Feb 12 2004
Mod Date: Fri Feb 13 2004

Type: Global

Author: Andy Newby

Description: This global will make a drop-down select box for you. The entries will be indented, i.e " name". Great for space saving, if you are working with long categories.

Supported Version: 2.1.2

Forum URL: http://www.gossamer-threads.com/perl/gforum/gforum.cgi?post=261209#261209

You need to call it with:  <%global_name%>

sub { my $category; my $db = $DB->table('Category') || return $GT::SQL::error; $db->select_options('ORDER BY Full_Name') || return $GT::SQL::error; my $sth = $db->select( ['ID','Full_Name'] ) || return $GT::SQL::error; my $back; while (my ($id,$full_name) = $sth->fetchrow_array) { my $full_name2; my @cut = split /\//, $full_name; for (my $i=0; $i < $#cut; $i++) { $full_name2 .= "  "; } $full_name2 .= $cut[$#cut]; $back .= "<option value=\"$id\">$full_name2</option>"; } my $send_back = qq|<select size="1" name="catid"><option value="">------</option>$back</select>|; return $send_back; }