[Waste] [Echo] Log outgoing reserve call.

mysociety · Oct 27, 2023 · d2ef8ba · d2ef8ba
1 parent 5aab048
commit d2ef8ba
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/perllib/Integrations/Echo.pm b/perllib/Integrations/Echo.pm
@@ -470,7 +470,7 @@ sub ReserveAvailableSlotsForEvent {
     $from = $parser->parse_datetime($from);
     $to = $parser->parse_datetime($to);
 
-    my $res = $self->call('ReserveAvailableSlotsForEvent',
+    my @req = ('ReserveAvailableSlotsForEvent',
         event => ixhash(
             Guid => $guid,
             EventObjects => { EventObject => ixhash(
@@ -485,7 +485,8 @@ sub ReserveAvailableSlotsForEvent {
             To => dt_to_hash($to),
         ),
     );
-
+    $self->log(\@req);
+    my $res = $self->call(@req);
     return [] unless ref $res eq 'HASH';
 
     $self->log($res);