package Crystal::Secure::Controller::Recvfax;

use strict;
use warnings;
use base 'Catalyst::Controller';

=head1 NAME

Crystal::Secure::Controller::Recvfax - Controleur Catalyst

=head1 DESCRIPTION

Controleur Catalyst pour l'interaction avec les objets 
de la classe CrystalDB::Recvfax

=head1 METHODS

=cut


=head2 index 

=cut

#sub index : Private {
#	my ( $self, $c ) = @_;

#	$c->response->body('Matched Crystal::Secure::Controller::Recvfax in Recvfax.');
#}

=head2 list

On va chercher toutes les receptions de fax et on les file ‡ recvfax/list.tt2
dans le "stash" pour les afficher

=cut

sub list : Local {
# Recupere le OO $self pour cette objet.
# $c est le 'contexte' catalyst qui est utilisÈ pour "coller" les differents
# composants qui forment l'application.
	my ($self, $c) = @_;

# Recupere toutes les receptions de fax en tant que model objects
# et les stock dans le 'stash' ou le template TT peut y acceder
# le stash est une pile magique ou on stocke ce que l'on veut.
# D'une certaine maniere, le stash remplace une certaine utilisation
# du hash global %ENV
	$c->stash->{recvfax} = [$c->model('CrystalDB::Recvfax')->all];

# CECI EST UN MODELE SIMPLIFIE.
# Differents processus de controle doivente etre appliquÈs avant d'afficher le contenu.
# je fais simple pour la demo


# Set le template TT ‡ utiliser. 
# C'est la maniere usuelle de proceder dans des methodes d'action
# (les methodes d'action repondent ‡ un input du user dans le controleur)
#
#$c->stash->{template} = 'recvfax/list.tt2';
}
=head2 url_create

Create a book with the supplied title, rating, and author

=cut

=head1 AUTHOR

Morad IGMIR

=head1 LICENSE

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

=cut

1;