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

mysociety · Feb 20, 2025 · 37eb56f · 37eb56f
1 parent 90f752b
commit 37eb56f
Show file tree

Hide file tree

Showing 2 changed files with 24 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;

diff --git a/t/app/controller/waste_bexley_garden.t b/t/app/controller/waste_bexley_garden.t
@@ -557,6 +557,10 @@ FixMyStreet::override_config {
         is $report->get_extra_metadata('direct_debit_customer_id'), 'CUSTOMER123', 'Correct customer ID';
         is $report->get_extra_metadata('direct_debit_contract_id'), 'CONTRACT123', 'Correct contract ID';
         is $report->get_extra_metadata('direct_debit_reference'), 'APIRTM-DEFGHIJ1KL', 'Correct payer reference';
+        is $report->get_extra_field_value('direct_debit_reference'),
+            'APIRTM-DEFGHIJ1KL', 'Reference set as extra field';
+        is $report->get_extra_field_value('direct_debit_start_date'),
+            '23/01/2023', 'Start date set as extra field';
     };
 
     subtest 'Test direct debit submission flow existing customer' => sub {
@@ -633,6 +637,10 @@ FixMyStreet::override_config {
         is $report->get_extra_metadata('direct_debit_customer_id'), 'CUSTOMER456', 'Correct customer ID';
         is $report->get_extra_metadata('direct_debit_contract_id'), 'CONTRACT123', 'Correct contract ID';
         is $report->get_extra_metadata('direct_debit_reference'), 'APIRTM-DEFGHIJ1KL', 'Correct payer reference';
+        is $report->get_extra_field_value('direct_debit_reference'),
+            'APIRTM-DEFGHIJ1KL', 'Reference set as extra field';
+        is $report->get_extra_field_value('direct_debit_start_date'),
+            '23/01/2023', 'Start date set as extra field';
     };
 
     subtest 'cancel garden subscription' => sub {