X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fprizm.pm;h=02e89c6d3bd63981f6ec08548b2304dc4c359da7;hb=7f5e32275a5a2674fd1d220cd651b222b9831476;hp=b697992c697d1629fb090dd2e864241ed50cee0b;hpb=0a641ef9baf404965543233222d84cc82a0a02e7;p=freeside.git
diff --git a/FS/FS/part_export/prizm.pm b/FS/FS/part_export/prizm.pm
index b697992c6..02e89c6d3 100644
--- a/FS/FS/part_export/prizm.pm
+++ b/FS/FS/part_export/prizm.pm
@@ -206,6 +206,29 @@ sub _export_insert {
# }
# }
+# here we cope with a problem of prizm failing to insert for reason
+# of duplicate mac addr, but doing so inconsistently... a race in prizm?
+
+ $self->prizm_command( 'CustomerIfService', 'removeElementFromCustomer',
+ 0,
+ $cust_main->custnum,
+ 0,
+ $svc->mac_addr,
+ );
+
+ $err_or_som = $self->prizm_command( 'NetworkIfService', 'getPrizmElements',
+ [ 'MAC Address' ],
+ [ $svc->mac_addr ],
+ [ '=' ],
+ );
+ if ( ref($err_or_som) && $err_or_som->result->[0] ) { # ignore errors
+ $self->prizm_command( 'NetworkIfService', 'deleteElement',
+ $err_or_som->result->[0],
+ 1,
+ );
+ }
+# end of coping
+
my $performance_profile = $svc->performance_profile;
$performance_profile ||= $svc->cust_svc->cust_pkg->part_pkg->pkg;
@@ -493,7 +516,8 @@ sub _export_unsuspend {
sub export_links {
my( $self, $svc, $arrayref ) = ( shift, shift, shift );
- push @$arrayref, 'SM';
+ push @$arrayref,
+ 'SM';
'';
}