[Bexley][WW] Populate direct debit fields to pass to Agile

mysociety · Feb 19, 2025 · b12661d · b12661d
1 parent 6e0997b
commit b12661d
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/perllib/FixMyStreet/Cobrand/Bexley/Garden.pm b/perllib/FixMyStreet/Cobrand/Bexley/Garden.pm
@@ -194,6 +194,22 @@ sub waste_setup_direct_debit {
     $report->set_extra_metadata('direct_debit_customer_id', $customer->{Id});
     $report->set_extra_metadata('direct_debit_contract_id', $contract->{Id});
     $report->set_extra_metadata('direct_debit_reference', $contract->{DirectDebitRef});
+
+    # To send to Agile
+    my $parser = DateTime::Format::Strptime->new( pattern => '%d/%m/%Y' );
+    my $start_date_str
+        = $parser->format_datetime( $c->stash->{payment_date} );
+    $report->update_extra_field(
+        {   name  => 'direct_debit_reference',
+            value => $contract->{DirectDebitRef},
+        }
+    );
+    $report->update_extra_field(
+        {   name  => 'direct_debit_start_date',
+            value => $start_date_str,
+        }
+    );
+
     $report->update;
 
     return 1;