diff options
author | ivan <ivan> | 2007-01-23 06:51:54 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-01-23 06:51:54 +0000 |
commit | ef784d82deb3713d9fec132f9c9cc1ea5596da4f (patch) | |
tree | 208410e5c68f326da9bdc024c7870939163460ab /FS | |
parent | 2c1b370875deb97e56023ba64958c44215ca8902 (diff) |
remove spurious duplicateion from lineitem patch
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/Record.pm | 18 |
1 files changed, 0 insertions, 18 deletions
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 ) = @_; |