1 <!-- $Id: part_bill_event.cgi,v 1.2 2002-01-30 14:18:08 ivan Exp $ -->
5 if ( $cgi->param('eventnum') && $cgi->param('eventnum') =~ /^(\d+)$/ ) {
6 $cgi->param('eventnum', $1);
8 $cgi->param('eventnum', '');
11 my ($query) = $cgi->keywords;
13 my $part_bill_event = '';
14 if ( $cgi->param('error') ) {
15 $part_bill_event = new FS::part_bill_event ( {
16 map { $_, scalar($cgi->param($_)) } fields('part_bill_event')
19 if ( $query && $query =~ /^(\d+)$/ ) {
20 $part_bill_event ||= qsearchs('part_bill_event',{'eventpart'=>$1});
22 $part_bill_event ||= new FS::part_bill_event {};
24 $action ||= $part_bill_event->pkgpart ? 'Edit' : 'Add';
25 my $hashref = $part_bill_event->hashref;
27 print header("$action Invoice Event Definition", menubar(
28 'Main Menu' => popurl(2),
29 'View all invoice events' => popurl(2). 'browse/part_bill_event.cgi',
32 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
34 if $cgi->param('error');
36 print '<FORM ACTION="', popurl(1), 'process/part_bill_event.cgi" METHOD=POST>';
38 print "Invoice Event #", $hashref->{eventpart} ? $hashref->{eventpart} : "(NEW)";
40 print ntable("#cccccc",2), <<END;
41 <TR><TD ALIGN="right">Payby</TD><TD><SELECT NAME="payby">
44 for (qw(CARD BILL COMP)) {
45 print qq!<OPTION VALUE="$_"!;
46 if ($part_bill_event->payby eq $_) {
47 print " SELECTED> $_</OPTION>";
53 my $days = $hashref->{seconds}/3600;
57 <TR><TD ALIGN="right">Event</TD><TD><INPUT TYPE="text" NAME="event" VALUE="$hashref->{event}"></TD></TR>
58 <TR><TD ALIGN="right">After</TD><TD><INPUT TYPE="text" NAME="days" VALUE="$days"> days</TD></TR>
61 print '<TR><TD ALIGN="right">Disabled</TD><TD>';
62 print '<INPUT TYPE="checkbox" NAME="disabled" VALUE="Y"';
63 print ' CHECKED' if $hashref->{disabled} eq "Y";
67 print '<TR><TD ALIGN="right">Action</TD><TD>';
71 #this is pretty kludgy right here.
72 tie my %events, 'Tie::IxHash',
76 'code' => '$cust_main->charge( %%%charge%%%, \'%%%reason%%%\' );',
77 'html' => 'Amount <INPUT TYPE="text" SIZE="7" NAME="charge"><BR>'.
78 'Reason <INPUT TYPE="text" NAME="reason">',
83 'code' => '$cust_main->suspend();',
88 'code' => '$cust_main->cancel();',
93 'name' => 'Add postal invoicing',
94 'code' => '$cust_main->invoicing_list_addpost();',
99 'name' => 'Send invoice (email/print)',
104 'Generate invoices' => {
105 'code' => '$cust_main->bill();',
109 'Apply unapplied payments and credits' => {
110 'code' => '$cust_main->apply_payments; $cust_main->apply_credits;',
114 'Collect on invoices' => {
115 'code' => '$cust_main->collect();',
121 foreach my $event ( keys %events ) {
122 print ntable( "#cccccc", 2).
123 qq!<TR><TD><INPUT TYPE="radio" NAME="eventcode" VALUE="!.
124 $events{$event}{weight}. ":".
125 encode_entities($events{$event}{code}). qq!">$event</TD>!;
126 print '<TD>'. $events{$event}{html}. '</TD>' if exists $events{$event}{html};
138 print qq!<INPUT TYPE="submit" VALUE="!,
139 $hashref->{eventpart} ? "Apply changes" : "Add invoice event",