view release on metacpan or  search on metacpan

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

        $self->jqueryEnable( 'ui.datepicker-1.8.9' );
        $self->jqueryEnable( 'ui.slider-1.8.9' );
        $self->jqueryEnable( 'timepickr-0.9.6' );
        $paramHash{class} .= " FWSDateTime";
    }

    if ( $paramHash{fieldType} =~ /^(currency|number|date|color|dateTime)$/ ) {

        if ( $paramHash{fieldType} eq 'color' ) { $styleHTML = " style=\"background-color: #" . $paramHash{fieldValue} . "\""; }

        if ( $paramHash{fieldType} eq 'dateTime' ) {
           $fieldHTML .= "<input type=\"text\" name=\"" . $paramHash{fieldName} . "\"  size=\"20\"" . $styleHTML . " class=\"" . $paramHash{class} . "\" value=\"" . $paramHash{fieldValue} . "\"";
        }
        else {
           $fieldHTML .= "<input type=\"text\" name=\"" . $paramHash{fieldName} . "\"  size=\"10\"" . $styleHTML . "  class=\"" . $paramHash{class} . "\" value=\"" . $paramHash{fieldValue} . "\"";
        }

        #
        # only allow numbers and such
        #
        $paramHash{onKeyDown} .= "var keynum; if(window.event) { keynum = event.keyCode } else if(event.which) {";
        $paramHash{onKeyDown} .= "keynum = event.which };";
        $paramHash{onKeyDown} .= "if ((";
        $paramHash{onKeyDown} .= "keynum&lt;48 || keynum&gt;105 || (keynum&gt;57 &amp;&amp; keynum&lt;95)";
        $paramHash{onKeyDown} .= ")";

        #
        # if I'm a color let people pick a-f
        #
        if ( $paramHash{fieldType} eq 'color' ) {
            $paramHash{onKeyDown} .= " &amp;&amp; keynum != 65 &amp;&amp; keynum != 66 &amp;&amp; keynum != 67 &amp;&amp; keynum != 68 &amp;&amp; keynum != 69 &amp;&amp; keynum != 70 ";
        }
        else {
            #
            # keypad and number: -
            #
            $paramHash{onKeyDown} .= " &amp;&amp; keynum != 45 &amp;&amp; keynum != 109 ";

            #
            # keypad: .
            #
            $paramHash{onKeyDown} .= " &amp;&amp; keynum != 45 &amp;&amp; keynum != 110 ";
        }

        $paramHash{onKeyDown} .= " &amp;&amp; keynum!=46  &amp;&amp; keynum!=189 &amp;&amp; keynum!=37 &amp;&amp; keynum!= 39 &amp;&amp; keynum!= 35 &amp;&amp; keynum!= 36 &amp;&amp; keynum!=8 &amp;&amp; keynum!=9 &amp;&amp; keynum!=190) { return fal...

    }

    #
    # dropDown
    #
    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>';
        $fieldHTML .= '<option value="06">June</option>';
        $fieldHTML .= '<option value="07">July</option>';
        $fieldHTML .= '<option value="08">August</option>';
        $fieldHTML .= '<option value="09">September</option>';
        $fieldHTML .= '<option value="10">October</option>';
        $fieldHTML .= '<option value="11">November</option>';
        $fieldHTML .= '<option value="12">December</option>';
        $fieldHTML .= '</select>';

        #
        # Day
        #
        $fieldHTML .= '<select class="FWSInputField" id="' . $paramHash{uniqueId} . '_day" name="' . $paramHash{uniqueId} . '_day" onchange="' . $bdayOnchange . '">';
        $fieldHTML .= '<option>- Day -</option>';
        for ( my $count = 1; $count <= 31; $count++ ) {
            my $lead = '0'; 
            if ( $count > 9 ) { $lead = '' }
            $fieldHTML .= '<option value="' . $lead . $count . '">' . $count . '</option>';
        }
        $fieldHTML .= '</select>';

        #
        # year
        #
        $fieldHTML .= '<select class="FWSInputField" id="' . $paramHash{uniqueId} . '_year" name="' . $paramHash{uniqueId} . '_year" onchange="' . $bdayOnchange . '">';
        $fieldHTML .= '<option>- Year -</option>';
        my $year = $self->formatDate( format => 'year' );
        for ( my $count = $year-4; $count > $year-110; $count-- ) { $fieldHTML .= '<option value="' . $count . '">' . $count . '</option>' }
        $fieldHTML .= '</select>';
    }

    #
    # textArea
    #
    if ( $paramHash{fieldType} eq "textArea" ) {
        $fieldHTML .= "<textarea rows=\"8\" cols=\"70\" name=\"" . $paramHash{fieldName} . "\"" . $styleHTML . " class=\"" . $paramHash{class} . "\"";
    }


    #
    # all but checkboxes and radio buttons
    #
    if ( $paramHash{fieldType} =~ /^(dateTime|color|currency|number|text|password|textArea|dropDown|date)$/ ) {
        #
        # set the Id
        #
        $fieldHTML .= " id=\"".$paramHash{uniqueId}."\"";
        if ( $paramHash{readOnly} ) { $fieldHTML .= " disabled=\"disabled\"" }
    }