633 |
{ |
{ |
634 |
$fielddata{$field}{'flags'} |= $READONLY; |
$fielddata{$field}{'flags'} |= $READONLY; |
635 |
} |
} |
636 |
|
if ($fielddata{$field}{'fieldtype'} eq 'multienum') |
637 |
|
{ |
638 |
|
my @response = client_cmd("ftypinfo $field separators"); |
639 |
|
$response[0] =~ /'(.*)'/; |
640 |
|
$fielddata{$field}{'separators'} = $1; |
641 |
|
$fielddata{$field}{'default_sep'} = substr($1, 0, 1); |
642 |
|
} |
643 |
my @values = client_cmd ("fvld $field"); |
my @values = client_cmd ("fvld $field"); |
644 |
$fielddata{$field}{'values'} = [@values]; |
$fielddata{$field}{'values'} = [@values]; |
645 |
$fielddata{$field}{'default'} = shift (@fdflt); |
$fielddata{$field}{'default'} = shift (@fdflt); |
3150 |
my @values = @{$_[0]}; |
my @values = @{$_[0]}; |
3151 |
my $field = $_[1]; |
my $field = $_[1]; |
3152 |
my $valstring; |
my $valstring; |
3153 |
|
|
|
# Get the first character from the field separators string. |
|
|
my @response = client_cmd("ftypinfo $field separators"); |
|
|
$response[0] =~ /'(.*)'/; |
|
|
my $separator = substr $1, 0, 1; |
|
|
|
|
3154 |
# Prepare the string of separated values. |
# Prepare the string of separated values. |
3155 |
$valstring = join($separator, @values); |
$valstring = join($fielddata{$field}{'default_sep'}, @values); |
3156 |
|
|
3157 |
return $valstring; |
return $valstring; |
3158 |
} |
} |
3166 |
my $valstring = $_[0]; |
my $valstring = $_[0]; |
3167 |
my $field = $_[1]; |
my $field = $_[1]; |
3168 |
|
|
|
# Get the field separators string. |
|
|
my @response = client_cmd("ftypinfo $field separators"); |
|
|
$response[0] =~ /'(.*)'/; |
|
|
my $separators = $1; |
|
|
|
|
3169 |
# Split and return array ref. |
# Split and return array ref. |
3170 |
my @values = split /[$separators]/, $valstring; |
my @values = split /[$fielddata{$field}{'separators'}]/, $valstring; |
3171 |
return \@values; |
return \@values; |
3172 |
} |
} |
3173 |
|
|