add_to_from_cgi is cool.

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

diff --git a/ex/fancy_example/BeerDB.pm b/ex/fancy_example/BeerDB.pm
index 5b30188618b2e63eade5fc764e784620f854a96a..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,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;