while (my $hit = $sth->fetchrow_hashref) {

my @foo = $hit->{prof_birthday};

my $age = $tmp[0] - $foo[0];

$hit->{age} = $age;

my @foo = spliy /-/, $hit->{prof_birthday};

my @foo = $hit->{prof_birthday};

my @foo = $hit->{prof_birthday};

my @foo = spliy /-/, $hit->{prof_birthday};

Search pattern not terminated at birthdays.cgi line 39.

my @foo = split /-/, $hit->{prof_birthday};

my $sth = $DB->table('comm_users')->select( GT::SQL::Condition->new('prof_birthday','LIKE',"%-mm-$dd") ) || die $GT::SQL::error;

my $sth = $DB->table('comm_users')->select( GT::SQL::Condition->new('prof_birthday','LIKE',"%-mm-$dd",'comm_enabled','=','1') ) || die $GT::SQL::error;

<script>

function testthis() {
alert(document.myform.document.prof_birthday-day);
return false;

// prof_birthday-day
// prof_birthday-mon
// prof_birthday-year
}

</script>


<form name="myform" action="community.cgi" method="post" onsubmit="return testthis();">

document.myform.document.prof_birthday_day

document.myform.document.prof_birthday-day

sub ssi_form_control {

....

}

sub ssi_form_control {
# -------------------------------------------------------------------
require GT::SQL::Display::HTML;
require GT::SQL::Display::HTML::Table;
require GT::Template;

my $opts = ref $_[0] eq 'HASH' ? shift : {@_};

my $user_tb = $DB->table('comm_users');
my $tags = GT::Template->tags || {};
my $disp = $DB->html($user_tb, $tags);

my $form_type = lc( $opts->{form_type} || $opts->{def}{form_type} );

exists $opts->{blank} or $opts->{blank} = $form_type eq 'select' ? 1 : 0;

my $input_html = 'radio' eq $form_type ? $disp->radio( $opts ) :
'checkbox' eq $form_type ? $disp->checkbox( $opts ) :
'select' eq $form_type ? do {
$opts->{form_size} ||= $opts->{def}{form_size};
$disp->select( $opts );
} :
'hidden' eq $form_type ? $disp->hidden( $opts ) :
'multiple' eq $form_type ? do {
$opts->{form_size} ||= $opts->{def}{form_size};
$opts->{multiple} = $opts->{form_size};
$disp->multiple( $opts )
}:
'textarea' eq $form_type ? $disp->textarea( $opts ) :
'file' eq $form_type ? "File type not supported." :
'date' eq $form_type ? do {
require GT::Date;
my ($sel_year, $sel_mon, $sel_day) = split /\-/, GT::CGI::html_escape($opts->{value});
$sel_year ||= 1970;
$sel_mon ||= 1;
$sel_day ||= 1;
my $month_sel = $disp->select({
name => "$opts->{name}-mon",
value => $sel_mon,
values => { map { sprintf("%02d", $_) => $GT::Date::LANGUAGE->{short_month_names}->[$_ - 1] } (1 .. 12) },
sort => [ map { sprintf("%02d", $_) } (1 .. 12) ],
blank => 1
});
my $day_sel = $disp->select({
name => "$opts->{name}-day",
value => $sel_day,
values => { map { sprintf("%02d", $_) => $_ } (1 .. 31) },
sort => [ map { sprintf("%02d", $_) } (1 .. 31) ],
blank => 1
});
qq~
$day_sel /
$month_sel /
<input type="text" name="$opts->{name}-year" value="" size="4" maxlength="4">
~;
} :
$disp->text($opts);

return \$input_html;
}