From: ivan <ivan>
Date: Wed, 26 Nov 2003 17:46:43 +0000 (+0000)
Subject: backport fix from 1.5 allowing blank slipips
X-Git-Tag: freeside_1_4_2beta1~363
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=739160399748fd05ba01382f057c9086f58c0f1a;p=freeside.git

backport fix from 1.5 allowing blank slipips
---

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';
     }
 
   }