プログラミングの勉強をしよう@Wiki
プログラミングの勉強をしよう@Wiki

ObjectTest01

構成

$MT_DIR/
|__ plugins/
|  |__ ObjectTest01/
|     |__ config.yaml
|     |__ lib/                    
|     |  |__ ObjectTest01/
|     |      |__ CMS.pm
|     |      |__ Object01.pm
|     |      |__ L10N/
|     |          |__ ja.pm
|     |          |__ en_us.pm
|     |__ tmpl/                    
|     |  |__ objecttest01_list.tmpl
|     |  |__ objecttest01_edit.tmpl
 
 
 

ソース

config.yaml

id: ObjectTest01
key: ObjectTest01
name: <__trans phrase="_OBJECTTEST01_NAME_">
version: 1.0
description: <__trans phrase="_OBJECTTEST01_DESCRIPTION">
author_name: <__trans phrase="_OBJECTTEST01_AUTHOR">
author_link: http://www.example.com/about/
doc_link: http://www.example.com/docs/
 
# 言語対応
l10n_class: ObjectTest01::L10N
 
# 独自オブジェクトの定義
schema_version: 0.03
object_types:
    object01: ObjectTest01::Object01
 
# アプリケーション
applications:
    # CMS管理画面
    cms:
        # メニュー画面
        menus:
            # カスタムメニュー
            custom_menu:
                # 表示名
                label: Custom Menu
                # 表示順
                order: 1000
            # 一覧表示
            custom_menu:list:
                # 表示名
                label: _objecttest01_list
                # 表示順
                order: 300
                # 表示スコープ
                view:
                    - website
                    - blog
                # モード
                mode: object01_list
                condition: sub { return 1 }
 
            # 編集表示
            custom_menu:edit:
                # 表示名
                label: _objecttest01_new
                # 表示順
                order: 310
                # 表示スコープ
                view:
                    - website
                    - blog
                # モード
                mode: object01_edit
                # 引数
                args:
                    _type: new
                condition: sub { return 1 }
 
        # メソッド定義
        methods:
            # "custom_menu:test1"をクリックした場合に呼び出される
            object01_list: $ObjectTest01::ObjectTest01::CMS::list
            object01_edit: $ObjectTest01::ObjectTest01::CMS::edit
            object01_save: $ObjectTest01::ObjectTest01::CMS::save
 
 

lib/ObjectTest01/CMS.pm

