root/lang/perl/Chaostr/trunk/lib/Chaostr/Web/Controller/Texts.pm

package Chaostr::Web::Controller::Texts;

use strict;
use warnings;
use base 'Chaostr::Base::Controller::Resources';

=head1 NAME

Chaostr::Web::Controller::Texts - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut

sub list {
    my ( $self, $c, $text_id ) = @_;

    $c->stash->{texts} = $c->model('DBIC::Texts')->search();
}

sub create {
    my ( $self, $c ) = @_;
}

sub do_create {
    my ( $self, $c ) = @_;

    $c->form({
        required => [qw/text/],
        optional => [qw/title/],
    })->valid;

    if ( $c->form->has_error ) {
        $c->stash->{template} = 'texts/create.tt';
        $c->forward('TT');
        $c->fillform;
        return;
    }
    my $results = $c->form;
    $c->log->debug($results->valid->{text});

    my $timeline = $c->model('DBIC::Timeline')->create( { type => 'texts', created_by => $c->user->id } );
    my $text = $timeline->create_from_fv($c->form);

    $c->res->redirect( $c->uri_for('/texts', $text->id) );
}

sub member {
    my ( $self, $c, $text_id ) = @_;

    $c->stash->{text} = $c->model('DBIC::Text')->find($text_id);
}

sub show {
    my ( $self, $c, $text_id ) = @_;
}

sub update {
    my ( $self, $c, $text_id ) = @_;

    $c->forward('TT');
    $c->fillform($c->stash->{text}->as_fdat);
}

sub do_update {
    my ( $self, $c, $text_id ) = @_;

    my $results = $c->form({
        required => [qw/text/],
        optional => [qw/title/], 
    });

    if ( $c->form->has_error ) {
        $c->stash->{template} = 'texts/update.tt';
        $c->forward('TT');
        $c->fillform;
        return;
    }

    $c->stash->{text}->update_from_fv($results);

    $c->res->redirect( $c->uri_for('/texts', $c->stash->{text}->id) );
}

sub destroy {
    my ( $self, $c, $text_id ) = @_;
}

sub do_destroy {
    my ( $self, $c, $text_id ) = @_;

    $c->stash->{text}->timeline->delete;

    $c->res->redirect( $c->uri_for('/texts') );
}

=head1 AUTHOR

Daisuke Komatsu C<< <taro __at__ cpan.org> >>

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;