From 79f83ad93cc6f77a155528661a4681946fdd17a6 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 4 Feb 2002 17:04:33 +0000
Subject: [PATCH] have fs-setup create the necessary "default" billing events
 documentation on necessary "default" billing events

---
 bin/fs-setup                        | 25 ++++++++++++++++++++++++-
 httemplate/docs/upgrade8.html       |  1 +
 httemplate/edit/part_bill_event.cgi | 10 +++++-----
 3 files changed, 30 insertions(+), 6 deletions(-)

diff --git a/bin/fs-setup b/bin/fs-setup
index 7e043d238..912fc98fc 100755
--- a/bin/fs-setup
+++ b/bin/fs-setup
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: fs-setup,v 1.73 2002-01-29 17:42:46 ivan Exp $
+# $Id: fs-setup,v 1.74 2002-02-04 17:04:33 ivan Exp $
 
 #to delay loading dbdef until we're ready
 BEGIN { $FS::Record::setup_hack = 1; }
@@ -16,6 +16,7 @@ use FS::UID qw(adminsuidsetup datasrc checkeuid getsecrets);
 use FS::Record;
 use FS::cust_main_county;
 use FS::raddb;
+use FS::part_bill_invoice;
 
 die "Not running uid freeside!" unless checkeuid();
 
@@ -234,6 +235,28 @@ YE YU ZR ZM ZW
   die $error if $error;
 }
 
+#billing events
+foreach my $aref ( 
+  [ 'COMP', 'Comp invoice', '$cust_bill->comp();', 30, 'comp' ],
+  [ 'CARD', 'Batch card', '$cust_bill->batch_card();', 40, 'batch-card' ],
+  [ 'BILL', 'Send invoice', '$cust_bill->send();', 50, 'send' ],
+) {
+
+  my $part_bill_event = new FS::part_bill_event({
+    'payby' => $aref->[0],
+    'event' => $aref->[1],
+    'eventcode' => $aref->[2],
+    'seconds' => 0,
+    'weight' => $aref->[3],
+    'plan' => $aref->[4],
+  });
+  my($error);
+  $error=$part_bill_event->insert;
+  die $error if $error;
+
+}
+
+
 $dbh->disconnect or die $dbh->errstr;
 
 print "Freeside database initialized sucessfully\n";
diff --git a/httemplate/docs/upgrade8.html b/httemplate/docs/upgrade8.html
index 360fba691..f0b16222c 100644
--- a/httemplate/docs/upgrade8.html
+++ b/httemplate/docs/upgrade8.html
@@ -298,5 +298,6 @@ ALTER TABLE cust_refund DROP COLUMN crednum;
   <li>Create the `/usr/local/etc/freeside/cache.<i>datasrc</i>' directory
       (ownded by the freeside user).
   <li>freeside-queued was installed with the Perl modules.  Start it now and ensure that is run upon system startup.
+  <li>Set appropriate <a href="../browse/part_bill_event.cgi">invoice events</a> for your site.  At the very least, you'll want to set some invoice events "<i>After 0 days</i>": a <i>BILL</i> invoice event to print invoices, a <i>CARD</i> invoice event to batch or run cards real-time, and a <i>COMP</i> invoice event to "pay" complimentary customers.
 </ul>
 </body>
diff --git a/httemplate/edit/part_bill_event.cgi b/httemplate/edit/part_bill_event.cgi
index 70e953ca0..580e46734 100755
--- a/httemplate/edit/part_bill_event.cgi
+++ b/httemplate/edit/part_bill_event.cgi
@@ -1,4 +1,4 @@
-<!-- $Id: part_bill_event.cgi,v 1.4 2002-02-04 16:44:47 ivan Exp $ -->
+<!-- $Id: part_bill_event.cgi,v 1.5 2002-02-04 17:04:33 ivan Exp $ -->
 
 <%
 
@@ -45,7 +45,7 @@ END
 for (qw(CARD BILL COMP)) {
   print qq!<OPTION VALUE="$_"!;
   if ($part_bill_event->payby eq $_) {
-    print " SELECTED> $_</OPTION>";
+    print " SELECTED>$_</OPTION>";
   } else {
     print ">$_</OPTION>";
   }
@@ -93,7 +93,7 @@ tie my %events, 'Tie::IxHash',
 
   'addpost' => {
     'name' => 'Add postal invoicing',
-    'code' => '$cust_main->invoicing_list_addpost(); '';',
+    'code' => '$cust_main->invoicing_list_addpost(); "";',
     'pad'  => 20,
   },
 
@@ -112,7 +112,7 @@ tie my %events, 'Tie::IxHash',
   'realtime-card-cybercash' => {
     'name' => '(<b>deprecated</b>) Run card with <a href="http://www.cybercash.com/cashregister">CyberCash CashRegister</a> realtime gateway',
     'code' => '$cust_bill->realtime_card_cybercash();',
-    'weight => 30,
+    'weight' => 30,
   },
 
   'batch-card' => {
@@ -135,7 +135,7 @@ tie my %events, 'Tie::IxHash',
 
   'apply' => {
     'name' => 'Apply unapplied payments and credits',
-    'code' => '$cust_main->apply_payments; $cust_main->apply_credits; '';',
+    'code' => '$cust_main->apply_payments; $cust_main->apply_credits; "";',
     'weight'  => 70,
   },
 
-- 
2.11.0