tested and it seems to work

[maypole.git] / ex / fancy_example / BeerDB.pm

diff --git a/ex/fancy_example/BeerDB.pm b/ex/fancy_example/BeerDB.pm
index 593851f16f2ab484524611c26aa0e1e6d55e2b11..cb72574e1b9af564784e01740198497f39d82f2a 100644 (file)
--- 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,8 +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::Pint::display_columns { qw/drinker handpump/ }
-sub BeerDB::Person::display_columns { qw/first_name last_name dob email/ }
 
 BeerDB->config->{loader}->relationship($_) for (
     "a brewery produces beers",
@@ -77,4 +74,5 @@ sub BeerDB::Handpump::stringify_self {
        return $self->beer . " @ " . $self->pub;
 }
 
+
 1;