1 package BeerDB::Drinker;
7 __PACKAGE__->columns('Stringify' => qw/handle/);
9 # A drinker is a person but we do not want to select who that person is
10 # from a list because this is a 1:1 relationship rather than a M:1.
11 # The no_select option tells AsForm not to bother making a select box
13 __PACKAGE__->has_a(person => 'BeerDB::Person', no_select => 1);
15 # Drinker drinks many beers at pubs if they are lucky. I like to specify the
16 # name of the foreign key unless i can control the order that the
17 # cdbi classes are created. CDBI does not guess very well the fk column.
19 #__PACKAGE__->has_many(pints => 'BeerDB::Pint', 'drinker');
21 # When we create a drinker we want to create a person as well
22 # So tell AsForm to display the person inputs too.
24 sub display_columns { qw/person handle/ }
25 sub list_columns { qw/person handle/ }
26 # AsForm and templates may check for search_colums when making
27 #sub search_columns { qw/person handle/ }
29 # We need to tweak the cgi inputs a little.
30 # Since list is where addnew is, override that.
31 # Person is a has_a rel and AsForm wont make foreign inputs automatically so
36 $self->SUPER::list($r);
37 my %cgi = $self->to_cgi;
38 $cgi{person} = $self->to_field('person', 'foreign_inputs');
39 $r->template_args->{classmetadata}{cgi} = \%cgi;
40 #$r->template_args->{classmetadata}{search_cgi} = $self->search_inputs;
44 my ($self, $r, $obj) = @_;
45 $self->_croak( "Object method only") unless $obj;
47 if ($r->params->{submit}) {
48 my ($pint) = $obj->add_to_from_cgi($r);
49 if (my $errs = $obj->cgi_update_errors) {
50 $r->template_args->{errors} = $errs;
54 my %cgi = $self->to_cgi('pints');
55 delete $cgi{pints}{drinker}; # = $obj->to_field(drinker => 'link_hidden', {r => $r});
56 $r->template_args->{classmetadata}{cgi} = \%cgi ;
61 #sub foreign_input_delimiter { '__IMODDD__'}