[Bexley] Show current payment on GGW subscription

mysociety · Feb 9, 2025 · af8001d · af8001d
1 parent 68673fb
commit af8001d
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/perllib/FixMyStreet/Cobrand/Bexley/Garden.pm b/perllib/FixMyStreet/Cobrand/Bexley/Garden.pm
@@ -9,6 +9,7 @@ package FixMyStreet::Cobrand::Bexley::Garden;
 use DateTime::Format::Strptime;
 use Integrations::Agile;
 use FixMyStreet::App::Form::Waste::Garden::Cancel::Bexley;
+use Try::Tiny;
 
 use Moo::Role;
 with 'FixMyStreet::Roles::Cobrand::SCP',
@@ -49,6 +50,11 @@ sub garden_current_subscription {
     return undef unless $customer && $customer->{ServiceContracts};
     my $contract = $customer->{ServiceContracts}[0];
     return unless $contract;
+    # XXX should maybe sort by CreatedDate rather than assuming first is OK
+    my $cost = try {
+        my ($payment) = grep { $_->{PaymentStatus} eq 'Paid' } @{ $contract->{Payments} };
+        return $payment->{Amount};
+    };
 
     my $parser
         = DateTime::Format::Strptime->new( pattern => '%d/%m/%Y %H:%M' );
@@ -64,6 +70,7 @@ sub garden_current_subscription {
                 = $customer->{CustomerExternalReference};
             $srv->{end_date} = $end_date;
             $srv->{garden_bins} = $contract->{WasteContainerQuantity};
+            $srv->{garden_cost} = $cost;
             return $srv;
         }
     }