fixing missing untaint column.

[maypole.git] / ex / BeerDB.pm

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/],
 );