From 0da1c2b1d5dbe10b304d131f6807b18a237b5d45 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 20 Apr 2002 10:09:42 +0000
Subject: [PATCH] allow uppercase zones...

---
 FS/FS/domain_record.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FS/FS/domain_record.pm b/FS/FS/domain_record.pm
index 0f634bff3..9f0035689 100644
--- a/FS/FS/domain_record.pm
+++ b/FS/FS/domain_record.pm
@@ -107,7 +107,7 @@ sub check {
   return "Unknown svcnum (in svc_domain)"
     unless qsearchs('svc_domain', { 'svcnum' => $self->svcnum } );
 
-  $self->reczone =~ /^(@|[a-z0-9\.\-]+)$/
+  $self->reczone =~ /^(@|[a-zA-Z0-9\.\-]+)$/
     or return "Illegal reczone: ". $self->reczone;
   $self->reczone($1);
 
@@ -156,7 +156,7 @@ sub check {
 
 =head1 VERSION
 
-$Id: domain_record.pm,v 1.3 2001-08-21 02:44:47 ivan Exp $
+$Id: domain_record.pm,v 1.4 2002-04-20 10:09:42 ivan Exp $
 
 =head1 BUGS
 
-- 
2.11.0