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

Posted 2023-03-24

【中文标题】如何在 Catalyst 应用程序中公开多对多标签样式的关系？

【英文标题】：How can I expose many-to-many tag-style relationship in a Catalyst app?

【发布时间】：2013-12-03 17:30:03

【问题描述】：

我正在 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 数据的控制器中，我使用 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 应用中属于什么位置？ 我想过滤的一种方法是缺少特定标志。

【问题讨论】：

您在结果集类中定义方法：metacpan.org/pod/distribution/DBIx-Class/lib/DBIx/Class/Manual/…

这个问题实际上与 Catalyst 没有任何关系。

【参考方案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 输出（漂亮的打印）（有与之相关的标志）：

[
   
      "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.'%' ,

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