summaryrefslogtreecommitdiff
path: root/FS
diff options
context:
space:
mode:
authorivan <ivan>2007-01-23 06:51:54 +0000
committerivan <ivan>2007-01-23 06:51:54 +0000
commitef784d82deb3713d9fec132f9c9cc1ea5596da4f (patch)
tree208410e5c68f326da9bdc024c7870939163460ab /FS
parent2c1b370875deb97e56023ba64958c44215ca8902 (diff)
remove spurious duplicateion from lineitem patch
Diffstat (limited to 'FS')
-rw-r--r--FS/FS/Record.pm18
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 ) = @_;