我正在使用HTML::FormHandler和Catalyst,我有这个字段:
has_field 'client_account_id' => ( type => 'Select', options_method =>
\&options_account_id);
我有3个用外键连接的表:
clients client_accounts login
------- --------------- -----
id client_id client_account_id
现在我希望&options_account_id
仅为某个 client_id填充client_account_id字段和client_accounts。这是我到目前为止的方法:
sub options_account_id {
use my_app;
my $self = shift;
my @client_accounts = my_app->model('DB::ClientAccount')->search({
'client_id' => $client_id},
{
select => [ qw/id domain/ ], ## SELECT
})->all;
my @options;
for(@client_accounts) {
push @options, { value => $_->id, label => $_->domain};
}
return @options;
}
现在它显然不起作用,因为$ client_id变量不存在。我的问题是,当我创建新表单时,有没有办法以某种方式传递某个客户端ID?或者有人知道更好的方法吗?谢谢!
答案 0 :(得分:4)
在控制器内的表单构造函数中提供client_id:
my $form = MyApp::Form::MyFormPage->new( client_id => $some_id);
在表格类MyApp::Form::MyFormPage
中添加属性:
has 'client_id' => ( is => 'rw' );
在您的方法中访问此属性:
sub options_account_id {
my $self = shift; # self is client_account_id field so has no client_id method
my $clientid = $self->form->client_id; # access parent to get client id
}
答案 1 :(得分:0)
如果您已经解决了这个问题,请与您分享您的解决方案吗?到目前为止,我可以找到这种方法:
将Catalyst上下文传递给表单对象(但是,应该根据http://metacpan.org/pod/HTML::FormHandler::Manual::Catalyst#The-Catalyst-context避免这种情况),然后查询传递的表单参数的上下文。表单本身将根据client_id动态设置这些参数。
虽然这种方法混合了MVC但我不喜欢它。所以如果你确实找到了更好的解决方案 - 请告诉我。
ps:顺便说一句,很高兴看到来自Austin的Catalyst dev!