';
foreach my $package (@packages) {
my $pkgnum = $package->pkgnum;
@@ -399,11 +405,12 @@ foreach my $package (@packages) {
qq!$pkg - $comment ( Details )!;
# | !;
- print qq! ( !.
- 'Change package )';
-
#false laziness with view/cust_pkg.cgi, but i'm trying to make that go away so
unless ( $package->getfield('cancel') ) {
+
+ print qq! ( !.
+ 'Change package )';
+
print ' ( ';
if ( $package->getfield('susp') ) {
print qq!Unsuspend!;
@@ -423,7 +430,11 @@ foreach my $package (@packages) {
}
print '';
- for ( qw( setup bill susp expire cancel ) ) {
+ my @fields = qw( setup );
+ push @fields, qw( last_bill ) if $package->dbdef_table->column('last_bill');
+ push @fields, qw( bill susp expire cancel);
+
+ for ( @fields ) {
print "", ( $package->getfield($_)
? time2str("%D %l:%M:%S%P %z",
$package->getfield($_) )
@@ -470,6 +481,7 @@ print " |
";
#formatting
print "";
+
print <