anchor.diff:  procedure TSantosProject.ReadChartChargerTotalPower(aSession: TOraSession;
     const aTablePrefix: string; aCharger: Integer);
   var
  -  zero: TDateTime;
  +  zero, t: TDateTime;
     minOfDay: Integer;
     query: TOraQuery;
     tableName: String;
  
positive.code:   end;
  end;
  
  procedure TSantosLayer.initStops(aSession: TOraSession);
  var
    query: TOraQuery;
  
negative.code:   // send data to time slider
    jsonTSData := jsonTimesliderData;
    aClient.signalString('{"type":"timesliderEvents","payload":{"setEvents":['+jsonTSData+']}}');
  end;
  
  procedure TSantosLayer.HandleFormResult(aFormResult: TJSONObject);
  var
    parameters: TJSONArray;
    parameter: TJSONValue;
    name: string;
    strLocation: string;
    strPoleType: string;
    poleCount: integer;
    stop: TBusStop;
    maxPower: integer;
  begin
    if aFormResult.TryGetValue<TJSONArray>('parameters', parameters) then
    begin
      for parameter in parameters do
      begin
        name := (parameter as TJSONObject).GetValue<string>('name');
  
        if name.Equals('LOCATION') then
          strLocation := (parameter as TJSONObject).GetValue<string>('value')
        else if name.Equals('CHARGEPOLETYPE') then
          strPoleType := (parameter as TJSONObject).GetValue<string>('value')
        else if name.Equals('NUMBEROFCHARGINGPOLES') then
          poleCount :=  (parameter as TJSONObject).GetValue<integer>('value')
        else if name.Equals('MAXPOWER') then
          maxPower :=  (parameter as TJSONObject).GetValue<integer>('value');
      end;
  
      TMonitor.Enter(fBusStops);
      try
        if not fBusStops.TryGetValue(strLocation, stop) then
          raise Exception.Create('Unknown charge location: ' + strLocation);
  
        TMonitor.Enter(fChargerTypes);
        try
          if fChargerTypes.IndexOf(strPoleType)<0 then
            raise Exception.Create('Unknown charger type: ' + strPoleType);
          stop.chargePoleType := strPoleType;
        finally
          TMonitor.Exit(fChargerTypes);
        end;
  
        if poleCount<0 then
          raise Exception.Create('Invalid number of chargers: ' + polecount.ToString);
        if maxPower<0 then
          raise Exception.Create('Invalid max power ' + maxPower.ToString);
  
        stop.numberOfPoles := poleCount;
        stop.maxPower := maxPower;
  
  //        fBusStops.Remove(stop.id);
        fBusStops.AddOrSetValue(stop.id, stop);
        // TODO, update database
        log.WriteLn('UPDATE CHARGELOCATION ' + stop.id + ' to ' + polecount.ToString + ' chargers of type: ' + strPoleType, llSummary);
      finally
        TMonitor.Exit(fBusStops);
      end;
  
  
    end;
  
  
  end;
  
  procedure TSantosLayer.handleNewTime(aClient: TClient; aTime: string);
  