projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add `unsuspendauto' config file: enable the automatic unsuspension of suspended
[freeside.git]
/
FS
/
FS
/
cust_pkg.pm
diff --git
a/FS/FS/cust_pkg.pm
b/FS/FS/cust_pkg.pm
index
d2d7419
..
1bcf74f
100644
(file)
--- a/
FS/FS/cust_pkg.pm
+++ b/
FS/FS/cust_pkg.pm
@@
-77,6
+77,9
@@
inherits from FS::Record. The following fields are currently supported:
=item otaker - order taker (assigned automatically if null, see L<FS::UID>)
=item otaker - order taker (assigned automatically if null, see L<FS::UID>)
+=item manual_flag - If this field is set to 1, disables the automatic
+unsuspensiond of this package when using the B<unsuspendauto> config file.
+
=back
Note: setup, bill, susp, expire and cancel are specified as UNIX timestamps;
=back
Note: setup, bill, susp, expire and cancel are specified as UNIX timestamps;
@@
-197,6
+200,11
@@
sub check {
$self->otaker =~ /^(\w{0,16})$/ or return "Illegal otaker";
$self->otaker($1);
$self->otaker =~ /^(\w{0,16})$/ or return "Illegal otaker";
$self->otaker($1);
+ if ( $self->dbdef_table->column('manual_flag') ) {
+ $self->manual_flag =~ /^([01]?)$/ or return "Illegal manual_flag";
+ $self->manual_flag($1);
+ }
+
''; #no error
}
''; #no error
}
@@
-568,7
+576,7
@@
sub order {
=head1 VERSION
=head1 VERSION
-$Id: cust_pkg.pm,v 1.
8 2001-10-09 03:11:50
ivan Exp $
+$Id: cust_pkg.pm,v 1.
9 2001-10-09 23:10:16
ivan Exp $
=head1 BUGS
=head1 BUGS