You can also refer to this example included in ARSperl: http://arsperl.cvs.sourceforge.net/viewvc/arsperl/ARSperl/example/ars_decodeStatusHistory.pl?revision=1.3&view=markup
hth, -- Michiel Beijen Software Consultant +31 6 - 457 42 418 Bee Free IT + http://beefreeit.nl On Thu, Dec 4, 2008 at 3:13 PM, Urban, Robert (, externer Mitarbeiter) <[EMAIL PROTECTED]> wrote: > Franklin Lee wrote: >> Subject: [Arsperl-users] How to get enumerated value mapping for a field >> (non OO) >> >> For a given field of an enumerated data type, I want to create a mapping >> from the number to the text label. >> >> I see there is a method getEnumValues() that can be used with an ARS >> object, but I would prefer to use a non-OO function (I am having trouble >> getting the connection object to work but ars_Login seems to work). >> >> Any suggestions? > > It isn't exactly what you're looking for, but you can use the following code > to extract the label corresponding to a particular enumerated index for a > particular form view. I extracted the code from a larger module, and had to > clean it up a bit, so no guaratees that it will make it through the compiler, > but in principle it works. Also, it could be made much more efficient by > cacheing stuff that it currently doesn't... > > Cheers, > Robert Urban > > -snip- > #-------------------------------------------------------------------- > # getEnumValueLabel() > # > # assuming you have an open (non-OO) ARSPerl connection... > # > # getEnumValueLabel() will return the label from the View for $locale > # corresponding to the numerical field value for a particular request > #-------------------------------------------------------------------- > sub getEnumValueLabel > { > my ($ars_ctrl, $form_name, $request_id, $field_name, $locale) = @_; > > my $field_id = lookupFieldId($ars_ctrl, $form_name, $field_name); > > #-------------------------------------------------------------- > # call ars_GetEntry() to get the (numerical) field value, which > # is an index into the enumerated value list. > #-------------------------------------------------------------- > (my %fields = ars_GetEntry($ars_ctrl, $form_name, $request_id, $field_id)) > || die "ars_GetEntry failed: $ars_errstr"; > my $numeric_val = $fields{$field_id}; > > my @values; > > #-------------------------------------------------------------- > # get field-information using ars_GetField() > #-------------------------------------------------------------- > my $finfo = ars_GetField($ars_ctrl, $form_name, $field_id); > my $value_str = getEnumValuesForLocale($ars_ctrl, $form_name, $finfo, > $locale); > @values = decodeEnumValues($value_str); > @values || die "decode of enum values failed"; > > return $values[$numeric_val]; > } > > #-------------------------------------------------------------------- > # lookupFieldId() looks up the field-ID that corresponds to $field_name > # This implementation is only for demonstration purposes. Really, > # ars_GetFieldTable() should be called only once for a particular form > # and the values should be cached... > #-------------------------------------------------------------------- > sub lookupFieldId > { > my ($ars_ctrl, $form_name, $field_name) = @_; > > (my %fields = ars_GetFieldTable($ars_ctrl, $schema)) > || die "schema [$schema] seems not to exist.\n"; > > exists($fields{$field_name}) || die "field [$field_name] not found"; > > return $fields{$field_name}; > } > #-------------------------------------------------------------------- > # getEnumValuesForLocale() goes through all available field "display > instances" > # looking for the one corresponding to $locale > #-------------------------------------------------------------------- > sub getEnumValuesForLocale > { > my ($ars_ctrl, $form_name, $finfo, $locale) = @_; > > my @di_list = @{ $finfo->{displayInstanceList}->{dInstanceList} }; > my $result; > foreach my $di (@di_list) { > my $vinfo = ars_GetVUI($ars_ctrl, $form_name, $di->{vui}); > defined($vinfo) || die "GetVUI failed: $ars_errstr"; > next if ($locale ne $vinfo->{locale}); > > my $enum_values = findProp($di, ARS::AR_DPROP_ENUM_LABELS); > if (!defined($enum_values)) { > print "prop AR_DPROP_ENUM_LABELS not found\n"; > next; > } > return $enum_values > } > die "view for locale [$locale] not found"; > } > > #-------------------------------------------------------------------- > # the display instance structure in the field information structure > # stores the view-specific field labels as a wierd string looking something > # like "4\0\label0\1\label1\2\label2\3\label3" > # > # decodeEnumValues() returns an array of the labels, using the above > # example: ('label0', 'label1', 'label2', 'label3'); > #-------------------------------------------------------------------- > sub decodeEnumValues > { > my $str = shift; > > $str =~ s/^(\d+)\\//; > my $num_values = $1; > > my ($index, $value); > my @values; > while(defined($str)) { > unless ($str =~ /^(\d+)\\([^\\]+)(?:\\(.*)|$)/) { > die "match failed"; > } > ($index, $value, $str) = ($1, $2, $3); > push(@values, $value); > } > > return @values; > } > > #--------------------------------------------------------------------- > # go though properties list looking for propery with value = $prop_num > #--------------------------------------------------------------------- > sub findProp > { > my ($vref, $prop_num) = @_; > > foreach my $pref (@{ $vref->{props} }) { > if ($pref->{prop} == $prop_num) { > return $pref->{value}; > } > } > return undef; > } > -snip- > > ------------------------------------------------------------------------- > This SF.Net email is sponsored by the Moblin Your Move Developer's challenge > Build the coolest Linux based applications with Moblin SDK & win great prizes > Grand prize is a trip for two to an Open Source event anywhere in the world > http://moblin-contest.org/redirect.php?banner_id=100&url=/ > > > -- > Arsperl-users mailing list > Arsperl-users@arsperl.org > https://lists.sourceforge.net/lists/listinfo/arsperl-users > ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ -- Arsperl-users mailing list Arsperl-users@arsperl.org https://lists.sourceforge.net/lists/listinfo/arsperl-users
