From: Marcus Ramberg <mramberg@cpan.org>
Date: Mon, 11 Oct 2004 19:23:18 +0000 (+0000)
Subject: fixing missing untaint column.
X-Git-Tag: 2.10~143
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;ds=sidebyside;h=ddf79ab58ac40ec93ab6b333c048e2508075b9b4;p=maypole.git

fixing missing untaint column.


git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@219 48953598-375a-da11-a14b-00016c27c3ee
---

diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm
index c2e25fa..3ff1165 100644
--- a/ex/BeerDB.pm
+++ b/ex/BeerDB.pm
@@ -21,7 +21,7 @@ BeerDB->config->{display_tables} = [qw[beer brewery pub style]];
 BeerDB::Brewery->untaint_columns( printable => [qw/name notes url/] );
 BeerDB::Style->untaint_columns( printable => [qw/name notes/] );
 BeerDB::Beer->untaint_columns(
-    printable => [qw/abv name price notes/],
+    printable => [qw/abv name price notes url/],
     integer => [qw/style brewery score/],
     date =>[ qw/date/],
 );