perl - 如何在 Catalyst 应用程序中公开多对多标签样式关系？

Question

我正在 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 应用程序的哪个位置？

我想过滤的方法之一是也缺少特定的标志。

Answer 1

我必须对你说实话，我不完全确定我理解你的问题。似乎您要问的与 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.'%' },

我希望，如果我没有回答你的问题，我所给出的至少是朝着正确方向的插入。