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 c2e25fa8ac89929622b177560e5724b2b02778b9..3ff11650be06e050a22afb761c216d2b7a430c86 100644 (file)
--- 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/],
 );