From: ivan Date: Tue, 23 Jan 2007 06:51:54 +0000 (+0000) Subject: remove spurious duplicateion from lineitem patch X-Git-Tag: TRIXBOX_2_6~730 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=ef784d82deb3713d9fec132f9c9cc1ea5596da4f remove spurious duplicateion from lineitem patch --- diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 08811a2d4..34b556eea 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -1297,24 +1297,6 @@ null. If there is an error, returns the error, otherwise returns false. =cut -sub ut_floatn { - my($self,$field)=@_ ; - ($self->getfield($field) =~ /^(\d*)$/ || - $self->getfield($field) =~ /^(-?\d+\.\d+)$/ || - $self->getfield($field) =~ /^(-?\d+)$/ || - $self->getfield($field) =~ /^(-?\d+\.\d+e\d+)$/ || - $self->getfield($field) =~ /^(-?\d+e\d+)$/) - or return "Illegal or empty (float) $field: ". $self->getfield($field); - $self->setfield($field,$1); - ''; -} -=item ut_floatn COLUMN - -Check/untaint floating point numeric data: 1.1, 1, 1.1e10, 1e10. May be -null. If there is an error, returns the error, otherwise returns false. - -=cut - #false laziness w/ut_ipn sub ut_floatn { my( $self, $field ) = @_;