X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=ex%2FBeerDB.pm;h=466aa5e8313fed88cfa42415a542e8356a530df9;hb=85dcd6751d0499f04d3e64ae3a894cf878224da5;hp=53197ccfcffdbf84cd9b0ade71343891f11fd81c;hpb=61b54f430fb90f1f0aceecf243221dddb8a9e60e;p=maypole.git

diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm
index 53197cc..466aa5e 100644
--- a/ex/BeerDB.pm
+++ b/ex/BeerDB.pm
@@ -2,7 +2,7 @@ package BeerDB;
 use Maypole::Application;
 use Class::DBI::Loader::Relationship;
 
-sub debug { $ENV{BEERDB_DEBUG} }
+sub debug { $ENV{BEERDB_DEBUG} || 0 }
 # This is the sample application.  Change this to the path to your
 # database. (or use mysql or something)
 use constant DBI_DRIVER => 'SQLite';
@@ -43,6 +43,8 @@ BeerDB::Beer->untaint_columns(
     integer => [qw/style brewery score/],
     date =>[ qw/date/],
 );
+BeerDB::Pub->untaint_columns(printable => [qw/name notes url/]);
+
 BeerDB->config->{loader}->relationship($_) for (
     "a brewery produces beers",
     "a style defines beers",