diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-05-30 14:59:14 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2017-05-30 14:59:14 -0700 |
| commit | 38539c1c58d0907beee56c4d16f39bdebc6b03ad (patch) | |
| tree | c682585cd22da058355c9bb53d2ad5029b80d570 | |
| parent | 43ae6a5c70c3efdf51cebb259e1c37c3111ff0c0 (diff) | |
check AU postal codes, RT#75998
| -rw-r--r-- | FS/FS/Record.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index c3d397389..92e0baadf 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -3062,6 +3062,13 @@ sub ut_zip { $self->getfield($field); $self->setfield($field, "$1 $2"); + } elsif ( $country eq 'AU' ) { + + $self->getfield($field) =~ /^\s*(\d{4})\s*$/ + or return gettext('illegal_zip'). " $field for country $country: ". + $self->getfield($field); + $self->setfield($field, $1); + } else { if ( $self->getfield($field) =~ /^\s*$/ |