diff options
| author | ivan <ivan> | 2001-10-15 10:42:29 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-10-15 10:42:29 +0000 |
| commit | a6d3e4dc73803cffad96fd4b6270b2fb5f4b0568 (patch) | |
| tree | ade2d125ae65a21bf314d6cad84ee2cd4d767218 /FS/FS/part_pkg.pm | |
| parent | 87b5424ee8f16f824865cd7dbf1efde8da3bd429 (diff) | |
price plans web gui 1st pass, oh my
Diffstat (limited to 'FS/FS/part_pkg.pm')
| -rw-r--r-- | FS/FS/part_pkg.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index d262a04..d84b9c5 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -46,11 +46,15 @@ inherits from FS::Record. The following fields are currently supported: =item comment - Text name of this billing item definition (non-customer-viewable) -=item setup - Setup fee +=item setup - Setup fee expression =item freq - Frequency of recurring fee -=item recur - Recurring fee +=item recur - Recurring fee expression + +=item plan - Price plan + +=item plandata - Price plan data =back @@ -128,6 +132,8 @@ sub check { || $self->ut_anything('setup') || $self->ut_number('freq') || $self->ut_anything('recur') + || $self->ut_alphan('plan') + || $self->ut_anything('plandata') ; } @@ -166,7 +172,7 @@ sub svcpart { =head1 VERSION -$Id: part_pkg.pm,v 1.2 1999-08-20 08:27:06 ivan Exp $ +$Id: part_pkg.pm,v 1.3 2001-10-15 10:42:28 ivan Exp $ =head1 BUGS |