• status_multi.msn

    388 389  
    12 12 my ($prop) = grep { $_->{attr} eq $name } @props;
    13 13 return undef unless ref $prop;
    14 14
    15 my @values = exists $prop->{values} && ref $prop->{values} eq 'ARRAY' ? @{ $prop->{values} } :
    16 exists $prop->{cases} && ref $prop->{cases} eq 'ARRAY' ? @{ $prop->{cases} } : ();
    15 my @values;
    16 if ( $prop && ref $prop ) {
    17 if ( exists $prop->{lookup_opts} && ref $prop->{lookup_opts} eq 'HASH' ) {
    18 @values = $keeper->get_documents (
    19 %{$prop->{lookup_opts}},
    20 names => 1,
    21 );
    22 } elsif ( exists $prop->{values} && ref $prop->{values} eq 'ARRAY' ) {
    23 @values = @{ $prop->{values} };
    24 } elsif ( exists $prop->{cases} && ref $prop->{cases} eq 'ARRAY' ) {
    25 @values = @{ $prop->{cases} };
    26 }
    27 }
    17 28
    18 29 return undef unless @values;
    19 30
    … …  
    29 40 }
    30 41 }
    31 42 }
    32
    33 43 return \@ids;
    34 44
    35 45 </%init>