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;