diff --git a/swad_log_database.c b/swad_log_database.c
new file mode 100644
index 00000000..faa2f24d
--- /dev/null
+++ b/swad_log_database.c
@@ -0,0 +1,225 @@
+// swad_log_database.c: access log, operations with database
+
+/*
+    SWAD (Shared Workspace At a Distance),
+    is a web platform developed at the University of Granada (Spain),
+    and used to support university teaching.
+
+    This file is part of SWAD core.
+    Copyright (C) 1999-2021 Antonio Caņas Vargas
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Affero General 3 License as
+    published by the Free Software Foundation, either version 3 of the
+    License, or (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU Affero General Public License for more details.
+
+    You should have received a copy of the GNU Affero General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+*/
+/*****************************************************************************/
+/*********************************** Headers *********************************/
+/*****************************************************************************/
+
+// #include <stdlib.h>		// For free
+// #include <string.h>		// For strlen
+
+// #include "swad_action.h"
+// #include "swad_banner.h"
+// #include "swad_center_database.h"
+#include "swad_config.h"
+#include "swad_database.h"
+// #include "swad_degree_database.h"
+// #include "swad_exam_log.h"
+#include "swad_global.h"
+// #include "swad_hierarchy.h"
+// #include "swad_HTML.h"
+// #include "swad_institution_database.h"
+#include "swad_log.h"
+// #include "swad_profile.h"
+// #include "swad_role.h"
+// #include "swad_statistic.h"
+
+/*****************************************************************************/
+/****************************** Public constants *****************************/
+/*****************************************************************************/
+
+/*****************************************************************************/
+/***************************** Private constants *****************************/
+/*****************************************************************************/
+
+/*****************************************************************************/
+/****************************** Private types ********************************/
+/*****************************************************************************/
+
+/*****************************************************************************/
+/************** External global variables from others modules ****************/
+/*****************************************************************************/
+
+extern struct Globals Gbl;
+
+/*****************************************************************************/
+/************************* Private global variables **************************/
+/*****************************************************************************/
+
+/*****************************************************************************/
+/***************************** Private prototypes ****************************/
+/*****************************************************************************/
+
+/*****************************************************************************/
+/*********************** Log access in historical log ************************/
+/*****************************************************************************/
+
+long Log_DB_LogAccessInHistoricalLog (long ActCod,Rol_Role_t RoleToStore)
+  {
+   return
+   DB_QueryINSERTandReturnCode ("can not log access",
+				"INSERT INTO log"
+				" (ActCod,CtyCod,InsCod,CtrCod,DegCod,CrsCod,"
+				  "UsrCod,Role,ClickTime,"
+				  "TimeToGenerate,TimeToSend,IP)"
+				" VALUES"
+				" (%ld,%ld,%ld,%ld,%ld,%ld,"
+				  "%ld,%u,NOW(),"
+				  "%ld,%ld,'%s')",
+				ActCod,
+				Gbl.Hierarchy.Cty.CtyCod,
+				Gbl.Hierarchy.Ins.InsCod,
+				Gbl.Hierarchy.Ctr.CtrCod,
+				Gbl.Hierarchy.Deg.DegCod,
+				Gbl.Hierarchy.Crs.CrsCod,
+				Gbl.Usrs.Me.UsrDat.UsrCod,
+				(unsigned) RoleToStore,
+				Gbl.TimeGenerationInMicroseconds,
+				Gbl.TimeSendInMicroseconds,
+				Gbl.IP);
+  }
+
+/*****************************************************************************/
+/************************* Log access in recent log **************************/
+/*****************************************************************************/
+
+void Log_DB_LogAccessInRecentLog (long LogCod,long ActCod,Rol_Role_t RoleToStore)
+  {
+   DB_QueryINSERT ("can not log access (recent)",
+		   "INSERT INTO log_recent"
+	           " (LogCod,ActCod,CtyCod,InsCod,CtrCod,DegCod,CrsCod,"
+	             "UsrCod,Role,ClickTime,"
+	             "TimeToGenerate,TimeToSend,IP)"
+                   " VALUES"
+                   " (%ld,%ld,%ld,%ld,%ld,%ld,%ld,"
+                     "%ld,%u,NOW(),"
+                     "%ld,%ld,'%s')",
+		   LogCod,
+		   ActCod,
+		   Gbl.Hierarchy.Cty.CtyCod,
+		   Gbl.Hierarchy.Ins.InsCod,
+		   Gbl.Hierarchy.Ctr.CtrCod,
+		   Gbl.Hierarchy.Deg.DegCod,
+		   Gbl.Hierarchy.Crs.CrsCod,
+		   Gbl.Usrs.Me.UsrDat.UsrCod,
+		   (unsigned) RoleToStore,
+		   Gbl.TimeGenerationInMicroseconds,
+		   Gbl.TimeSendInMicroseconds,
+		   Gbl.IP);
+   }
+
+/*****************************************************************************/
+/*********************************** Log comments ****************************/
+/*****************************************************************************/
+
+void Log_DB_LogComments (long LogCod,const char *CommentsDB)
+  {
+   DB_QueryINSERT ("can not log access (comments)",
+		   "INSERT INTO log_comments"
+		   " (LogCod,Comments)"
+		   " VALUES"
+		   " (%ld,'%s')",
+		   LogCod,
+		   CommentsDB);
+  }
+
+/*****************************************************************************/
+/****************************** Log search string ****************************/
+/*****************************************************************************/
+
+void Log_DB_LogSearchString (long LogCod)
+  {
+   DB_QueryINSERT ("can not log access (search)",
+		   "INSERT INTO log_search"
+		   " (LogCod,SearchStr)"
+		   " VALUES"
+		   " (%ld,'%s')",
+		   LogCod,
+		   Gbl.Search.Str);
+  }
+
+/*****************************************************************************/
+/***************** Log web service plugin and API function *******************/
+/*****************************************************************************/
+
+void Log_DB_LogAPI (long LogCod)
+  {
+   DB_QueryINSERT ("can not log access (API)",
+		   "INSERT INTO log_api"
+		   " (LogCod,PlgCod,FunCod)"
+		   " VALUES"
+		   " (%ld,%ld,%u)",
+		   LogCod,
+		   Gbl.WebService.PlgCod,
+		   (unsigned) Gbl.WebService.Function);
+  }
+
+/*****************************************************************************/
+/********************************* Log banner ********************************/
+/*****************************************************************************/
+
+void Log_DB_LogBanner (long LogCod,long BanCodClicked)
+  {
+   DB_QueryINSERT ("can not log banner clicked",
+		   "INSERT INTO log_banners"
+		   " (LogCod,BanCod)"
+		   " VALUES"
+		   " (%ld,%ld)",
+		   LogCod,
+		   BanCodClicked);
+  }
+
+/*****************************************************************************/
+/****************************** Get last clicks ******************************/
+/*****************************************************************************/
+
+unsigned Log_DB_GetLastClicks (MYSQL_RES **mysql_res)
+  {
+   return (unsigned)
+   DB_QuerySELECT (mysql_res,"can not get last clicks",
+		   "SELECT LogCod,"			// row[0]
+			  "ActCod,"			// row[1]
+			  "UNIX_TIMESTAMP()-"
+			  "UNIX_TIMESTAMP(ClickTime),"	// row[2]
+			  "Role,"			// row[3]
+			  "CtyCod,"			// row[4]
+			  "InsCod,"			// row[5]
+			  "CtrCod,"			// row[6]
+			  "DegCod"			// row[7]
+		    " FROM log_recent"
+		   " ORDER BY LogCod DESC"
+		   " LIMIT 20");
+  }
+
+/*****************************************************************************/
+/************ Sometimes, we delete old entries in recent log table ***********/
+/*****************************************************************************/
+
+void Log_DB_RemoveOldEntriesRecentLog (void)
+  {
+   /***** Remove all expired clipboards *****/
+   DB_QueryDELETE ("can not remove old entries from recent log",
+		   "DELETE LOW_PRIORITY FROM log_recent"
+                   " WHERE ClickTime<FROM_UNIXTIME(UNIX_TIMESTAMP()-%lu)",
+		   Log_SECONDS_IN_RECENT_LOG);
+  }
diff --git a/swad_log_database.h b/swad_log_database.h
new file mode 100644
index 00000000..e11157b7
--- /dev/null
+++ b/swad_log_database.h
@@ -0,0 +1,53 @@
+// swad_log_database.h: access log, operations with database
+
+#ifndef _SWAD_LOG_DB
+#define _SWAD_LOG_DB
+/*
+    SWAD (Shared Workspace At a Distance in Spanish),
+    is a web platform developed at the University of Granada (Spain),
+    and used to support university teaching.
+
+    This file is part of SWAD core.
+    Copyright (C) 1999-2021 Antonio Caņas Vargas
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Affero General Public License as
+    published by the Free Software Foundation, either version 3 of the
+    License, or (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU Affero General Public License for more details.
+
+    You should have received a copy of the GNU Affero General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+*/
+/*****************************************************************************/
+/********************************* Headers ***********************************/
+/*****************************************************************************/
+
+/*****************************************************************************/
+/***************************** Public constants ******************************/
+/*****************************************************************************/
+
+/*****************************************************************************/
+/******************************* Public types ********************************/
+/*****************************************************************************/
+
+/*****************************************************************************/
+/***************************** Public prototypes *****************************/
+/*****************************************************************************/
+
+long Log_DB_LogAccessInHistoricalLog (long ActCod,Rol_Role_t RoleToStore);
+void Log_DB_LogAccessInRecentLog (long LogCod,long ActCod,Rol_Role_t RoleToStore);
+void Log_DB_LogComments (long LogCod,const char *CommentsDB);
+void Log_DB_LogSearchString (long LogCod);
+void Log_DB_LogAPI (long LogCod);
+void Log_DB_LogBanner (long LogCod,long BanCodClicked);
+
+unsigned Log_DB_GetLastClicks (MYSQL_RES **mysql_res);
+
+void Log_DB_RemoveOldEntriesRecentLog (void);
+
+#endif