• hash.msn

    224 225  
    1 1 <%args>
    2 $name => undef
    3 $SETS => undef
    2
    3 $name => undef
    4 $SETS => undef
    5 $object => undef
    6
    4 7 </%args>
    5 8
    6 9 <%init>
    7 return undef if (! ref($SETS));
    8 return undef if (! $name);
    9 10
    10 my $FIELDS = {};
    11 while (my ($element,$value)=each %{$SETS}) {
    12 if ($element =~ /^${name}_key_(\d+)$/ && $SETS->{"${name}_value_$1"}) {
    13 $FIELDS->{$value}=$SETS->{"${name}_value_$1"};
    14 }
    15 }
    16 {
    17 local $Data::Dumper::Indent = 0;
    18 return Data::Dumper::Dumper($FIELDS);
    19 }
    11 return undef if (! ref($SETS));
    12 return undef if (! $name);
    13
    14 my $FIELDS = {};
    15 while (my ($element,$value)=each %{$SETS}) {
    16 if ($element =~ /^${name}_key_(\d+)$/ && $SETS->{"${name}_value_$1"}) {
    17 $FIELDS->{$value}=$SETS->{"${name}_value_$1"};
    18 }
    19 }
    20 return $object->_serialize($FIELDS);
    21
    20 22 </%init>