package ObjectTest01::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 $class_name = 'object01';
    my $class = MT->model($class_name);
 
    # 読み込み
    my $iter = $class->load_iter();
 
    my @list;
    while(my $obj = $iter->()){
 
        # ハッシュ配列に設定
        my %item;
 
        # 各値を設定
        $item{id}      = $obj->id;
        $item{name}    = $obj->name;
        $item{type}    = $obj->type;
        $item{num}     = $obj->num;
        $item{kingaku} = $obj->kingaku;
 
        # ハッシュのリファレンスを配列に追加
        push @list, \%item;
 
    }
 
    # 配列のリファレンスを設定
    $param{list} = \@list;
 
    # テンプレートを設定
    $app->load_tmpl('objecttest01_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 $id = $q->param('id');
    my $name;
    my $type;
    my $num;
    my $kingaku;
 
    if( $_type eq "edit"){
        my $class_name = 'object01';
        my $class = MT->model($class_name);
        my $obj = $class->load({id => $id});
        if($obj){
            $name    = $obj->name;
            $type    = $obj->type;
            $num     = $obj->num;
            $kingaku = $obj->kingaku;
        }
 
    }
 
    # 設定
    $param{_type} = $_type;
    $param{objecttest01_id}      = $id;
    $param{objecttest01_name}    = $name;
    $param{objecttest01_type}    = $type;
    $param{objecttest01_num}     = $num;
    $param{objecttest01_kingaku} = $kingaku;
 
    # テンプレートを設定
    $app->load_tmpl('objecttest01_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('objecttest01_id');
    my $name    = $q->param('objecttest01_name');
    my $type    = $q->param('objecttest01_type');
    my $num     = $q->param('objecttest01_num');
    my $kingaku = $q->param('objecttest01_kingaku');
 
    # 保存
    my $class_name = 'object01';
    my $class = MT->model($class_name);
 
    # 読み込み
    my $obj = $class->load({id => $id});
    if(!$obj){
        $obj = $class->new();
    }
    $obj->name($name);
    $obj->type($type);
    $obj->num($num);
    $obj->kingaku($kingaku);
    $obj->save or die $obj->errstr;
 
    my $id = $obj->id;
 
    return $app->redirect(
               $app->uri(
                   mode => 'object01_edit',
                   args => {
                       _type => "edit",
                       success => 1,
                       blog_id => $blog_id,
                       id => $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;
 
 

lib/ObjectTest01/Object01.pm

package ObjectTest01::Object01;
 
use strict;
 
use base qw( MT::Object );
 
__PACKAGE__->install_properties ({
    column_defs => {
        'id'      =>  'integer not null auto_increment',
        'name'    =>  'string(255)',
        'type'    =>  'string(255)',
        'num'     =>  'string(255)',
        'kingaku' =>  'string(255)',
    },
    indexes => {
    },
    child_of => '',
    audit => 1,
    datasource  => 'object01',
    primary_key => 'id',
    class_type  => 'object01',
});
 
1;
 
 

lib/ObjectTest01/L10N/ja.pm

package ObjectTest01::L10N::ja;
 
use strict;
use base 'ObjectTest01::L10N::en_us';
use vars qw( %Lexicon );
 
%Lexicon = (
    '_OBJECTTEST01_NAME_' => 'ObjectTest01',
    '_OBJECTTEST01_DESCRIPTION' => 'ObjectTest01のテスト',
    '_OBJECTTEST01_AUTHOR' => 'プラグイン作者',
 
    '_objecttest01_list' => '一覧',
    '_objecttest01_edit' => '編集',
    '_objecttest01_new'  => '新規',
 
    '_ObjectTest01_ItemId'     => '商品ID',
    '_ObjectTest01_ItemName'    => '商品名',
    '_ObjectTest01_ItemType'    => '種類',
    '_ObjectTest01_ItemNum'     => '数量',
    '_ObjectTest01_ItemKingaku' => '金額',
 
    '_ObjectTest01_ItemName Set'     => '商品名を入力してください',
    '_ObjectTest01_ItemType Set'     => '種類を入力してください',
    '_ObjectTest01_ItemNum Set'      => '数量を入力してください',
    '_ObjectTest01_ItemKingaku Set'  => '金額を入力してください',
 
    '_ObjectTest01_Save'    => '保存',
);
 
1;
 
 

lib/ObjectTest01/L10N/en_us.pm

package ObjectTest01::L10N::en_us;
 
use strict;
use base 'ObjectTest01::L10N';
use vars qw( %Lexicon );
 
%Lexicon = (
    '_OBJECTTEST01_NAME_' => 'ObjectTest01',
    '_OBJECTTEST01_DESCRIPTION' => 'ObjectTest01 Test',
    '_OBJECTTEST01_AUTHOR' => 'ObjectTest01 author',
 
    '_objecttest01_list' => 'list',
    '_objecttest01_edit' => 'edit',
    '_objecttest01_new'  => 'new',
 
);
 
1;
 
 
 

tmpl/objecttest01_list.tmpl

<mt:setvarblock name="page_title"><__trans phrase="_OBJECTTEST01_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;">Name</th>
      <th style="text-align: center;">Type</th>
      <th style="text-align: center;">Num</th>
      <th style="text-align: center;">Kingaku</th>
    </tr>
  </mt:if>
    <tr>
      <td style="text-align: center;"><a href="<mt:var name="script_url">?__mode=object01_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="name"></td>
      <td style="text-align: center;"><mt:var name="type"></td>
      <td style="text-align: center;"><mt:var name="num"></td>
      <td style="text-align: center;"><mt:var name="kingaku"></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="do_test1" />
  <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 />
 
</form>
 
<script type="text/javascript">
/* <![CDATA[ */
jQuery.mtCheckbox();
 
jQuery(function() {
});
    <mt:var name="js_include_footer" />
/* ]]> */
</script>
 
<!-- フッター -->
<mt:include name="include/footer.tmpl">
 
 

tmpl/objecttest01_edit.tmpl

<mt:setvarblock name="page_title"><__trans phrase="_OBJECTTEST01_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: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="object01_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="objecttest01-id"
       required="1"
       label="<__trans phrase="_ObjectTest01_ItemId">">
      <input type="text" name="objecttest01_id" id="objecttest01_id" class="text required" value="<mt:var name="objecttest01_id" escape="html">" />
    </mtapp:setting>
 
    <mtapp:setting
       id="objecttest01-name"
       required="1"
       label="<__trans phrase="_ObjectTest01_ItemName">"
       show_hint="1"
       hint="<__trans phrase="_ObjectTest01_ItemName Set">">
      <input type="text" name="objecttest01_name" id="objecttest01_name" class="text required" value="<mt:var name="objecttest01_name" escape="html">" />
    </mtapp:setting>
 
    <mtapp:setting
       id="objecttest01-type"
       required="1"
       label="<__trans phrase="_ObjectTest01_ItemType">"
       show_hint="1"
       hint="<__trans phrase="_ObjectTest01_ItemType Set">">
      <input type="text" name="objecttest01_type" id="objecttest01_type" class="text required" value="<mt:var name="objecttest01_type" escape="html">" />
    </mtapp:setting>
 
    <mtapp:setting
       id="objecttest01-num"
       required="1"
       label="<__trans phrase="_ObjectTest01_ItemNum">"
       show_hint="1"
       hint="<__trans phrase="_ObjectTest01_ItemNum Set">">
      <input type="text" name="objecttest01_num" id="objecttest01_num" class="text required" value="<mt:var name="objecttest01_num" escape="html">" />
    </mtapp:setting>
 
    <mtapp:setting
       id="objecttest01-kingaku"
       required="1"
       label="<__trans phrase="_ObjectTest01_ItemKingaku">"
       show_hint="1"
       hint="<__trans phrase="_ObjectTest01_ItemKingaku Set">">
      <input type="text" name="objecttest01_kingaku" id="objecttest01_kingaku" class="text required" value="<mt:var name="objecttest01_kingaku" escape="html">" />
    </mtapp:setting>
 
  </fieldset>
 
<mt:setvarblock name="action_buttons">
  <button
     type="submit"
     accesskey="s"
     title="<__trans phrase="_ObjectTest01_Save">"
     class="export action button primary">
    <__trans phrase="_ObjectTest01_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">
 
 

結果

一覧

編集




「独自画面と連携し、一覧表示、編集を行う(classあり)」をウィキ内検索
最終更新：2012年02月07日 21:37