ex/fancy_example/BeerDB/Drinker.pm

   1 package BeerDB::Drinker;
   2 use strict;
   3 use warnings;
   4
   5 use Data::Dumper;
   6
   7 __PACKAGE__->columns('Stringify' => qw/handle/);
   8
   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
  12
  13 __PACKAGE__->has_a(person => 'BeerDB::Person', no_select => 1);
  14
  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.
  18
  19 #__PACKAGE__->has_many(pints => 'BeerDB::Pint', 'drinker');
  20
  21 # When we create a drinker we want to create a person as well
  22 # So tell AsForm to display the person inputs too.
  23
  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/ }
  28
  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
  32 # we manually do it.
  33
  34 sub list : Exported {
  35         my ($self, $r) = @_;
  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;
  41 }
  42
  43 sub view : Exported {
  44         my ($self, $r, $obj) = @_;
  45         $self->_croak( "Object method only") unless $obj;
  46
  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;
  51         }
  52
  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 ;
  56 }
  57
  58
  59
  60 #sub foreign_input_delimiter { '__IMODDD__'}
  61
  62 1;