1package BookDB::Form::BookView;
2
3use HTML::FormHandler::Moose;
4extends 'HTML::FormHandler::Model::DBIC';
5use DateTime;
6
7
8has '+item_class' => ( default => 'Book' );
9
10has_field 'borrower' => ( type => 'Select' );
11has_field 'borrowed';
12
13
14# List for the "view" part of this form. These are not updated
15# Not a standard form method. Convenience function
16sub view_list {
17    my @fields = ('title', 'author', 'genre', 'publisher', 'isbn', 'format', 'pages', 'year');
18
19    return wantarray ? @fields : \@fields;
20}
21
22sub init_value_borrowed
23{
24    my ($self, $field) = @_;
25    return DateTime->now( time_zone => 'local')->ymd;
26}
27
281;
29