From: ivan <ivan>
Date: Sun, 13 Oct 2002 00:51:17 +0000 (+0000)
Subject: ut_ip fix from 1.5
X-Git-Tag: freeside_1_4_1beta4~4
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=c2d273fd77c5b07e5a01b5c756a4b8273a16d239;p=freeside.git

ut_ip fix from 1.5
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index e6126a13b..c247ed2db 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -930,7 +930,7 @@ sub ut_ip {
   $self->getfield($field) =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/
     or return "Illegal (IP address) $field: ". $self->getfield($field);
   for ( $1, $2, $3, $4 ) { return "Illegal (IP address) $field" if $_ > 255; }
-  $self->setfield($field, "$1.$2.$3.$3");
+  $self->setfield($field, "$1.$2.$3.$4");
   '';
 }