Foro - Perl en Español

## additional attribute handling ##

        my @additional_attr = ();
        my @additionalAttributes = getRequiredList('ADDITIONAL_REQUEST_ATTRIBUTES');
        my @additionalAttributesStringType = getRequiredList('ADDITIONAL_REQUEST_ATTRIBUTES_STRING_TYPE');
        my @additionalAttributesDisplayValue = getRequiredList('ADDITIONAL_ATTRIBUTES_DISPLAY_VALUE');

        my $counter = 0;
        foreach my $attribute (@additionalAttributes)
        {
            ## determine the attribute
            my $attVar;
            if($additionalAttributesDisplayValue[$counter])
            {
                $attVar =  gettext ($additionalAttributesDisplayValue[$counter]) ;
            } else {
                generalError(gettext ("The number of ADDITIONAL_REQUEST_ATTRIBUTES must equal the number of ADDITIONAL_ATTRIBUTES_DISPLAY_VALUE in the configuration."));
            }
            my $tempAttribute = uc $attribute;

            ## determine the content type
            my $stringType = "LATIN1_LETTERS";
            if ( $additionalAttributesStringType[$counter])
            {
                $stringType = $additionalAttributesStringType[$counter];
            }

            ## build the attribute list
            push @additional_attr , [
                $attVar, $query->newInput ( -regx     => $stringType,
                                            -intype   => 'textfield',
                                            -size     => 30,
                                            -name     => 'ADDITIONAL_ATTRIBUTE_'.$tempAttribute,
                                            -optional => 1,
                                            -check    => 'fill',
                                            -default  => $query->param ('ADDITIONAL_ATTRIBUTE_'.$tempAttribute)
                                            )
                                    ];
            $counter ++;
        }