Hatena::Groupcatalyst

LAPISLAZULI HILL#Catalyst このページをアンテナに追加 RSSフィード

2006-10-25

vimcolor記法でtt欲しい vimcolor記法でtt欲しい - LAPISLAZULI HILL#Catalyst を含むブックマーク はてなブックマーク - vimcolor記法でtt欲しい - LAPISLAZULI HILL#Catalyst vimcolor記法でtt欲しい - LAPISLAZULI HILL#Catalyst のブックマークコメント

vimcolor記法(スーパーpre記法 シンタックス・ハイライト)でtt欲しいな.smartyあるんだからあってもいいと思うんだけど.syntax自体はhttp://www.vim.org/scripts/script.php?script_id=830にあった

[][]Catalyst::Model::DBIC::Schemaとtt Catalyst::Model::DBIC::Schemaとtt - LAPISLAZULI HILL#Catalyst を含むブックマーク はてなブックマーク - Catalyst::Model::DBIC::Schemaとtt - LAPISLAZULI HILL#Catalyst Catalyst::Model::DBIC::Schemaとtt - LAPISLAZULI HILL#Catalyst のブックマークコメント

まるごとPerlのCatalystの記事だと

$c->stash->{data} = [ $c->model('DBIC::Hoge')->search({}, { page => 1, rows => 10}) ];

として配列に変換してFOREACHでまわしていた

[% FOREACH d = data %]
  [% d.id %] - [% d.url %]<br />
[% END %]

pagerを利用するときに取得したデータをそのまま渡したかったんだけど

$c->stash->{data} = $c->model('DBIC::Hoge')->search({}, { page => 1, rows => 10});

その場合

[% WHILE (d = data.next) %]
  [% d.id %] - [% d.url %]<br />
[% END %]

WHILEでnextを使ってまわすとうまくいった

[]DBIx::Class::ResultSetでのpaging DBIx::Class::ResultSetでのpaging - LAPISLAZULI HILL#Catalyst を含むブックマーク はてなブックマーク - DBIx::Class::ResultSetでのpaging - LAPISLAZULI HILL#Catalyst DBIx::Class::ResultSetでのpaging - LAPISLAZULI HILL#Catalyst のブックマークコメント

my $schema = Hoge::Schema->connect(~);
my $rs = $schema->resultset('hoge')->search({}, { page => 1, rows => 10});

print "         First page: ", $rs->pager->first_page, "\n";
print "          Last page: ", $rs->pager->last_page, "\n";
print "First entry on page: ", $rs->pager->first, "\n";
print " Last entry on page: ", $rs->pager->last, "\n";

Catalyst::Model::DBIC::Schemaだと

$c->stash->{data} = $c->model('DBIC::Hoge')->search({}, { page => 1, rows => 10});

としておいて,TTで

<ul>
<li>         First page: [% data.pager.first_page %]</li>
<li>          Last page: [% data.pager.last_page %]</li>
<li>First entry on page: [% data.pager.first %]</li>
<li> Last entry on page: [% data.pager.last %]</li>
</ul>

とかすればできた.

ちなみにClass::DBI::Sweetではこんな感じ

my ($page, $data) =  CDBI::hoge->page(
    {}, { rows => 10, page => 1 }
)

print "         First page: ", $page->first_page, "\n";
print "          Last page: ", $page->last_page, "\n";
print "First entry on page: ", $page->first, "\n";
print " Last entry on page: ", $page->last, "\n";

keyword機能 keyword機能 - LAPISLAZULI HILL#Catalyst を含むブックマーク はてなブックマーク - keyword機能 - LAPISLAZULI HILL#Catalyst keyword機能 - LAPISLAZULI HILL#Catalyst のブックマークコメント

使わないとなぁ.

[[$c]]

と書くのか.$c


[][]->res->redirect(url) ->res->redirect(url) - LAPISLAZULI HILL#Catalyst を含むブックマーク はてなブックマーク - ->res->redirect(url) - LAPISLAZULI HILL#Catalyst ->res->redirect(url) - LAPISLAZULI HILL#Catalyst のブックマークコメント

URLをリダイレクト.登録が終わったあとに移動するとか

トラックバック - http://catalyst.g.hatena.ne.jp/lapis25/20061025