X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FSetup.pm;h=fff8256b465094328f71fd3939685c138e76c17a;hb=6af1b1bfa25e5ececef5e0dcd38b55917121cee2;hp=c53fe65b4531545d1f93a1f1cb8ac4aea6508aca;hpb=e5742a8ccfca16427631a45fc8895d6fc1a493dd;p=freeside.git

diff --git a/FS/FS/Setup.pm b/FS/FS/Setup.pm
index c53fe65b4..fff8256b4 100644
--- a/FS/FS/Setup.pm
+++ b/FS/FS/Setup.pm
@@ -143,7 +143,7 @@ sub initial_data {
       { 'payby'     => 'CARD',
         'event'     => 'Batch card',
         'seconds'   => 0,
-        'eventcode' => '$cust_bill->batch_card();',
+        'eventcode' => '$cust_bill->batch_card(%options);',
         'weight'    => 40,
         'plan'      => 'batch-card',
       },
@@ -168,6 +168,20 @@ sub initial_data {
         'weight'    => 50,
         'plan'      => 'send',
       },
+      { 'payby'     => 'DCLN',
+        'event'     => 'Suspend',
+        'seconds'   => 0,
+        'eventcode' => '$cust_bill->suspend();',
+        'weight'    => 40,
+        'plan'      => 'suspend',
+      },
+      { 'payby'     => 'DCLN',
+        'event'     => 'Retriable',
+        'seconds'   => 0,
+        'eventcode' => '$cust_bill_event->retriable();',
+        'weight'    => 60,
+        'plan'      => 'retriable',
+      },
     ],
     
     #you must create a service definition. An example of a service definition
@@ -306,7 +320,7 @@ sub populate_access {
 
   #foreach my $agent ( qsearch('agent', {} ) ) {
     my $access_groupagent = new FS::access_groupagent {
-      'groupnum' => $supergroup->groupnum,
+      'groupnum' => 1, #$supergroup->groupnum,
       'agentnum' => 1, #$agent->agentnum,
     };
     my $aga_error = $access_groupagent->insert;