view release on metacpan or  search on metacpan

lib/FWS/V2/Admin.pm  view on Meta::CPAN

    #
    if ( $paramHash{fieldType} eq "dropDown" ) {
        $fieldHTML .= "<select name=\"" . $paramHash{fieldName} . "\"" . $styleHTML . " class=\"" . $paramHash{class} . "\"";
    }

    if ( $paramHash{fieldType} eq "birthday" ) {

        #
        # onchange bday js
        #
        my $bdayOnchange = "if (!isNaN(\$('#" . $paramHash{uniqueId} . "_year').val()) && !isNaN(\$('#" . $paramHash{uniqueId} . "_day').val()) && !isNaN(\$('#" . $paramHash{uniqueId} . "_month').val())) { \$('#" . $paramHash{uniqueId} . "_ajax').val...
        #
        # month
        #
        $fieldHTML .= '<select class="FWSInputField" id="' . $paramHash{uniqueId} . '_month" name="' . $paramHash{uniqueId} . '_month" onchange="' . $bdayOnchange . '">';
        $fieldHTML .= '<option>- Month -</option>';
        $fieldHTML .= '<option value="01">January</option>';
        $fieldHTML .= '<option value="02">February</option>';
        $fieldHTML .= '<option value="03">March</option>';
        $fieldHTML .= '<option value="04">April</option>';
        $fieldHTML .= '<option value="05">May</option>';