From 3f7c99e168a1d75b133c1e2b25db7b170374d695 Mon Sep 17 00:00:00 2001 From: Aaron Trevena Date: Fri, 15 Jul 2005 18:20:51 +0000 Subject: [PATCH] fixed BeerDB.pm, now untaints pubs git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@361 48953598-375a-da11-a14b-00016c27c3ee --- ex/BeerDB.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm index 53197cc..778185a 100644 --- a/ex/BeerDB.pm +++ b/ex/BeerDB.pm @@ -43,6 +43,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", -- 2.39.5