perl - HTML::FormHandler 访问表单域

Question

有没有办法在字段“prg_id”的表单字段选项方法中访问表单字段“wklloc_id”的值？

我的表单包含（除其他外）这些字段：

has_field 'wklloc_id' => ( type => 'Select', label => 'Winkel(locatie)' );
has_field 'prg_id' => ( type => 'Select', empty_select => 'Kies eerst een Winkel(locatie)', label => 'Productgroep' );

此时我的字段“prg_id”的选项方法包含：

sub options_prg_id
{
  my ($self) = shift;

  my (@prg_select_list,$productgroep,$productgroepen);

  return unless ($self->schema);

  $productgroepen = $self->schema->resultset( 'WinkelLocatieProductgroepen' )->search( {}, { bind  => [ 2 ] } );

是否可以将绑定变量（即 2）的值设置为字段“wklloc_id”的值，如何做到这一点？请注意，这是在任何提交之前需要的。

Answer 1

选择字段的值的设置方式与其他字段相同，即它来自 init_object、参数值或默认值。对于您的情况，如果您希望此字段以“值”2 开头，则只需在字段定义中输入：default => 2。