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 ) = @_; | 
