cvs commit: p5ee/App-Widget/lib/App/Widget Select.pm

cvsuser     05/10/20 13:34:24

  Modified:    App-Widget/lib/App/Widget Select.pm
  Log:
  support EACH value
  
  Revision  Changes    Path
  1.4       +14 -6     p5ee/App-Widget/lib/App/Widget/Select.pm
  
  Index: Select.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Widget/lib/App/Widget/Select.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- Select.pm	10 Nov 2004 15:45:09 -0000	1.3
  +++ Select.pm	20 Oct 2005 20:34:24 -0000	1.4
  @@ -47,10 +47,18 @@
   ######################################################################
   
   # uncomment this when I need to do more than just call SUPER::_init()
  -#sub _init {
  -#   my $self = shift;
  -#   $self->SUPER::_init(@_);
  -#}
  +sub _init {
  +    my $self = shift;
  +    my $context = $self->{context};
  +    my $name = $self->{name};
  +    my $value = $context->so_get($name);
  +    if ($value eq "EACH") {
  +        my ($values, $labels) = $self->values_labels();
  +        $value = join(",", @$values);
  +        $context->so_set($name, undef, $value);
  +    }
  +    $self->SUPER::_init(@_);
  +}
   
   ######################################################################
   # METHODS