my %flags = map { $_->columnname, $_->columnflag } (
qsearch ('part_svc_column', { svcpart => $svcpart } )
);
- return grep { not ($flags{$_} eq 'X') } @vfields;
+ return grep { not ( defined($flags{$_}) && $flags{$_} eq 'X') } @vfields;
} else { # Case 3
return @vfields;
}
$self->export('unsuspend');
}
+=item export_links
+
+Runs export_links callbacks and returns the links.
+
+=cut
+
+sub export_links {
+ my $self = shift;
+ my $return = [];
+ $self->export('links', $return);
+ $return;
+}
+
=item export HOOK [ EXPORT_ARGS ]
Runs the provided export hook (i.e. "suspend", "unsuspend") for this service.
}
+=item overlimit
+
+Sets or retrieves overlimit date.
+
+=cut
+
+sub overlimit {
+ my $self = shift;
+ $self->cust_svc->overlimit(@_);
+}
+
=item cancel
Stub - returns false (no error) so derived classes don't need to define this