#!/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; }
use FS::Record;
use FS::cust_main_county;
use FS::raddb;
+use FS::part_bill_invoice;
die "Not running uid freeside!" unless checkeuid();
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";
<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>
-<!-- $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 $ -->
<%
for (qw(CARD BILL COMP)) {
print qq!<OPTION VALUE="$_"!;
if ($part_bill_event->payby eq $_) {
- print " SELECTED> $_</OPTION>";
+ print " SELECTED>$_</OPTION>";
} else {
print ">$_</OPTION>";
}
'addpost' => {
'name' => 'Add postal invoicing',
- 'code' => '$cust_main->invoicing_list_addpost(); '';',
+ 'code' => '$cust_main->invoicing_list_addpost(); "";',
'pad' => 20,
},
'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' => {
'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,
},