projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add no export option to bulk service changes, RT#13439
[freeside.git]
/
FS
/
FS
/
part_svc.pm
diff --git
a/FS/FS/part_svc.pm
b/FS/FS/part_svc.pm
index
e15b225
..
c4881c7
100644
(file)
--- a/
FS/FS/part_svc.pm
+++ b/
FS/FS/part_svc.pm
@@
-12,7
+12,7
@@
use FS::cust_svc;
@ISA = qw(FS::Record);
@ISA = qw(FS::Record);
-$DEBUG =
0
;
+$DEBUG =
1
;
=head1 NAME
=head1 NAME
@@
-672,7
+672,8
@@
the following keys:
=item def_label - Optional description of the field in the context of service definitions
=item def_label - Optional description of the field in the context of service definitions
-=item type - Currently "text", "select", "disabled", or "radius_usergroup_selector"
+=item type - Currently "text", "select", "checkbox", "textarea", "disabled",
+some components specified by "select-.*.html", and a bunch more...
=item disable_default - This field should not allow a default value in service definitions
=item disable_default - This field should not allow a default value in service definitions
@@
-815,6
+816,9
@@
sub process_bulk_cust_svc {
my $param = thaw(decode_base64(shift));
warn Dumper($param) if $DEBUG;
my $param = thaw(decode_base64(shift));
warn Dumper($param) if $DEBUG;
+ local($FS::svc_Common::noexport_hack) = 1
+ if $param->{'noexport'};
+
my $old_part_svc =
qsearchs('part_svc', { 'svcpart' => $param->{'old_svcpart'} } );
my $old_part_svc =
qsearchs('part_svc', { 'svcpart' => $param->{'old_svcpart'} } );