Yes, both set to CHAR(50), not null, column index: regular
Here are the two globals again - maybe you can see something I don't?
If you love cats - visit www.TheCatSite.com
Visit my LinkSQL based Cat Site - www.Meowhoo.com
Here are the two globals again - maybe you can see something I don't?
country_select
sub {
my $element_name = shift;
my $selected_value = shift;
my $default_value = shift || 'United_States';
my @list = qw(
United_States
Internet_Based
Afghanistan
Albania
Algeria
Andorra
Angola
Antigua_and_Barbuda
....
Vietnam
Western_Sahara
Yemen
Yugoslavia_(Serbia_and_Montenegro)
Zambia
Zimbabwe
);
my $selected = $selected_value || $default_value;
$selected = { map {($_=>1)} ref $selected ? @$selected : $selected };
my $return = qq|<select name="$element_name"> |;
foreach my $country ( @list ) {
(my $country_nice = $country) =~ s,_, ,g;
my $ischosen = $selected->{$country_nice} ? ' selected="selected"' : '';
$return .= qq|<option value ="$country_nice" $ischosen>$country_nice</option>|;
}
$return .= q|</select>|; return $return;
}
state_select
sub {
my $element_name = shift;
my $selected_value = shift;
my $default_value = shift || 'Alabama';
my @list = qw(
Alabama
Alaska
Arizona
Arkansas
....
Virginia
Washington
West_Virginia
Wisconsin
Wyoming
Outside_the_USA
);
my $selected = $selected_value || $default_value;
$selected = { map {($_=>1)} ref $selected ? @$selected : $selected };
my $return = qq|<select name="$element_name"> |;
foreach my $state ( @list ) {
(my $state_nice = $state) =~ s,_, ,g;
my $ischosen = $selected->{$state_nice} ? ' selected="selected"' : '';
$return .= qq|<option value ="$state_nice" $ischosen>$state_nice</option>|;
}
$return .= q|</select>|; return $return;
}
If you love cats - visit www.TheCatSite.com
Visit my LinkSQL based Cat Site - www.Meowhoo.com