X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=ex%2FBeerDB.pm;h=db4ec1c66ce5556790ee37913e90c6187ef71b82;hb=346143529922475f513453053cab4b387ac22b9d;hp=6d90b2eb7828f1c1566a1f25f3bfa443414a5d32;hpb=2d1409f7dd94e2292690eb03d7d62e464c1714db;p=maypole.git

diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm
index 6d90b2e..db4ec1c 100644
--- a/ex/BeerDB.pm
+++ b/ex/BeerDB.pm
@@ -2,11 +2,12 @@ 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';
-use constant DATASOURCE => 't/beerdb.db';
+use constant DATASOURCE => $ENV{BEERDB_DATASOURCE} || 't/beerdb.db';
+
 
 BEGIN {
     my $dbi_driver = DBI_DRIVER;
@@ -25,10 +26,13 @@ BEGIN {
 # Give it a name.
 BeerDB->config->application_name('The Beer Database');
 
-# Change this to the root of the web space.
-BeerDB->config->uri_base("http://localhost/beerdb/");
-#BeerDB->config->uri_base("http://neo.trinity-house.org.uk/beerdb/");
+# Change this to the root of the web site for your maypole application.
+BeerDB->config->uri_base( $ENV{BEERDB_BASE} || "http://localhost/beerdb/" );
+
+# Change this to the htdoc root for your maypole application.
+BeerDB->config->template_root( $ENV{BEERDB_TEMPLATE_ROOT} ) if $ENV{BEERDB_TEMPLATE_ROOT};
 
+# Specify the rows per page in search results, lists, etc : 10 is a nice round number
 BeerDB->config->rows_per_page(10);
 
 # Handpumps should not show up.
@@ -40,6 +44,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",