more sane regex
authorivan <ivan>
Thu, 9 Jun 2005 06:22:24 +0000 (06:22 +0000)
committerivan <ivan>
Thu, 9 Jun 2005 06:22:24 +0000 (06:22 +0000)
FS/FS/cust_bill.pm

index 0171f45..2a7d506 100644 (file)
@@ -1017,9 +1017,9 @@ sub _agent_plandata {
       'plan'      => 'send_agent',
       'plandata'  => { 'op'    => '~',
                        'value' => "(^|\n)agentnum ".
-                                   '\[?[0-9 ,]*'.
-                                  '[ ,]'. $self->cust_main->agentnum. '[ ,]'.
-                                  '[0-9 ,]*\]?'.
+                                   '([0-9]*, )*'.
+                                  $self->cust_main->agentnum.
+                                   '(, [0-9]*)*'.
                                   "(\n|\$)",
                      },
     },