第6回：登録フォームの作成 (2/2)

TOP＞システム開発＞削除確認画面の表示（/delete）

使ってわかるCatalyst

第６回：登録フォームの作成
著者：アドウェイズ加藤敦 2006/9/22

前のページ 1 2

削除確認画面の表示（/delete）

findメソッドを使ってDBIx::Class::ResultSetオブジェクトを取得し、get_columnsメソッドでハッシュを取得しています（リスト21）。

リスト21：削除確認画面の表示

（画像をクリックすると別ウィンドウに拡大図を表示します）

編集フォームの表示（/edit）

することは/deleteと一緒なので、forwardしています（リスト22）。違いは、stashのfdatに値を入れるところだけです。こうすることで、自動的にフォームに値が入ります。

リスト22：編集フォームの表示


		sub edit : Local {

		   my( $self, $c ) = @_;

		   $c->stash->{fdat} = $c->forward('delete');

		}

登録の実行（/regist_execute）

modelを使ってURLがすでに存在するかチェックし、存在しなければ、URLの存在確認のためにLWP::Simpleで内容を取得します（リスト23）。内容が取得できなければエラーです。フォームにタイトルが設定されていない場合は、取得したHTMLのtitleをタイトルとし、titleが無い場合は、'no title'という文字列を代わりに入れておきます。後は、modelからcreateメソッドで登録します。登録が終われば最初に戻るので、indexにforwardしています。

リスト23：登録の処理


		sub regist_execute : Local{

		   my($self, $c) = @_;

		   my %data;

		   foreach my $k (qw/url title comment/){

		      $data{$k} = $c->req->param($k) || '';

		   }

		   if(my $url = $data{url}){

		      if($c->model('DBIC::bookmark')->find({url => $url})){

		         $c->stash->{msg} = 'Already exists: ' . $url;

		      }elsif(my $content = LWP::Simple::get($url)){

		         $c->stash->{msg} = "Success: " . $url;

		         unless($data{title}){

		            my($title) = $content =~m {<title>([^<]*)</title>}i;

		            $data{title} = Jcode::jcode($title)->utf8;

		         }

		         $data{title} ||= 'no title';

		         $c->model('DBIC::bookmark')->create(\%data);

		      }else{

		         $c->stash->{msg} = 'Error: cannot get contents (' . $url. ')';

		      }

		   }

		   $c->forward('index');

		}

前のページ 1 2

著者プロフィール
株式会社アドウェイズ加藤敦
アフィリエイトシステムやモバイルサイトの構築などを経て、現在、技術マネージャーとして新規サービスの設計、システムの標準化などに携わる。個人的にCPANモジュールの開発や、オープンソースのプロジェクトに参加している。

INDEX
第6回：登録フォームの作成
	追加設定とテンプレートの用意
	設定の変更

使ってわかるCatalyst
第1回	Catalystの導入
第2回	サンプルアプリケーションの作成準備
第3回	コントローラクラスへの理解を深める
第4回	Catalystの最重要オブジェクト
第5回	テンプレートの作成
第6回	登録フォームの作成
第7回	Ajaxで登録フォーム

タイプ

連載

特集

新着記事

人気記事トップ10

企画広告も役立つ情報バッチリ！ Sponsored