[Bexley][WW] Allow modification of subscriptions

mysociety · Feb 18, 2025 · 5733da7 · 5733da7
1 parent c1683af
commit 5733da7
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 3 deletions.
diff --git a/perllib/FixMyStreet/Cobrand/Bexley.pm b/perllib/FixMyStreet/Cobrand/Bexley.pm
@@ -248,6 +248,11 @@ sub open311_extra_data_include {
             { name => 'description', description => 'Detail',
               value => $row->detail };
     }
+    if ($contact->email =~ /^Agile/) {
+        push @$open311_only,
+            { name => 'title', description => 'Title',
+              value => $row->title },
+    }
 
     # Add private comments field
     push @$open311_only,

diff --git a/perllib/FixMyStreet/Cobrand/Bexley/Garden.pm b/perllib/FixMyStreet/Cobrand/Bexley/Garden.pm
@@ -161,17 +161,18 @@ sub waste_garden_sub_params {
 
     my $c = $self->{c};
 
-    if ( $data->{category} eq 'Cancel Garden Subscription' ) {
-        my $srv = $self->garden_current_subscription;
+    if (my $srv = $self->garden_current_subscription) {
+        $c->set_param( 'customer_external_ref', $srv->{customer_external_ref} );
+    }
 
+    if ( $data->{category} eq 'Cancel Garden Subscription' ) {
         my $parser = DateTime::Format::Strptime->new( pattern => '%d/%m/%Y' );
         my $due_date_str = $parser->format_datetime( DateTime->now->add(days => 1) );
 
         my $reason = $data->{reason};
         $reason .= ': ' . $data->{reason_further_details}
             if $data->{reason_further_details};
 
-        $c->set_param( 'customer_external_ref', $srv->{customer_external_ref} );
         $c->set_param( 'due_date', $due_date_str );
         $c->set_param( 'reason', $reason );
     }
@@ -198,4 +199,13 @@ sub waste_cc_payment_line_item_ref {
     return $p->id;
 }
 
+=item * Anyone can modify garden subs XXX Is that right?
+
+XXX TODO can't modify in renewal period
+
+=cut
+
+sub waste_show_garden_modify { 1 }
+
+
 1;