@ISA = qw(FS::part_pkg::flat);
%info = (
+ 'disabled' => 1, #internal session db deprecated (or at least on hold)
'name' => 'Base charge plus charge per-minute from the session monitor',
'shortname' => 'Session monitor (per-minute)',
'inherit_fields' => [ 'global_Mixin' ],
'weight' => 80,
);
+sub price_info {
+ my $self = shift;
+ my $str = $self->SUPER::price_info;
+ $str .= " plus usage" if $str;
+ $str;
+}
sub calc_recur {
my( $self, $cust_pkg ) = @);