package Catalyst::Plugin::FillInForm::ForceUTF8;

use strict;
use NEXT;
use HTML::FillInForm::ForceUTF8;

our $VERSION = '0.02';

=head1 NAME

Catalyst::Plugin::FillInForm::ForceUTF8 - FillInForm with utf8 flag for Catalyst

=head1 SYNOPSIS

    use Catalyst 'FillInForm::ForceUTF8'; 
    # that's it, if Catalyst::Plugin::FormValidator is being used

    # OR, manually:

    # in MyApp.pm; assume $c->stash->data is seeded elsewhere
    sub end : Private {
      my ( $self, $c ) = @_;
      $c->forward('MyApp::V::TT') unless $c->res->output;
      $c->fillform( $c->stash->data );
      # ....

    # you can abort automatic fillform with configuration.
    # (default: 1, same as Catalyst::Plugin::FillInForm behavior)
    MyApp->config->(
        fillinform->{
            auto => 0
        }
    );

=head1 DESCRIPTION

Fill forms automatically, based on data from a previous HTML
form. Typically (but not necessarily) used in conjunction with
L<Catalyst::Plugin::FormValidator>. This module automatically
inserts data from a previous HTML form into HTML input fields,
textarea fields, radio buttons, checkboxes, and select
tags. It is an instance of L<HTML::FillInForm>, which itself
is a subclass of L<HTML::Parser>, which it uses to parse the
HTML and insert the values into the proper form tags.

The usual application is after a user submits an HTML form
without filling out a required field, or with errors in fields
having specified constraints. FillInForm is used to
redisplay the HTML form with all the form elements containing
the submitted info. FillInForm can also be used to fill forms
with data from any source, e.g. directly from your database.

=head2 EXTENDED METHODS

=head3 finalize

Will automatically fill in forms, based on the parameters in
C<$c-E<gt>req-E<gt>parameters>, if the last form has missing
or invalid fields, and if C<Catalyst::Plugin::FormValidator>
is being used. C<finalize> is called automatically by the
Catalyst Engine; the end user will not have to call it
directly. (In fact, it should never be called directly by the
end user.) If you want to avoid this behavior, add auto => 0
to config.

=cut

sub finalize {
    my $c = shift;

    my $config = $c->config->{fillinform};
    my $auto = exists $config->{auto} ? $config->{auto} : 1;
       
    if ( $auto && $c->isa('Catalyst::Plugin::FormValidator') ) {
        $c->fillform
            if $c->form->has_missing
            || $c->form->has_invalid
            || $c->stash->{error};
    }
    return $c->NEXT::finalize(@_);
}

=head2 METHODS

=head3 fillform

Fill a form, based on request parameters (the default) or any
other specified data hash. You would call this manually if
you're getting your data from some source other than the
parameters (e.g. if you're seeding an edit form with the
results of a database query), or if you're using some other
validation system than C<Catalyst::Plugin::FormValidator>.

    $c->fillform; # defaults to $c->req->parameters

    # OR

    $c->fillform( \%data_hash );

C<fillform> must be called after an HTML template has been
rendered. A typical way of using it is to place it immediately
after your C<forward> call to your view class, which might be
in a built-in C<end> action in your application class.

   sub render : ActionClass('RenderView') {}

   sub end : Private {
       my ( $self, $c ) = @_;
       $c->forward('render');
       $c->fillform;
   }

=cut

sub fillform {
    my $c = shift;
    my $fdat = shift || $c->request->parameters;

    $c->response->output(
        HTML::FillInForm::ForceUTF8->new->fill(
            scalarref => \$c->response->{body},
            fdat      => $fdat
        )
    );
}

=head2 CONFIGURATION

=head3 auto

You can abort automatic fillform with configuration, even if 
C<Catalyst::Plugin::FormValidator> is loaded. 

    MyApp->config->(
        fillinform->{
            auto => 0
        }
    );

=head1 SEE ALSO

L<Catalyst>, L<Catalyst::Plugin::FormValidator>, L<HTML::FillInForm::ForceUTF8>, L<Catalyst::Plugin::FillInForm>,.

=head1 AUTHOR

Sebastian Riedel, C<sri@cpan.org>
Marcus Ramberg, C<mramberg@cpan.org>
Jesse Sheidlower, C<jester@panix.com>
Hideo Kimura, C<hide@hide-k.net>

=head1 COPYRIGHT

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

=cut

1;