X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fflat.pm;h=f4031ec797f4c7f0b6085e6225df2a01ad7d3b2d;hb=2a863bbb144830dfb8fca4afb3af76a84a647c76;hp=59b62574697b7c1930aede11d856c6bc996edf08;hpb=cd936cc9dcf297ff3cf8630516078dcb391f510c;p=freeside.git diff --git a/FS/FS/part_pkg/flat.pm b/FS/FS/part_pkg/flat.pm index 59b625746..f4031ec79 100644 --- a/FS/FS/part_pkg/flat.pm +++ b/FS/FS/part_pkg/flat.pm @@ -20,21 +20,60 @@ use FS::part_pkg; ' of service at cancellation', 'type' => 'checkbox', }, + 'externalid' => { 'name' => 'Optional External ID', + 'default' => '', + }, + 'seconds' => { 'name' => 'Time limit for this package', + 'default' => '', + }, + 'upbytes' => { 'name' => 'Upload limit for this package', + 'default' => '', + }, + 'downbytes' => { 'name' => 'Download limit for this package', + 'default' => '', + }, + 'totalbytes' => { 'name' => 'Transfer limit for this package', + 'default' => '', + }, + 'recharge_amount' => { 'name' => 'Cost of recharge for this package', + 'default' => '', + }, + 'recharge_seconds' => { 'name' => 'Recharge time for this package', + 'default' => '', + }, + 'recharge_upbytes' => { 'name' => 'Recharge upload for this package', + 'default' => '', + }, + 'recharge_downbytes' => { 'name' => 'Recharge download for this package', + 'default' => '', + }, + 'recharge_totalbytes' => { 'name' => 'Recharge transfer for this package', + 'default' => '', + }, }, - 'fieldorder' => [ 'setup_fee', 'recur_fee', 'unused_credit' ], - #'setup' => 'what.setup_fee.value', - #'recur' => 'what.recur_fee.value', + 'fieldorder' => [ 'setup_fee', 'recur_fee', 'unused_credit', + 'seconds', 'upbytes', 'downbytes', 'totalbytes', + 'recharge_amount', 'recharge_seconds', 'recharge_upbytes', + 'recharge_downbytes', 'recharge_totalbytes', + 'externalid' ], 'weight' => 10, ); sub calc_setup { - my($self, $cust_pkg ) = @_; + my($self, $cust_pkg, $sdate, $details ) = @_; + + my ( $i, $count ) = ( 0, $self->option( 'additional_count' ) ); + while ($i < $count) { + push @$details, $self->option( 'additional_info' . $i++ ); + } + $self->option('setup_fee'); } sub calc_recur { - my $self = shift; - $self->base_recur(@_); + my($self, $cust_pkg) = @_; + $self->reset_usage($cust_pkg); + $self->base_recur($cust_pkg); } sub base_recur { @@ -77,4 +116,12 @@ sub is_prepaid { 0; #no, we're postpaid } +sub reset_usage { + my($self, $cust_pkg) = @_; + my %values = map { $_, $self->option($_) } + grep { $self->option($_) } + qw(seconds upbytes downbytes totalbytes); + $cust_pkg->set_usage(\%values); +} + 1;