From 61b54f430fb90f1f0aceecf243221dddb8a9e60e Mon Sep 17 00:00:00 2001 From: Aaron Trevena Date: Mon, 11 Jul 2005 11:14:33 +0000 Subject: [PATCH] rest of BeerDB.pm fix git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@354 48953598-375a-da11-a14b-00016c27c3ee --- ex/BeerDB.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm index 1e4291a..53197cc 100644 --- a/ex/BeerDB.pm +++ b/ex/BeerDB.pm @@ -25,10 +25,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. -- 2.39.5