CMS->MovableType/プラグイン/プラグイン開発/リビジョン付オブジェクト/Pageオブジェクトのリビジョンを制御 - プログラミングの勉強をしよう@Wiki

Top > CMS->MovableType > プラグイン > プラグイン開発 > リビジョン付オブジェクト > Pageオブジェクトのリビジョンを制御

RevObjectTest02

構成

$MT_DIR/
|__ plugins/
|  |__ RevObjectTest02/
|     |__ config.yaml
|     |__ lib/                    
|     |  |__ RevObjectTest02
|     |      |__ L10N
|     |      |   |__ ja.pm
|     |      |   |__ en_us.pm
|     |      |__ CMS.pm
|     |__ tmpl/                    
|     |  |__ revobjecttest02_list.tmpl
|     |  |__ revobjecttest02_edit.tmpl
 
 
 

ソース

config.yaml

id: RevObjectTest02
key: RevObjectTest02
name: <__trans phrase="_REVOBJECTTEST02_NAME_">
version: 1.0
description: <__trans phrase="_REVOBJECTTEST02_DESCRIPTION">
author_name: <__trans phrase="_REVOBJECTTEST02_AUTHOR">
author_link: http://www.example.com/about/
doc_link: http://www.example.com/docs/
 
# 言語対応
l10n_class: RevObjectTest02::L10N
 
# アプリケーション
applications:
    # CMS管理画面
    cms:
        # メニュー画面
        menus:
            # カスタムメニュー
            custom_menu:
                # 表示名
                label: Custom Menu
                # 表示順
                order: 1000
            # 一覧表示
            custom_menu:list:
                # 表示名
                label: _revobjecttest02_list
                # 表示順
                order: 300
                # 表示スコープ
                view:
                    - website
                # モード
                mode: revobjecttest02_list
                condition: sub { return 1 }
 
            # 編集表示
            custom_menu:edit:
                # 表示名
                label: _revobjecttest02_new
                # 表示順
                order: 310
                # 表示スコープ
                view:
                    - website
                # モード
                mode: revobjecttest02_edit
                # 引数
                args:
                    _type: new
                condition: sub { return 1 }
 
        # メソッド定義
        methods:
            # クリックした場合に呼び出される
            revobjecttest02_list: $RevObjectTest02::RevObjectTest02::CMS::list
            revobjecttest02_edit: $RevObjectTest02::RevObjectTest02::CMS::edit
            revobjecttest02_save: $RevObjectTest02::RevObjectTest02::CMS::save
 
 

lib/RevObjectTest02/L10N.pm

package RevObjectTest02::L10N;
use strict;
use base 'MT::Plugin::L10N';
 
1;
 
 

lib/RevObjectTest02/L10N/ja.pm

package RevObjectTest02::L10N::ja;
 
use strict;
use base 'RevObjectTest02::L10N::en_us';
use vars qw( %Lexicon );
 
%Lexicon = (
    '_REVOBJECTTEST02_NAME_' => 'RevObjectTest02',
    '_REVOBJECTTEST02_DESCRIPTION' => 'RevObjectTest02のテスト',
    '_REVOBJECTTEST02_AUTHOR' => 'プラグイン作者',
 
    '_revobjecttest02_list'          => '一覧',
    '_revobjecttest02_edit         ' => '編集',
    '_revobjecttest02_new'           => '新規',
 
    '_RevObjectTest02_ItemId'        => 'ID',
    '_RevObjectTest02_ItemTitle'     => 'タイトル',
    '_RevObjectTest02_ItemText'      => 'テキスト',
    '_RevObjectTest02_ItemNote'      => 'メモ',
 
    '_RevObjectTest02_ItemTitle Set' => 'タイトルを入力してください',
    '_RevObjectTest02_ItemText Set'  => 'テキストを入力してください',
    '_RevObjectTest02_ItemNote Set'  => '変更メモを入力してください',
 
    '_RevObjectTest02_Save'          => '保存',
    '_RevObjectTest02_New'           => '新規',
);
 
1;
 
 

lib/RevObjectTest02/L10N/en_us.pm

package RevObjectTest02::L10N::en_us;
 
use strict;
use base 'RevObjectTest02::L10N';
use vars qw( %Lexicon );
 
%Lexicon = (
    '_REVOBJECTTEST02_NAME_' => 'RevObjectTest02',
    '_REVOBJECTTEST02_DESCRIPTION' => 'RevObjectTest02 Test',
    '_REVOBJECTTEST02_AUTHOR' => 'RevObjectTest02 author',
 
    '_revobjecttest02_list' => 'list',
    '_revobjecttest02_edit' => 'edit',
    '_revobjecttest02_new'  => 'new',
 
);
 
1;
 
 

