view release on metacpan or  search on metacpan

lib/App/Cinema/Controller/News.pm  view on Meta::CPAN

package App::Cinema::Controller::News;
use Moose;
use namespace::autoclean;

BEGIN {
	extends qw/Catalyst::Controller::FormBuilder/;
	our $VERSION = $App::Cinema::VERSION;
}

sub add : Local Form {
	my ( $self, $c ) = @_;
	my $form = $self->formbuilder;

	if ( $form->submitted && $form->validate ) {
		my $row = $c->model('MD::News')->create(
			{
				title        => $form->field('title'),
				content      => $form->field('desc'),
				release_date => HTTP::Date::time2iso(time),
			}
		);
		$c->flash->{message} = 'Created News : ' . $row->title;
		$c->res->redirect( $c->uri_for('add') );
	}
}

sub view : Local {
	my ( $self, $c ) = @_;

	unless ( $c->user_exists ) {
		$c->stash->{error}    = $c->config->{need_login_errmsg};
		$c->stash->{template} = 'result.tt2';
		return;
	}

#	$c->detach("unauthorized")
#	  unless $c->check_any_user_role(qw/vipuser sysadmin/);

	unless ( $c->check_any_user_role(qw/vipuser sysadmin/) ) {
		$c->stash->{error}    = $c->config->{need_auth_msg};
		$c->stash->{template} = 'result.tt2';
		return;
	}

	my $rs = $c->model('MD::News')->search( $c->session->{query},
		{ order_by => { -desc => 'release_date' } } );

	$c->stash->{news} = $rs;
}
1;

=head1 NAME

App::Cinema::Controller::News - A controller that handles actions for News.

=head1 SYNOPSIS

You can call its actions in any template files either

    <a HREF="[% Catalyst.uri_for('/news/add') %]">News</a>
    
or

    <a HREF="[% base %]news/add">News</a>

=head1 DESCRIPTION

This is A controller that handles actions for News.

=head2 Methods

=over 12

=item C<add>