projekt kivitendo

=item _store_value()

parses a complex var name, and stores it in the form.

syntax:

  $form->_store_value($key, $value);

keys must start with a string, and can contain various tokens.

supported key structures are:

1. simple access

  simple key strings work as expected

  id => $form->{id}

2. hash access.

  separating two keys by a dot (.) will result in a hash lookup for the inner value

  this is similar to the behaviour of java and templating mechanisms.

  filter.description => $form->{filter}->{description}

3. array+hashref access

  adding brackets ([]) before the dot will cause the next hash to be put into an array.

  using [+] instead of [] will force a new array index. this is useful for recurring

  data structures like part lists. put a [+] into the first varname, and use [] on the

  following ones.

  repeating these names in your template:

    invoice.items[+].id

    invoice.items[].parts_id

  will result in:

    $form->{invoice}->{items}->[

      {

        id       => ...

        parts_id => ...

      },

      {

        id       => ...

        parts_id => ...

      }

      ...

    ]

4. arrays

  using brackets at the end of a name will result in a pure array to be created.

  note that you mustn't use [+], which is reserved for array+hash access and will

  result in undefined behaviour in array context.

  filter.status[]  => $form->{status}->[ val1, val2, ... ]

=cut

  my $self  = shift;

  my @tokens = split /((?:\[\+?\])?(?:\.|$))/, $key;

  my $curr;

  if (scalar @tokens) {

     $curr = \ $self->{ shift @tokens };

  }

  while (@tokens) {

    my $sep = shift @tokens;

    my $key = shift @tokens;

    $curr = \ $$curr->[++$#$$curr], next if $sep eq '[]';

    $curr = \ $$curr->[max 0, $#$$curr]  if $sep eq '[].';

    $curr = \ $$curr->[++$#$$curr]       if $sep eq '[+].';

    $curr = \ $$curr->{$key}

  $$curr = $value;

  return $curr;

  my $self  = shift;

  my $input = shift;

  my @pairs = split(/&/, $input);

    $self->_store_value($self->unescape($key), $self->unescape($value)) if ($key);

  my $self  = shift;

  my $input = shift;

    $self->_input_to_hash($input);

        $previous         = $self->_store_value($name, '') if ($name);

        $self->{FILENAME} = $filename if ($filename);

  $self->_request_to_hash($_);

  if ($self->{INPUT_ENCODING} && (lc $self->{INPUT_ENCODING} ne $db_charset)) {

    my $iconv = Text::Iconv->new($self->{INPUT_ENCODING}, $db_charset);

    _recode_recursively($iconv, $self);

    delete $self{INPUT_ENCODING};