Add support for setting the contact type/subtype even if not using activities

activityprofile.php

@@ -189,4 +189,30 @@ function activityprofile_civicrm_post($op, $objectName, $objectId, &$objectRef)
       }
     }
   }
+
+  // This is a bit redundant with the APIWrapper code for Profile submission
+  // but that code only kicks-in when using remoteform and Activity fields.
+  // This makes it possible to set the contact-type/subtype if using just a plain profile.
+  if ($objectName == 'Profile' && $op == 'create') {
+    $profile_id = $objectRef['uf_group_id'];
+    $ctype = Civi::settings()->get('activityprofile_' . $profile_id . '_ctype');
+    $csubtype = Civi::settings()->get('activityprofile_' . $profile_id . '_csubtype');
+
+    if ($ctype || $csubtype) {
+      $api = \Civi\Api4\Contact::update(false)
+        ->addWhere('id', '=', $objectId);
+
+      if ($ctype) {
+        $api->addValue('contact_type', $ctype);
+      }
+
+      if ($csubtype) {
+        $api->addValue('contact_sub_type', [
+          $csubtype,
+        ]);
+      }
+
+      $api->execute();
+    }
+  }
 }