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} eq 'drink') {
48 $r->params->{drinker} = $self;
49 my ($pint, $errs) = $self->related_class($r, 'pints')->create_from_cgi($r);
50 $r->template_args->{errors} = $errs if $errs;
53 my %cgi = $self->to_cgi('pints');
54 $cgi{pints}{drinker} = $obj->to_field(drinker => 'link_hidden', {r => $r});
55 $r->template_args->{classmetadata}{cgi} = \%cgi ;
60 #sub foreign_input_delimiter { '__IMODDD__'}