-<% include('/elements/header.html', $title ) %>
+<& /elements/header.html, mt($title, @title_arg) &>
<FORM ACTION="cust_pkg.cgi" METHOD="GET">
<INPUT TYPE="hidden" NAME="magic" VALUE="bill">
if ( what.options[what.selectedIndex].value == '<% $status %>' ) {
-% foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) {
+% foreach my $field (@date_fields) {
% if ( $disable{$status}->{$field} ) {
what.form.<% $field %>_beginning_text.disabled = true;
%>
% }
-
-% foreach my $field (qw( setup last_bill bill adjourn susp expire contract_end cancel )) {
-
- <TR>
- <TD ALIGN="right" VALIGN="center"><% $label{$field} %></TD>
- <TD>
- <TABLE>
- <% include( '/elements/tr-input-beginning_ending.html',
- prefix => $field,
- layout => 'horiz',
- )
- %>
- </TABLE>
- </TD>
- </TR>
-
-% }
+ <TR>
+ <TD COLSPAN=2>
+ <TABLE>
+ <TR>
+ <TD></TD>
+ <TD>From date <i>(m/d/y)</i></TD>
+ <TD>To date <i>(m/d/y)</i></TD>
+ </TR>
+% my $noinit = 0;
+% foreach my $field (@date_fields) {
+
+ <TR>
+ <TD ALIGN="right" VALIGN="center"><% $label{$field} %></TD>
+% foreach (qw(beginning ending)) {
+ <TD>
+ <& /elements/input-date-field.html, {
+ 'name' => $field.'_'.$_,
+ 'value' => '',
+ 'noinit' => $noinit,
+ 'format' => '%m/%d/%Y',
+ } &>
+ </TD>
+% $noinit = 1;
+% }
+ </TR>
+% } #foreach $field
+ </TABLE>
+ </TD>
+ </TR>
<SCRIPT TYPE="text/javascript">
unless $FS::CurrentUser::CurrentUser->access_right('List packages');
my $title = 'Package Report';
+#false laziness w/report_cust_bill.html
+my @title_arg = ();
my $custnum = '';
if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
'hashref' => { 'custnum' => $custnum },
'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
}) or die "unknown custnum $custnum";
- $title .= ': '. $cust_main->name;
+ $title .= ': [_1]';
+ push @title_arg, $cust_main->name;
}
</%init>
<%once>
-my %label = (
- 'setup' => 'Setup',
- 'last_bill' => 'Last bill',
- 'bill' => 'Next bill',
- 'adjourn' => 'Adjourns',
- 'susp' => 'Suspended',
- 'expire' => 'Expires',
+tie my %label, 'Tie::IxHash',
+ 'setup' => 'Setup',
+ 'last_bill' => 'Last bill',
+ 'bill' => 'Next bill',
+ 'adjourn' => 'Adjourns',
+ 'susp' => 'Suspended',
+ 'dundate' => 'Suspension delayed until',
+ 'expire' => 'Expires',
'contract_end' => 'Contract ends',
- 'cancel' => 'Cancelled',
-);
+ 'change_date' => 'Changed from other package',
+ 'cancel' => 'Cancelled',
+;
+my @date_fields = keys %label;
#false laziness w/cust_pkg.cgi
my %disable = (
'all' => {},
'not yet billed' => { 'setup'=>1, 'last_bill'=>1, 'bill'=>1, 'adjourn'=>1, 'susp'=>1, 'expire'=>1, 'cancel'=>1, },
- 'one-time charge' => { 'last_bill'=>1, 'bill'=>1, 'adjourn'=>1, 'susp'=>1, 'expire'=>1, 'cancel'=>1, },
+ 'one-time charge' => { 'last_bill'=>1, 'bill'=>1, 'adjourn'=>1, 'susp'=>1, 'expire'=>1, 'cancel'=>1, 'contract_end'=>1, 'dundate'=>1, },
'active' => { 'susp'=>1, 'cancel'=>1 },
- 'suspended' => { 'cancel' => 1 },
+ 'suspended' => { 'cancel'=>1, 'dundate'=>1, },
'cancelled' => {},
'' => {},
);
'last_bill' => 0,
'bill' => 0,
'susp' => 1,
+ 'dundate' => 1,
'expire' => 1,
'cancel' => 1,
);