korrespond v1 premiere: Bedrock routing, engine picker, journal auto-save + status

- KorrespondAgent: add resolveDeployment() helper; fix classify/translate to use
  Haiku via Bedrock, draft to use Haiku (quick) or Sonnet (thorough) — fixes broken
  withDeployment('gpt-4o-mini') calls when DBN_BEDROCK_ENABLED=true
- korrespond.php: add Quick/Thorough engine picker (case_toggle already present)
- korrespond.js: pass engine in request payload
- api/korrespond.php: accept user-selected engine, auto-save to case_tool_results
  for paid users after each successful run, update deployment log label
- CaseResults: add korr_status to listForUser SELECT, add updateStatus() method
- result-action.php: add set_status action for correspondence journal
- account.php: show status dropdown (Draft/Sent/Reply received/Resolved) for
  korrespond entries in #analyses, wire JS change handler to result-action.php

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

api/case/result-action.php

@@ -48,6 +48,14 @@ switch ($action) {
         dbnToolsRespond(['ok' => true]);
         break;
 
+    case 'set_status':
+        $status = (string)($input['status'] ?? '');
+        if (!CaseResults::updateStatus($userId, $id, $status)) {
+            dbnToolsError('Could not update status — invalid value or result not found.', 422, 'status_failed');
+        }
+        dbnToolsRespond(['ok' => true, 'status' => $status]);
+        break;
+
     default:
         dbnToolsError('Unknown action.', 422, 'unknown_action');
 }

api/korrespond.php

@@ -165,8 +165,12 @@ try {
     }
 
     // ── Deduct credit now (Pass 2 starts) ───────────────────────────────────────
-    $ftUid = dbnToolsFreeTierCheck('korrespond');
+    $ftUid  = dbnToolsFreeTierCheck('korrespond');
     $engine = ToolModels::engineForUser($ftUid, 'azure_mini');
+    $inputEngine = (string)($input['engine'] ?? '');
+    if (in_array($inputEngine, ['azure_mini', 'claude_sonnet'], true)) {
+        $engine = $inputEngine;
+    }
     $ftRemaining = dbnToolsFreeTierDeduct($ftUid, 'korrespond');
     $creditDeducted = true;
 
@@ -184,12 +188,28 @@ try {
         'ok'           => true,
         'latency_ms'   => $result['latency_ms'],
         'source_count' => is_array($result['cited_law'] ?? null) ? count($result['cited_law']) : 0,
-        'deployment'   => ($engine === 'azure_full') ? 'gpt-4o' : 'gpt-4o-mini',
+        'deployment'   => $engine,
     ]);
 
 
     $emit('final', ['result' => $result]);
 
+    // Auto-save for paid users — non-critical, silent on failure
+    try {
+        require_once __DIR__ . '/../includes/CaseResults.php';
+        require_once __DIR__ . '/../includes/CaseStore.php';
+        $authUser = dbnToolsAuthenticatedUser();
+        $uid  = (int)($authUser['user_id'] ?? 0);
+        $oid  = CaseStore::caseResolveClientId($uid);
+        CaseResults::save($uid, $oid, 'korrespond', $intake, $result, [
+            'used_case_context' => !empty($intake['use_my_case']) ? 1 : 0,
+            'case_doc_ids'      => $GLOBALS['dbn_last_case_doc_ids'] ?? [],
+            'model'             => $engine,
+            'latency_ms'        => $result['latency_ms'],
+            'credits_charged'   => 1,
+        ]);
+    } catch (Throwable) { /* non-critical */ }
+
 } catch (DbnToolsHttpException $e) {
     $latency = (int)round((microtime(true) - $startTime) * 1000);
     dbnToolsLogMetadata([