X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_svc_column.pm;h=e055af35ab88586049292ef7bdc2250efd86d49c;hb=368ed08e24400e9d1faf401a1e4e23ea54d2c969;hp=75a2dfb1a1dc2aa77b9beae28b77ec094f0ee865;hpb=ad3bcb39580173f0ac1b6357cb49515d48af7ddf;p=freeside.git

diff --git a/FS/FS/part_svc_column.pm b/FS/FS/part_svc_column.pm
index 75a2dfb1a..e055af35a 100644
--- 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 =~ /^([DFSMAHXP]?)$/
     or return "illegal columnflag ". $self->columnflag;
   $self->columnflag(uc($1));