From 739160399748fd05ba01382f057c9086f58c0f1a Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 26 Nov 2003 17:46:43 +0000 Subject: [PATCH] backport fix from 1.5 allowing blank slipips --- FS/FS/svc_acct.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index e0fe7ea2c..20ad1a623 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -803,12 +803,14 @@ sub check { $recref->{quota} = $1; unless ( $part_svc->part_svc_column('slipip')->columnflag eq 'F' ) { - unless ( $recref->{slipip} eq '0e0' ) { + if ( $recref->{slipip} eq '' ) { + $recref->{slipip} = ''; + } elsif ( $recref->{slipip} eq '0e0' ) { + $recref->{slipip} = '0e0'; + } else { $recref->{slipip} =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/ or return "Illegal slipip". $self->slipip; $recref->{slipip} = $1; - } else { - $recref->{slipip} = '0e0'; } } -- 2.20.1