X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=ex%2Ffancy_example%2FBeerDB.pm;fp=ex%2Ffancy_example%2FBeerDB.pm;h=cb72574e1b9af564784e01740198497f39d82f2a;hb=e1ed80e9b0929d184fabfb6d4df9a8db4580eb4e;hp=5b30188618b2e63eade5fc764e784620f854a96a;hpb=833895f46fdd117b0416acff264041af2ce6f46a;p=maypole.git diff --git a/ex/fancy_example/BeerDB.pm b/ex/fancy_example/BeerDB.pm index 5b30188..cb72574 100644 --- a/ex/fancy_example/BeerDB.pm +++ b/ex/fancy_example/BeerDB.pm @@ -44,7 +44,6 @@ BeerDB::Beer->untaint_columns( BeerDB::Pub->untaint_columns(printable => [qw/name notes url/]); BeerDB::Drinker->untaint_columns( printable => [qw/handle created/] ); BeerDB::Pint->untaint_columns( printable => [qw/date_and_time/]); -BeerDB::Person->untaint_columns( printable => [qw/first_name sur_name dob username password email/]); # Required Fields @@ -58,7 +57,6 @@ BeerDB->config->{person}{required_cols} = [qw/first_name sur_name dob email/]; # Columns to display sub BeerDB::Handpump::display_columns { qw/pub beer/ } -sub BeerDB::Person::display_columns { qw/first_name last_name dob email/ } BeerDB->config->{loader}->relationship($_) for ( "a brewery produces beers", @@ -76,4 +74,5 @@ sub BeerDB::Handpump::stringify_self { return $self->beer . " @ " . $self->pub; } + 1;