lib/RevObjectTest02/CMS.pm

package RevObjectTest02::CMS;
 
use strict;
 
use MT::FileMgr;
use Data::Dumper;
 
use Encode;
use utf8;
 
sub list{
 
    # パラメータ取得
    my ($app) = @_;
 
    # 返却用パラメータ定義
    my ( %param, %args, %terms );
 
    # パラメータコンテキスト取得
    my $q = $app->param;
 
    # ブログID取得
    my $blog_id = $q->param('blog_id');
 
    my $_type = $q->param('_type');
 
    # 読み込み
    my $iter = MT::Page->load_iter({blog_id => $blog_id});
 
    my @list;
    while(my $obj = $iter->()){
 
        # ハッシュ配列に設定
        my %item;
 
        # 各値を設定
        $item{id}       = $obj->id;
        $item{title}    = $obj->title;
        $item{text}     = $obj->text;
        $item{revision} = $obj->revision;
 
        # ハッシュのリファレンスを配列に追加
        push @list, \%item;
 
    }
 
    # 配列のリファレンスを設定
    $param{list} = \@list;
 
    # テンプレートを設定
    $app->load_tmpl('revobjecttest02_list.tmpl', \%param );
 
}
 
sub edit{
 
    # パラメータ取得
    my ($app) = @_;
 
    # 返却用パラメータ定義
    my ( %param, %args, %terms );
 
    # パラメータコンテキスト取得
    my $q = $app->param;
 
    # ブログID取得
    my $blog_id = $q->param('blog_id');
 
    # 処理タイプ
    my $_type = $q->param('_type');
 
    # リビジョンコード
    my $_r = $q->param('_r');
 
    my $id = $q->param('id');
    my $title = "";
    my $text = "";
 
    my @rev_list;
 
    if( $_type eq "edit"){
 
        # オブジェクト
        my $obj;
 
        # オブジェクト取得
        my $class      = $app->model("page");
        my $obj = $class->load({id => $id});
 
 
        if($obj){
 
            my $datasource = $obj->datasource;
            my $rev_class  = MT->model( $datasource . ':revision' );
            my $terms      = { $datasource . '_id' => $obj->id };
            my $count      = $rev_class->count($terms);
 
            my $rev_iter = $rev_class->load_iter(
                $terms,
                {   sort      => 'created_on',
                    direction => 'ascend',
                }
            );
 
            while ( my $rev = $rev_iter->() ) {
 
                # ハッシュ定義
                my %rev_info;
 
                $rev_info{id}          = $rev->id;
                $rev_info{label}       = $rev->label;
                $rev_info{rev_number}  = $rev->rev_number;
                $rev_info{changed}     = $rev->changed;
                $rev_info{created_on}  = $rev->created_on;
                $rev_info{modified_on} = $rev->modified_on;
                $rev_info{entry_id}    = $rev->entry_id;
                $rev_info{description} = $rev->description;
 
                $rev_info{created_date} = MT::Util::format_ts("%Y-%m-%d %H:%M:%S", $rev->created_on);
 
                # 配列に設定
                push @rev_list, \%rev_info;
 
            }
 
            # リビジョンデータより判定
            if($_r ne ""){
                # 指定リビジョンのデータを取得
                my $load_rev = $obj->load_revision( { rev_number => $_r } );
 
                # 取得したリビジョンのオブジェクトを設定
                $obj = $load_rev->[0];
 
            }
 
            # パラメータを設定
            $title    = $obj->title;
            $text     = $obj->text;
 
 
        }
 
    }
 
    # 設定
    $param{_type} = $_type;
    $param{revobjecttest02_id}      = $id;
    $param{revobjecttest02_title}   = $title;
    $param{revobjecttest02_text}    = $text;
 
    # リビジョン情報
    $param{revobjecttest02_rev}     = \@rev_list; # リファレンスを渡す
 
    # テンプレートを設定
    $app->load_tmpl('revobjecttest02_edit.tmpl', \%param );
 
}
 
 
sub save{
 
    # パラメータ取得
    my ($app) = @_;
 
    # 返却用パラメータ定義
    my ( %param, %args, %terms );
 
    # パラメータコンテキスト取得
    my $q = $app->param;
 
    # ブログID取得
    my $blog_id = $q->param('blog_id');
 
    # パラメータ取得
    my $id      = $q->param('revobjecttest02_id');
    my $title   = $q->param('revobjecttest02_title');
    my $text    = $q->param('revobjecttest02_text');
    my $note    = $q->param('revobjecttest02_note');
 
    # リビジョン保存設定用パラメータ
    $app->param('save_revision', "1");    # 1に設定するとリビジョンを保存する
    $app->param('revision-note', $note);  # 変更メモ
 
    my $class      = $app->model("page");
 
    # 読み込み
    my $obj = MT::Page->load({id => $id});
    my $org_obj;
    if(!$obj){
 
        $obj = $class->new();
 
        $obj->blog_id($blog_id);
        $obj->status(MT::Entry::RELEASE());
        $obj->author_id($app->user->id);
 
    }else{
        $org_obj = $obj->clone;
        $obj->modified_by($app->user->id);
    }
 
    my $type = "page";
 
    $obj->title($title);
    $obj->text($text);
 
    $app->run_callbacks( 'cms_pre_save.' . $type, $app, $obj, $org_obj )
        || return $app->error(
        $app->translate(
            "Saving [_1] failed: [_2]",
            $class->class_label, $app->errstr
        )
        );
 
    $obj->save or die $obj->errstr;
 
    $app->run_callbacks( 'cms_post_save.' . $type, $app, $obj, $org_obj );
 
    my $id = $obj->id;
 
    return $app->redirect(
               $app->uri(
                   mode => 'revobjecttest02_list',
                   args => {
                       _type => "list",
                       success => 1,
                       blog_id => $blog_id,
                  },
               )
        );
 
}
 
