my $align = 'rll';
-if ( $class eq 'S' ) {
- push @header,
- 'Credit unused service',
- 'Suspension fee',
- ;
+if ( $class eq 'S' or $class eq 'C' ) {
+ push @header, 'Credit unused service';
push @fields,
sub {
my $reason = shift;
} else {
return '<SPAN STYLE="background-color:#ff0000">NO</SPAN>';
}
- },
+ };
+ $align .= 'c';
+}
+if ( $class eq 'S' ) {
+ push @header, 'Suspension fee';
+ push @fields,
sub {
my $reason = shift;
my $feepart = $reason->feepart;
$text .= '</FONT>';
}
;
- $align .= 'cl';
+ $align .= 'l';
}
# reason merge handling