Remove code that renders user info as part of a snippet's Extra property

Author: delphidabbler

Src/UCodeImportMgr.pas

@@ -241,7 +241,6 @@ procedure TCodeImportMgr.InitImportInfoList;
 
 procedure TCodeImportMgr.UpdateDatabase;
 
-  // ---------------------------------------------------------------------------
   // Adjusts a snippet's dependency list so that main database is searched for a
   // required snippet if it is not in the user database.
   procedure AdjustDependsList(const Depends: ISnippetIDList);
@@ -261,23 +260,6 @@ procedure TCodeImportMgr.UpdateDatabase;
     end;
   end;
 
-  ///  Builds an active text representation of the contributing user's details.
-  function UserDetailsActiveText: IActiveText;
-  resourcestring
-    // user information prefix text
-    sContributorPrefix = 'Contributed by:';
-  begin
-    Result := TActiveTextFactory.CreateActiveText;
-    Result.AddElem(TActiveTextFactory.CreateActionElem(ekPara, fsOpen));
-    Result.AddElem(
-      TActiveTextFactory.CreateTextElem(
-        sContributorPrefix + ' ' + UserInfo.Details.ToString
-      )
-    );
-    Result.AddElem(TActiveTextFactory.CreateActionElem(ekPara, fsClose));
-  end;
-  // ---------------------------------------------------------------------------
-
 var
   Editor: IDatabaseEdit;      // object used to update user database
   Snippet: TSnippet;          // reference any existing snippet to overwrite
@@ -298,9 +280,6 @@ procedure TCodeImportMgr.UpdateDatabase;
 
     AdjustDependsList(SnippetInfo.Data.Refs.Depends);
 
-    if UserInfo.Details.ToString <> '' then
-      SnippetInfo.Data.Props.Extra.Append(UserDetailsActiveText);
-
     Snippet := Database.Snippets.Find(ImportInfo.ImportAsName, True);
     if Assigned(Snippet) then
       // snippet already exists: overwrite it