sub debug{
 
    my ($data) = @_;
 
    $Data::Dumper::Terse = 1;
    $Data::Dumper::Indent = 1;
    my $dump = Dumper($data);
 
    my $file = "/home/httpd/cgi-bin/mt/aaa.txt";
    my $fmgr = MT::FileMgr->new('Local');
    $fmgr->put_data($dump, $file);
}
 
1;
 
 

tmpl/revobjecttest02_list.tmpl

<mt:setvarblock name="page_title"><__trans phrase="_REVOBJECTTEST02_NAME_"></mt:setvarblock>
 
<mt:setvar name="export_webpage" value="1">
 
<mt:setvarblock name="html_head" append="1">
<script type="text/javascript" src="<mt:var name="static_uri">js/tc/client.js"></script>
<script type="text/javascript" src="<mt:var name="static_uri">js/dialog.js"></script>
</mt:setvarblock>
 
<mt:setvarblock name="system_msg">
<div id="msg-block">
  <mt:if name="save_success">
    <mtapp:statusmsg
       id="saved-theme"
       class="success">
      <__trans phrase="Test1 Success">
    </mtapp:statusmsg>
  </mt:if>
</div>
</mt:setvarblock>
 
<mt:setvartemplate name="object_loop">
<table class="listing-table list-page last-child" id="page-table" border="1">
<mt:loop name="$loop_for">
  <mt:if name="__first__">
    <tr>
      <th style="text-align: center;">ID</th>
      <th style="text-align: center;">Title</th>
      <th style="text-align: center;">Text</th>
      <th style="text-align: center;">Rev</th>
    </tr>
  </mt:if>
    <tr>
      <td style="text-align: center;"><a href="<mt:var name="script_url">?__mode=revobjecttest02_edit&_type=edit&blog_id=<mt:var name="blog_id">&id=<mt:var name="id">"><mt:var name="id"></a></td>
      <td style="text-align: center;"><mt:var name="title"></td>
      <td style="text-align: center;"><mt:var name="text"></td>
      <td style="text-align: center;"><mt:var name="revision"></td>
    </tr>
  <mt:if name="__last__">
  </mt:if>
</mt:loop>
</table>
</mt:setvartemplate>
 
<mt:include name="include/header.tmpl">
 
<form id="webpage_settings" method="post" enctype="multipart/form-data" action="<mt:var name="script_url">">
  <input type="hidden" name="__mode" value="revobjecttest02_edit" />
  <input type="hidden" name="_type" value="new" />
  <input type="hidden" name="blog_id" value="<mt:var name="blog_id">" />
  <input type="hidden" name="magic_token" value="<mt:var name="magic_token">" />
 
<mt:setvar name="loop_for" value="list" /><mt:var name="object_loop">
 
<br />
<mt:setvarblock name="action_buttons">
  <button
     type="submit"
     accesskey="s"
     title="<__trans phrase="_RevObjectTest02_New">"
     class="export action button primary">
    <__trans phrase="_RevObjectTest02_New"></button>
</mt:setvarblock>
<mt:include name="include/actions_bar.tmpl" bar_position="bottom" hide_pager="1" settings_bar="1">
 
</form>
 
<script type="text/javascript">
/* <![CDATA[ */
jQuery.mtCheckbox();
 
jQuery(function() {
});
    <mt:var name="js_include_footer" />
/* ]]> */
</script>
 
<!-- フッター -->
<mt:include name="include/footer.tmpl">
 
 

tmpl/revobjecttest02_edit.tmpl

<mt:setvarblock name="page_title"><__trans phrase="_REVOBJECTTEST02_NAME_"></mt:setvarblock>
 
