diff options
author | ivan <ivan> | 2004-10-26 11:26:35 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-10-26 11:26:35 +0000 |
commit | 6fe8172b11d0369d0b1274d6825ec0c57afe8001 (patch) | |
tree | 0d6c9abe6b7f9a14c40db8c4360849a5aa583077 /FS/FS/part_pkg/flat_delayed.pm | |
parent | 717d562bcfb691d971a01b738d0b55cdda480cf0 (diff) |
modular price plans!
Diffstat (limited to 'FS/FS/part_pkg/flat_delayed.pm')
-rw-r--r-- | FS/FS/part_pkg/flat_delayed.pm | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/FS/FS/part_pkg/flat_delayed.pm b/FS/FS/part_pkg/flat_delayed.pm new file mode 100644 index 000000000..cf4ffef84 --- /dev/null +++ b/FS/FS/part_pkg/flat_delayed.pm @@ -0,0 +1,45 @@ +package FS::part_pkg::flat_delayed; + +use strict; +use vars qw(@ISA %info); +#use FS::Record qw(qsearch qsearchs); +use FS::part_pkg; + +@ISA = qw(FS::part_pkg); + +%info = ( + 'name' => 'Free (or setup fee) for X days, then flat rate'. + ' (anniversary billing)', + 'fields' => { + 'setup_fee' => { 'name' => 'Setup fee for this package', + 'default' => 0, + }, + 'free_days' => { 'name' => 'Initial free days', + 'default' => 0, + }, + 'recur_fee' => { 'name' => 'Recurring fee for this package', + 'default' => 0, + }, + }, + 'fieldorder' => [ 'free_days', 'setup_fee', 'recur_fee' ], + #'setup' => '\'my $d = $cust_pkg->bill || $time; $d += 86400 * \' + what.free_days.value + \'; $cust_pkg->bill($d); $cust_pkg_mod_flag=1; \' + what.setup_fee.value', + #'recur' => 'what.recur_fee.value', + 'weight' => 50, +); + +sub calc_setup { + my($self, $cust_pkg, $time ) = @_; + + my $d = $cust_pkg->bill || $time; + $d += 86400 * $self->option('free_days'); + $cust_pkg->bill($d); + + $self->option('setup_fee'); +} + +sub calc_recur { + my($self, $cust_pkg ) = @_; + $self->option('recur_fee'); +} + +1; |