FS/FS/part_pkg/torrus_bw_usage.pm

   1 package FS::part_pkg::torrus_bw_usage;
   2
   3 use strict;
   4 use base qw( FS::part_pkg::torrus_Common );
   5 use List::Util qw(max);
   6
   7 our %info = (
   8   'name'      => 'Volume billing based on the integrated Torrus NMS',
   9   'shortname' => 'Bandwidth (volume)',
  10   'weight'    => 54.7, #:/
  11   'inherit_fields' => [ 'flat', 'global_Mixin' ],
  12   'fields' => {
  13     #'recur_temporality' => { 'hidden' => 1, 'value' => 'preceding' }, #XXX do
  14     'recur_temporality' => { 'disabled' => 1 },
  15     'sync_bill_date'    => { 'disabled' => 1 },
  16     'cutoff_day'        => { 'disabled' => 1 },
  17     'base_gb'           => { 'name'    => 'Included gigabytes',
  18                              'default' => 0,
  19                            },
  20     'gb_rate'           => { 'name'    => 'Charge per gigabyte',
  21                              'default' => 0,
  22                            },
  23   },
  24   'fieldorder' => [ qw( base_gb gb_rate ) ],
  25   'freq' => 'm',
  26 );
  27
  28 sub _torrus_name  { 'VOLUME'; }
  29 sub _torrus_base  { 'base_gb'; }
  30 sub _torrus_rate  { 'gb_rate'; }
  31 sub _torrus_label { 'gb'; };
  32
  33 1;