<mt:setvar name="export_webpage" value="1">
 
<mt:setvarblock name="html_head" append="1">
<script type="text/javascript" src="<mt:var name="static_uri">js/tc/client.js"></script>
<script type="text/javascript" src="<mt:var name="static_uri">js/dialog.js"></script>
</mt:setvarblock>
 
<mt:setvarblock name="system_msg">
<div id="msg-block">
  <mt:if name="save_success">
    <mtapp:statusmsg
       id="saved-theme"
       class="success">
      <__trans phrase="Test1 Success">
    </mtapp:statusmsg>
  </mt:if>
</div>
</mt:setvarblock>
 
<mt:setvartemplate name="object_loop">
<table class="listing-table list-page last-child" id="page-table" border="1" style="width: 50%;">
<mt:loop name="$loop_for">
  <mt:if name="__first__">
    <tr>
      <th style="text-align: center;">ID</th>
      <th style="text-align: center;">CreateDate</th>
      <th style="text-align: center;">description</th>
      <th style="text-align: center;">Rev</th>
    </tr>
  </mt:if>
    <tr>
      <td style="text-align: center;"><mt:var name="id"></td>
      <td style="text-align: center;"><mt:var name="created_date"></td>
      <td style="text-align: center;"><mt:var name="description"></td>
      <td style="text-align: center;"><a href="<mt:var name="script_url">?__mode=revobjecttest02_edit&_type=edit&blog_id=<mt:var name="blog_id">&id=<mt:var name="entry_id">&_r=<mt:var name="rev_number">"><mt:var name="rev_number"></a></td>
    </tr>
  <mt:if name="__last__">
  </mt:if>
</mt:loop>
</table>
<hr />
</mt:setvartemplate>
 
<mt:include name="include/header.tmpl">
 
<mt:setvar name="loop_for" value="revobjecttest02_rev" /><mt:var name="object_loop">
 
<form id="webpage_settings" method="post" enctype="multipart/form-data" action="<mt:var name="script_url">">
  <input type="hidden" name="__mode" value="revobjecttest02_save" />
  <input type="hidden" name="_type" value="<mt:var name="_type">" />
  <input type="hidden" name="blog_id" value="<mt:var name="blog_id">" />
  <input type="hidden" name="magic_token" value="<mt:var name="magic_token">" />
 
  <fieldset>
    <mtapp:setting
       id="objecttest02-id"
       required="1"
       label="<__trans phrase="_RevObjectTest02_ItemId">">
      <input type="text" name="revobjecttest02_id" id="objecttest02_id" class="text required" value="<mt:var name="revobjecttest02_id" escape="html">" />
    </mtapp:setting>
 
    <mtapp:setting
       id="objecttest02-name"
       required="1"
       label="<__trans phrase="_RevObjectTest02_ItemTitle">"
       show_hint="1"
       hint="<__trans phrase="_RevObjectTest02_ItemTitle Set">">
      <input type="text" name="revobjecttest02_title" id="revobjecttest02_title" class="text required" value="<mt:var name="revobjecttest02_title" escape="html">" />
    </mtapp:setting>
 
    <mtapp:setting
       id="objecttest02-type"
       required="1"
       label="<__trans phrase="_RevObjectTest02_ItemText">"
       show_hint="1"
       hint="<__trans phrase="_RevObjectTest02_ItemText Set">">
      <input type="text" name="revobjecttest02_text" id="revobjecttest02_text" class="text required" value="<mt:var name="revobjecttest02_text" escape="html">" />
    </mtapp:setting>
 
    <mtapp:setting
       id="objecttest02-note"
       required="1"
       label="<__trans phrase="_RevObjectTest02_ItemNote">"
       show_hint="1"
       hint="<__trans phrase="_RevObjectTest02_ItemNote Set">">
      <input type="text" name="revobjecttest02_note" id="revobjecttest02_note" class="text required" />
    </mtapp:setting>
 
  </fieldset>
 
<mt:setvarblock name="action_buttons">
  <button
     type="submit"
     accesskey="s"
     title="<__trans phrase="_RevObjectTest02_Save">"
     class="export action button primary">
    <__trans phrase="_RevObjectTest02_Save"></button>
</mt:setvarblock>
<mt:include name="include/actions_bar.tmpl" bar_position="bottom" hide_pager="1" settings_bar="1">
 
</form>
 
<script type="text/javascript">
/* <![CDATA[ */
jQuery.mtCheckbox();
 
jQuery(function() {
});
    <mt:var name="js_include_footer" />
/* ]]> */
</script>
 
<!-- フッター -->
<mt:include name="include/footer.tmpl">
 
 

結果

独自画面

ダウンロード

---