diff options
| author | ivan <ivan> | 2002-04-25 09:47:25 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-04-25 09:47:25 +0000 |
| commit | a351f58cf394121aa1f72139356567c4785bf47f (patch) | |
| tree | 723a1b31f4e8fe15a8b1e1d3b71a0c600b7a34a1 /FS | |
| parent | b5124265c3f3781d0f961b836cbf674fde12ce54 (diff) | |
add flat_delayed plan
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/part_pkg.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index e8cc67713..0cb766eef 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -59,6 +59,8 @@ inherits from FS::Record. The following fields are currently supported: =item recurtax - Recurring fee tax exempt flag, empty or `Y' +=item taxclass - Texas tax class flag, empty or "none", "access", or "hosting" + =item plan - Price plan =item plandata - Price plan data @@ -196,6 +198,8 @@ sub check { $r =~ /^\s*\d*\.?\d*\s*$/ + or $r =~ /^\$sdate += 86400 \* \s*\d+\s*; \s*\d*\.?\d*\s*$/ + or $r =~ /^my \$mnow = \$sdate; my \(\$sec,\$min,\$hour,\$mday,\$mon,\$year\) = \(localtime\(\$sdate\) \)\[0,1,2,3,4,5\]; my \$mstart = timelocal\(0,0,0,1,\$mon,\$year\); my \$mend = timelocal\(0,0,0,1, \$mon == 11 \? 0 : \$mon\+1, \$year\+\(\$mon==11\)\); \$sdate = \$mstart; \( \$part_pkg->freq \- 1 \) \* \d*\.?\d* \/ \$part_pkg\-\>freq \+ \d*\.?\d* \/ \$part_pkg\-\>freq \* \(\$mend\-\$mnow\) \/ \(\$mend\-\$mstart\) ;\s*$/ or $r =~ /^my \$mnow = \$sdate; my \(\$sec,\$min,\$hour,\$mday,\$mon,\$year\) = \(localtime\(\$sdate\) \)\[0,1,2,3,4,5\]; \$sdate = timelocal\(0,0,0,1,\$mon,\$year\); \s*\d*\.?\d*\s*;\s*$/ @@ -227,6 +231,7 @@ sub check { || $self->ut_anything('plandata') || $self->ut_enum('setuptax', [ '', 'Y' ] ) || $self->ut_enum('recurtax', [ '', 'Y' ] ) + || $self->ut_enum('texastax', [ '', 'none', 'access', 'hosting' ] ) || $self->ut_enum('disabled', [ '', 'Y' ] ) ; } @@ -288,7 +293,7 @@ sub payby { =head1 VERSION -$Id: part_pkg.pm,v 1.10 2002-04-19 01:16:39 ivan Exp $ +$Id: part_pkg.pm,v 1.11 2002-04-25 09:47:25 ivan Exp $ =head1 BUGS |