我正在 Catalyst 中构建一个数据库应用程序,使用 jqGrid 来完成处理数据显示的繁琐工作。除了能够通过“标签”过滤搜索结果之外,我几乎一切都在工作。我有三张表,关系如下:
package MyApp::Schema::Result::Project;
...
__PACKAGE__->has_many(
"job_flags",
"MyApp::Schema::Result::ProjectFlag",
{ "foreign.project_id" => "self.id" },
{ cascade_copy => 0, cascade_delete => 0 },
);
...
__PACKAGE__->many_to_many(flags => 'project_flags', 'flag');
1;
和
package MyApp::Schema::Result::Flag;
...
__PACKAGE__->has_many(
"project_flags",
"MyApp::Schema::Result::ProjectFlag",
{ "foreign.flag_id" => "self.id" },
{ cascade_copy => 0, cascade_delete => 0 },
);
...
__PACKAGE__->many_to_many(projects => 'project_flags', 'project');
1;
最后,连接表
package MyApp::Schema::Result::ProjectFlag;
...
__PACKAGE__->belongs_to(
"flag",
"MyApp::Schema::Result::Flag",
{ id => "flag_id" },
{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);
...
__PACKAGE__->belongs_to(
"project",
"MyApp::Schema::Result::Project",
{ id => "project_id" },
{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);
...
1;
在我向 jqGrid 提供 JSON 数据的 Controller 中,我使用了
Catalyst::TraitFor::Controller::jQuery::jqGrid::Search
将 jqGrid 生成的请求参数转换为 DBIx::Class 样式的查询:my $search_filter = $self->jqGrid_search($c->req->params);
my $project_rs = $c->model('DB::Project')->search(
$search_filter, {
join => 'project_flags',
group_by => 'id',
},
);
然后传递给 jqGrid 页面生成器:
$project_rs = $self->jqgrid_page($c, $project_rs);
然后我遍历结果集并构建我的 jqGrid 列。
在 HTML 方面,我能够构建一个 JSON 字符串,如
{"groupOp":"AND","rules":[{"field":"project_flags.flag_id","op":"eq","data":"2"}]}
并且,在这种情况下,显示项目在
project_flags
中有一行与 flag
id
的 2
.我绝对知道我没有正确地做这件事! 我可以在 Catalyst 和 DBIx::Class 上找到的所有文档都展示了类似的想法,但我无法理解如何将它们应用于这种情况(并不是我没有尝试过)。
has_flag($flag_id)
”类型的访问器,然后能够在 jqGrid 的 API 中使用它们?这应该属于我的 Catalyst 应用程序的哪个位置? 最佳答案
我必须对你说实话,我不完全确定我理解你的问题。似乎您要问的与 DBIx::Class 的关系比 Catalyst 更重要——后者我知之甚少,前者我每天都在了解更多。考虑到这一点,这是我回答您问题的最佳尝试。我使用 Mojolicious 作为 MVC,因为这是我最了解的。
首先,我首先创建一个多对多数据库:
CREATE TABLE project(
id INTEGER PRIMARY KEY,
name text
);
CREATE TABLE flag(
id INTEGER PRIMARY KEY,
name text
);
CREATE TABLE project_flag(
project_id integer not null,
flag_id integer not null,
FOREIGN KEY(project_id) REFERENCES project(id),
FOREIGN KEY(flag_id) REFERENCES flag(id)
);
INSERT INTO project (id,name) VALUES (1,'project1');
INSERT INTO project (id,name) VALUES (2,'project2');
INSERT INTO project (id,name) VALUES (3,'project3');
INSERT INTO flag (id,name) VALUES (1,'flag1');
INSERT INTO flag (id,name) VALUES (2,'flag2');
INSERT INTO flag (id,name) VALUES (3,'flag3');
INSERT INTO flag (id,name) VALUES (4,'flag4');
INSERT INTO project_flag (project_id,flag_id) VALUES (1,1);
INSERT INTO project_flag (project_id,flag_id) VALUES (1,2);
INSERT INTO project_flag (project_id,flag_id) VALUES (1,3);
INSERT INTO project_flag (project_id,flag_id) VALUES (1,4);
INSERT INTO project_flag (project_id,flag_id) VALUES (2,1);
INSERT INTO project_flag (project_id,flag_id) VALUES (2,4);
这是我的 Perl (Mojolicious) 代码:
#!/usr/bin/env perl
use Mojolicious::Lite;
use Schema;
helper db => sub {
return Schema->connect('dbi:SQLite:test.db');
};
get '/' => sub {
my $self = shift;
my $rs = $self->db->resultset('Project')->search(
{ 'me.name' => 'project3' },
{
join => { 'project_flags' => 'flag' },
select => ['me.name', 'flag.name'],
as => ['project', 'flag']
}
);
$rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
$self->render( json => [ $rs->all ] );
};
app->start;
这是来自 project1 的 JSON 输出( pretty-print )(有与之相关的标志):
[
{
"project":"project1",
"flag":"flag1"
},
{
"flag":"flag2",
"project":"project1"
},
{
"project":"project1",
"flag":"flag3"
},
{
"flag":"flag4",
"project":"project1"
}
]
这是 project3 的 JSON,与任何标志没有关系:
[
{
"project":"project3",
"flag":null
}
]
我把文件放在 Github 上,所以你可以 check them out如果你愿意。
在您给定的情况下,假设他们在过滤器中输入了单词“c++”,并且您想返回所有标记为“c++”的内容,然后:
my $rs = $self->db->resultset('Tag')->search(
{ 'me.name' => 'c++' },
{
join => { 'project_flags' => 'project' },
select => ['me.name', 'project.name'],
as => ['tag', 'project']
}
);
$rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
$self->render( json => [ $rs->all ] );
如果要返回所有列,请使用
prefetch
而不是加入。另外,如果您想支持自动搜索功能,请更改 search
至 search_like
,像这样:my $rs = $self->db->resultset('Tag')->search_like(
{ 'me.name' => $search_filter.'%' },
我希望,如果我没有回答你的问题,我所给出的至少是朝着正确方向的插入。
关于perl - 如何在 Catalyst 应用程序中公开多对多标签样式关系?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/20083803/