From 3ebefed2a6439b87e84cafbb32fbbc72f12a4b55 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 30 May 2017 14:59:17 -0700
Subject: [PATCH] check AU postal codes, RT#75998

---
 FS/FS/Record.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 7e9a2e090..c98de0a94 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -2871,6 +2871,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*$/
-- 
2.11.0