From: Simon Cozens Date: Sat, 31 Jan 2004 15:02:38 +0000 (+0000) Subject: Oops, FromCGI doesn't deal with select (and there's no reason why it X-Git-Tag: 2.10~334 X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=487f817a072a9c5e88efee32cc99818894074537;p=maypole.git Oops, FromCGI doesn't deal with select (and there's no reason why it should) git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@28 48953598-375a-da11-a14b-00016c27c3ee --- diff --git a/lib/BeerDB.pm b/lib/BeerDB.pm index 7cb998f..e2c8272 100644 --- a/lib/BeerDB.pm +++ b/lib/BeerDB.pm @@ -13,13 +13,14 @@ BeerDB::Brewery->untaint_columns( ); BeerDB::Beer->untaint_columns( printable => [qw/abv name price notes/], + integer => [qw/style brewery/], date =>[ qw/date/], ); use Class::DBI::Loader::Relationship; BeerDB->config->{loader}->relationship($_) for ( "a brewery produces beers", - "a beer has a style", + "a style defines beers", "a pub has beers on handpumps"); 1;