diff options
author | Christopher Burger <burgerc@freeside.biz> | 2018-03-27 09:20:05 -0400 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2018-03-27 09:20:05 -0400 |
commit | ec34b8903d969fe8ac4ff6947a92e16e07f71fa0 (patch) | |
tree | 39879af88d853b93b5af5ba6d6d40868b4335b91 /FS/FS/part_svc.pm | |
parent | c38b6699d83ba0d7e3fd582373b9c8e78c9217d2 (diff) |
RT# 78356 - added ability to create and modify rateplans and access point when changed on freeside. cleanded up documentation.
Diffstat (limited to 'FS/FS/part_svc.pm')
-rw-r--r-- | FS/FS/part_svc.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index dcc78435b..341559594 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -519,6 +519,18 @@ sub part_export_dsl_pull { grep $_->can('dsl_pull'), $self->part_export; } +=item part_export_partsvc + +Returns a list of any exports (see L<FS::part_export>) for this service that +are capable of pushing a change after part svc is changed. + +=cut + +sub part_export_partsvc { + my $self = shift; + grep $_->can('export_partsvc'), $self->part_export; +} + =item cust_svc [ PKGPART ] Returns a list of associated customer services (FS::cust_svc records). @@ -909,6 +921,11 @@ sub process { ); die "$error\n" if $error; + + foreach my $part_svc_export ( $new->part_export_partsvc ) { + $error = $part_svc_export->export_partsvc($new); + } + return $error if $error; } =item process_bulk_cust_svc |