rt# 74031 implementing svc_realestate

[freeside.git] / FS / FS / part_svc_column.pm

diff --git a/FS/FS/part_svc_column.pm b/FS/FS/part_svc_column.pm
index 75a2dfb..7d6e57c 100644 (file)
--- a/FS/FS/part_svc_column.pm
+++ b/FS/FS/part_svc_column.pm
@@ -97,7 +97,7 @@ sub check {
   ;
   return $error if $error;
 
-  $self->columnflag =~ /^([DFSMAHX]?)$/
+  $self->columnflag =~ /^([DFSMAHXR]?)$/
     or return "illegal columnflag ". $self->columnflag;
   $self->columnflag(uc($1));
 
@@ -133,4 +133,3 @@ schema.html from the base documentation.
 =cut
 
 1;
-