From aff324b078531b8ab82e692a2c182d8f1ae0c932 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 11 Aug 2001 05:50:52 +0000 Subject: [PATCH] allow newlines in ut_anything fields fix example for ut_anything --- FS/FS/Record.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 34d79066c..6409da33d 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -73,7 +73,7 @@ FS::Record - Database record objects $value = $record->ut_alpha('column'); $value = $record->ut_alphan('column'); $value = $record->ut_phonen('column'); - $value = $record->ut_anythingn('column'); + $value = $record->ut_anything('column'); $value = $record->ut_name('column'); $dbdef = reload_dbdef; @@ -829,7 +829,7 @@ Untaints arbitrary data. Be careful. sub ut_anything { my($self,$field)=@_; - $self->getfield($field) =~ /^(.*)$/ + $self->getfield($field) =~ /^(.*)$/s or return "Illegal $field: ". $self->getfield($field); $self->setfield($field,$1); ''; @@ -949,7 +949,7 @@ sub DESTROY { return; } =head1 VERSION -$Id: Record.pm,v 1.20 2001-08-08 04:44:41 ivan Exp $ +$Id: Record.pm,v 1.21 2001-08-11 05:50:52 ivan Exp $ =head1 BUGS -- 2.11.0