-<!-- $Id: part_bill_event.cgi,v 1.4 2002-02-04 16:44:47 ivan Exp $ -->
-
+<!-- mason kludge -->
<%
if ( $cgi->param('eventpart') && $cgi->param('eventpart') =~ /^(\d+)$/ ) {
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(); '';',
- 'pad' => 20,
+ 'code' => '$cust_main->invoicing_list_addpost(); "";',
+ 'weight' => 20,
},
'comp' => {
'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,
},