X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fcp.pm;h=2ae97e12d99e515f3a2f7a0f378dd66824d281b0;hb=389b6f1116c3309c2ee57a6c295ed1a793503095;hp=a295c574bad961170841386e3f239e83e80fc1a6;hpb=dabdf357484badff95afcae50b08ec1c3bb58343;p=freeside.git

diff --git a/FS/FS/part_export/cp.pm b/FS/FS/part_export/cp.pm
index a295c574b..2ae97e12d 100644
--- a/FS/FS/part_export/cp.pm
+++ b/FS/FS/part_export/cp.pm
@@ -18,6 +18,7 @@ tie my %options, 'Tie::IxHash',
   'svc'    => 'svc_acct',
   'desc'   => 'Real-time export to Critical Path Account Provisioning Protocol',
   'options'=> \%options,
+  'default_svc_class' => 'Email',
   'notes'  => <<'END'
 Real-time export to
 <a href="http://www.cp.net/">Critial Path Account Provisioning Protocol</a>.
@@ -43,8 +44,9 @@ sub _export_replace {
   my( $self, $new, $old ) = (shift, shift, shift);
   return "can't change domain with Critical Path"
     if $old->domain ne $new->domain;
-  return '' unless $old->username  ne $new->username
-                || $old->_password ne $new->_password;
+  return "can't change username with Critical Path" #CP no longer supports this
+    if $old->username ne $new->username;
+  return '' unless $old->_password ne $new->_password;
   $self->cp_queue( $new->svcnum, 'replace', $new->domain,
     $old->username, $new->username, $old->_password, $new->_password );
 }