1package BookDB::Form::Borrower;
2
3use HTML::FormHandler::Moose;
4extends 'HTML::FormHandler::Model::DBIC';
5
6=head1 NAME
7
8Form object for Borrower
9
10=head1 DESCRIPTION
11
12Catalyst Controller.
13
14=cut
15
16
17has '+item_class' => ( default => 'Borrower' );
18
19__PACKAGE__->meta->make_immutable;
20
21has_field 'name' => (
22                type => 'Text',
23                required => 1,
24                order    => 1,
25                label    => "Name",
26                unique   => 1,
27                unique_message => 'That name is already in our user directory',
28);
29has_field 'email'      => (
30                type => 'Email',
31                required => 1,
32                order => 4,
33                label => "Email",
34            );
35has_field 'phone' => (
36                type => 'Text',
37                order => 2,
38                label => "Telephone",
39            );
40has_field 'url' => (
41                type => 'Text',
42                order => 3,
43                label => 'URL',
44            );
45has_field 'active' => ( type => 'Boolean', label => "Active?" );
46
47has_field 'submit' => ( type => 'Submit', value => 'Save' );
48
49=head1 AUTHOR
50
51Gerda Shank
52
53=head1 LICENSE AND COPYRIGHT
54
55This module is free software; you can redistribute it and/or
56modify it under the same terms as Perl itself. See L<perlartistic>.
57
58=cut
59
60__PACKAGE__->meta->make_immutable;
61no HTML::FormHandler::Moose;
621;
63