anchor.diff:  
   /// /////////////////////////////////////////////////////////////////////////////
   
  +procedure TBlkLinker.GetPtData(json: TJsonObject; includeState: Boolean);
  +begin
  +  inherited;
  +
  +  json['parent'] := Self.m_settings.parent;
  +
  +  if (includeState) then
  +    Self.GetPtState(json['blockState']);
  +end;
  +
  +procedure TBlkLinker.GetPtState(json: TJsonObject);
  +begin
  +  json['enabled'] := Self.enabled;
  +  json['departureForbidden'] := Self.departureForbidden;
  +  json['emLock'] := Self.emLock;
  +  json['request'] := Self.request;
  +
  +  if (Self.note <> '') then
  +    json['note'] := Self.note;
  +end;
  +
  +/// /////////////////////////////////////////////////////////////////////////////
  +
   end.// unit
  
positive.code: 
      function GetSettings(): TBlkLinkerSettings;
      procedure SetSettings(data: TBlkLinkerSettings);
  
      procedure ApproveRequest();
      function CanZTS(): Boolean;
  
negative.code: 
  interface
  
  uses IniFiles, Block, Menus, AreaDb, SysUtils, Classes, JsonDataObjects,
    IdContext, StrUtils, Area, Generics.Collections;
  
  type
  