#29052 Fix Aradial replace operations

[freeside.git] / FS / FS / part_export / aradial.pm

diff --git a/FS/FS/part_export/aradial.pm b/FS/FS/part_export/aradial.pm
index afb17a6..1963e95 100644 (file)
--- a/FS/FS/part_export/aradial.pm
+++ b/FS/FS/part_export/aradial.pm
@@ -63,6 +63,7 @@ sub export_replace {
   $self->request_user_edit(
     'Page'    => 'UserEdit',
     'Modify'  => 1,
+    'UserID'  => $old->username,
     $self->svc_acct_params($new),
     UserLockout => $UserLockout,
   );
@@ -90,7 +91,7 @@ sub export_delete {
   my ($self, $svc) = @_;
   $self->request_user_edit(
     'ConfirmDelete' => 1,
-    ('$Delete$' . $svc->username) => 1,
+    ('$Checked$' . $svc->username) => 1,
   );
 }