From 17f255aac82a420df975ff3e98596fc03a2497c2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Antonio=20Ca=C3=B1as=20Vargas?= <acanas@ugr.es>
Date: Sat, 26 Oct 2019 12:25:27 +0200
Subject: [PATCH] Version19.44.3

---
 css/{swad19.44.2.css => swad19.44.3.css} | 11 ++++-
 swad_HTML.c                              | 55 +++++++++++++++++++++---
 swad_HTML.h                              |  1 +
 swad_MFU.c                               |  4 +-
 swad_banner.c                            |  2 +-
 swad_changelog.h                         |  5 +--
 swad_chat.c                              |  2 +-
 swad_course.c                            |  2 +-
 swad_date.c                              |  2 +-
 swad_enrolment.c                         |  6 +--
 swad_file_browser.c                      |  2 +-
 swad_forum.c                             |  4 +-
 swad_info.c                              |  3 +-
 swad_link.c                              |  2 +-
 swad_menu.c                              |  4 +-
 swad_privacy.c                           |  2 +-
 swad_profile.c                           |  4 +-
 swad_project.c                           |  2 +-
 swad_report.c                            | 23 +++++-----
 swad_survey.c                            |  2 +-
 swad_syllabus.c                          |  2 +-
 swad_tab.c                               |  4 +-
 swad_test.c                              |  4 +-
 swad_timeline.c                          | 23 +++++-----
 swad_user.c                              |  3 +-
 25 files changed, 109 insertions(+), 65 deletions(-)
 rename css/{swad19.44.2.css => swad19.44.3.css} (99%)

diff --git a/css/swad19.44.2.css b/css/swad19.44.3.css
similarity index 99%
rename from css/swad19.44.2.css
rename to css/swad19.44.3.css
index 46396f34..8247d8ed 100644
--- a/css/swad19.44.2.css
+++ b/css/swad19.44.3.css
@@ -74,7 +74,7 @@ form
 	}
 address
 	{
-	font-style: normal;
+	font-style:normal;
 	}
 
 /*********************** Text decoration of links ****************************/
@@ -2237,6 +2237,15 @@ a:hover img.CENTRE_PHOTO_SHOW
 	height:25px;
 	}
 
+.LIST_I_MUST_READ
+	{
+	display:inline-block;
+	padding:0;
+	margin:12px 0;
+	text-align:left;
+	vertical-align:middle;
+	}
+
 /******************************* File browsers *******************************/
 .FILENAME
 	{
diff --git a/swad_HTML.c b/swad_HTML.c
index 69242207..4314f342 100644
--- a/swad_HTML.c
+++ b/swad_HTML.c
@@ -60,6 +60,7 @@ static unsigned HTM_TR_NestingLevel = 0;
 static unsigned HTM_TH_NestingLevel = 0;
 static unsigned HTM_TD_NestingLevel = 0;
 static unsigned HTM_DIV_NestingLevel = 0;
+static unsigned HTM_UL_NestingLevel = 0;
 
 /*****************************************************************************/
 /***************************** Private prototypes ****************************/
@@ -76,6 +77,8 @@ static void HTM_TD_BeginWithoutAttr (void);
 
 static void HTM_DIV_BeginWithoutAttr (void);
 
+static void HTM_UL_BeginWithoutAttr (void);
+
 /*****************************************************************************/
 /******************************* Start/end table *****************************/
 /*****************************************************************************/
@@ -412,7 +415,7 @@ static void HTM_TD_BeginWithoutAttr (void)
 
 void HTM_TD_End (void)
   {
-   if (HTM_TD_NestingLevel == 0)	// No TH open
+   if (HTM_TD_NestingLevel == 0)	// No TD open
       Ale_ShowAlert (Ale_ERROR,"Trying to close unopened TD.");
 
    fprintf (Gbl.F.Out,"</td>");
@@ -490,12 +493,12 @@ static void HTM_DIV_BeginWithoutAttr (void)
 
 void HTM_DIV_End (void)
   {
-   if (HTM_DIV_NestingLevel == 0)	// No TH open
+   if (HTM_DIV_NestingLevel == 0)	// No DIV open
       Ale_ShowAlert (Ale_ERROR,"Trying to close unopened DIV.");
 
    fprintf (Gbl.F.Out,"</div>");
 
-   HTM_TD_NestingLevel--;
+   HTM_DIV_NestingLevel--;
   }
 
 /*****************************************************************************/
@@ -543,13 +546,51 @@ void HTM_SECTION_End (void)
 /*****************************************************************************/
 /****************************** Unordered lists ******************************/
 /*****************************************************************************/
-/*
-void HTM_UL_Begin (const char *SectionId)
+
+void HTM_UL_Begin (const char *fmt,...)
   {
-   fprintf (Gbl.F.Out,"<ul id=\"%s\">",SectionId);
+   va_list ap;
+   int NumBytesPrinted;
+   char *Attr;
+
+   if (fmt)
+     {
+      if (fmt[0])
+	{
+	 va_start (ap,fmt);
+	 NumBytesPrinted = vasprintf (&Attr,fmt,ap);
+	 va_end (ap);
+
+	 if (NumBytesPrinted < 0)	// If memory allocation wasn't possible,
+					// or some other error occurs,
+					// vasprintf will return -1
+	    Lay_NotEnoughMemoryExit ();
+
+	 /***** Print HTML *****/
+	 fprintf (Gbl.F.Out,"<ul %s>",Attr);
+
+	 free ((void *) Attr);
+	}
+      else
+         HTM_UL_BeginWithoutAttr ();
+     }
+   else
+      HTM_UL_BeginWithoutAttr ();
+
+   HTM_UL_NestingLevel++;
   }
-*/
+
+static void HTM_UL_BeginWithoutAttr (void)
+  {
+   fprintf (Gbl.F.Out,"<ul>");
+  }
+
 void HTM_UL_End (void)
   {
+   if (HTM_UL_NestingLevel == 0)	// No UL open
+      Ale_ShowAlert (Ale_ERROR,"Trying to close unopened UL.");
+
    fprintf (Gbl.F.Out,"</ul>");
+
+   HTM_UL_NestingLevel--;
   }
diff --git a/swad_HTML.h b/swad_HTML.h
index c11966a9..23dd10a2 100644
--- a/swad_HTML.h
+++ b/swad_HTML.h
@@ -74,6 +74,7 @@ void HTM_ARTICLE_End (void);
 void HTM_SECTION_Begin (const char *SectionId);
 void HTM_SECTION_End (void);
 
+void HTM_UL_Begin (const char *fmt,...);
 void HTM_UL_End (void);
 
 #endif
diff --git a/swad_MFU.c b/swad_MFU.c
index 9103c118..e9c502e0 100644
--- a/swad_MFU.c
+++ b/swad_MFU.c
@@ -223,7 +223,7 @@ void MFU_WriteBigMFUActions (struct MFU_ListMFUActions *ListMFUActions)
    HTM_DIV_Begin ("id=\"MFU_actions_big\"");
 
    /***** Write list of frequently used actions *****/
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT\">");
+   HTM_UL_Begin ("class=\"LIST_LEFT\"");
    for (NumAct = 0;
 	NumAct < ListMFUActions->NumActions;
 	NumAct++)
@@ -286,7 +286,7 @@ void MFU_WriteSmallMFUActions (struct MFU_ListMFUActions *ListMFUActions)
    Frm_EndForm ();
 
    /***** Write list of frequently used actions *****/
-   fprintf (Gbl.F.Out,"<ul>");
+   HTM_UL_Begin (NULL);
    for (NumAct = 0;
 	NumAct < ListMFUActions->NumActions;
 	NumAct++)
diff --git a/swad_banner.c b/swad_banner.c
index 2f77451a..10f62cfb 100644
--- a/swad_banner.c
+++ b/swad_banner.c
@@ -144,7 +144,7 @@ static void Ban_WriteListOfBanners (void)
    unsigned NumBan;
 
    /***** List start *****/
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT\">");
+   HTM_UL_Begin ("class=\"LIST_LEFT\"");
 
    /***** Write all the banners *****/
    for (NumBan = 0;
diff --git a/swad_changelog.h b/swad_changelog.h
index 11f13e3b..d08527d3 100644
--- a/swad_changelog.h
+++ b/swad_changelog.h
@@ -488,14 +488,13 @@ En OpenSWAD:
 ps2pdf source.ps destination.pdf
 */
 #define Log_PLATFORM_VERSION	"SWAD 19.44.3 (2019-10-26)"
-#define CSS_FILE		"swad19.44.2.css"
+#define CSS_FILE		"swad19.44.3.css"
 #define JS_FILE			"swad19.39.js"
 /*
 // TODO: Hacer un nuevo rol en los TFG: tutor externo (profesor de áreas no vinculadas con el centro, profesionales de empresas, etc.)
 // TODO: Impedir la creación y edición de proyectos si no son editables.
-// TODO: Buscar emparejamientos <ul de HTM_UL_End ();
 
-	Version 19.44.3:  Oct 26, 2019	Code refactoring in HTML lists. (? lines)
+	Version 19.44.3:  Oct 26, 2019	Code refactoring in HTML lists. (246369 lines)
 	Version 19.44.2:  Oct 26, 2019	Changes in layout. (246318 lines)
 	Version 19.44.1:  Oct 26, 2019	Remove course from project configuration when removing course. (246284 lines)
 	Version 19.44:    Oct 25, 2019	Configuration of all projects.
diff --git a/swad_chat.c b/swad_chat.c
index fffc39cb..b0b1102a 100644
--- a/swad_chat.c
+++ b/swad_chat.c
@@ -126,7 +126,7 @@ void Cht_ShowListOfAvailableChatRooms (void)
    /***** Begin box *****/
    Box_BoxBegin (NULL,Txt_Chat_rooms,NULL,
                  NULL,Box_NOT_CLOSABLE);
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_TREE\">");
+   HTM_UL_Begin ("class=\"LIST_TREE\"");
 
    /***** Title of top level *****/
    fprintf (Gbl.F.Out,"<li class=\"DAT\">"
diff --git a/swad_course.c b/swad_course.c
index 03f9fe13..14c0d49d 100644
--- a/swad_course.c
+++ b/swad_course.c
@@ -583,7 +583,7 @@ static void Crs_WriteListMyCoursesToSelectOne (void)
    /***** Begin box *****/
    Box_BoxBegin (NULL,Txt_My_courses,Crs_PutIconToSearchCourses,
                  Hlp_PROFILE_Courses,Box_NOT_CLOSABLE);
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_TREE\">");
+   HTM_UL_Begin ("class=\"LIST_TREE\"");
 
    /***** Write link to platform *****/
    Highlight = (Gbl.Hierarchy.Cty.CtyCod <= 0);
diff --git a/swad_date.c b/swad_date.c
index a1394d0b..490201b5 100644
--- a/swad_date.c
+++ b/swad_date.c
@@ -111,7 +111,7 @@ void Dat_PutBoxToSelectDateFormat (void)
    /***** Form with list of options *****/
    Frm_StartForm (ActChgDatFmt);
 
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT\">");
+   HTM_UL_Begin ("class=\"LIST_LEFT\"");
    for (Format = (Dat_Format_t) 0;
 	Format <= (Dat_Format_t) (Dat_NUM_OPTIONS_FORMAT - 1);
 	Format++)
diff --git a/swad_enrolment.c b/swad_enrolment.c
index eb2fc9e9..827e4ab4 100644
--- a/swad_enrolment.c
+++ b/swad_enrolment.c
@@ -952,8 +952,7 @@ static void Enr_PutActionsRegRemSeveralUsrs (void)
    extern const char *Txt_Eliminate_from_the_platform_the_users_indicated_in_step_1;
 
    /***** Start list of options *****/
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT %s\">",
-            The_ClassFormInBox[Gbl.Prefs.Theme]);
+   HTM_UL_Begin ("class=\"LIST_LEFT %s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
 
    /***** Register / remove users listed or not listed *****/
    if (Gbl.Hierarchy.Level == Hie_CRS)	// Course selected
@@ -1497,8 +1496,7 @@ bool Enr_PutActionsRegRemOneUsr (bool ItsMe)
      }
 
    /***** Start list of options *****/
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT %s\">",
-	    The_ClassFormInBox[Gbl.Prefs.Theme]);
+   HTM_UL_Begin ("class=\"LIST_LEFT %s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
 
    /***** Register user in course / Modify user's data *****/
    if (Gbl.Hierarchy.Level == Hie_CRS && Gbl.Usrs.Me.Role.Logged >= Rol_STD)
diff --git a/swad_file_browser.c b/swad_file_browser.c
index 96169978..60a43205 100644
--- a/swad_file_browser.c
+++ b/swad_file_browser.c
@@ -3260,7 +3260,7 @@ static void Brw_FormToChangeCrsGrpZone (void)
    Brw_PutHiddenParamFullTreeIfSelected ();
 
    /***** List start *****/
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT\">");
+   HTM_UL_Begin ("class=\"LIST_LEFT\"");
 
    /***** Select the complete course, not a group *****/
    fprintf (Gbl.F.Out,"<li class=\"%s\">"
diff --git a/swad_forum.c b/swad_forum.c
index 9ba64cbc..82c896ff 100644
--- a/swad_forum.c
+++ b/swad_forum.c
@@ -1583,7 +1583,7 @@ static void For_ShowForumList (void)
    For_PutFormWhichForums ();
 
    /***** Start list *****/
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_TREE\">");
+   HTM_UL_Begin ("class=\"LIST_TREE\"");
 
    /***** Links to global forums *****/
    For_WriteLinksToGblForums (IsLastItemInLevel);
@@ -1758,7 +1758,7 @@ static void For_PutFormWhichForums (void)
    Frm_StartForm (ActSeeFor);
    For_PutParamForumOrder (Gbl.Forum.ThreadsOrder);
    HTM_DIV_Begin ("class=\"SEL_BELOW_TITLE\"");
-   fprintf (Gbl.F.Out,"<ul>");
+   HTM_UL_Begin (NULL);
 
    for (ForumSet = (For_ForumSet_t) 0;
 	ForumSet < For_NUM_FORUM_SETS;
diff --git a/swad_info.c b/swad_info.c
index 273ee95d..a7b3dbf8 100644
--- a/swad_info.c
+++ b/swad_info.c
@@ -603,8 +603,7 @@ void Inf_WriteMsgYouMustReadInfo (void)
 
    /***** Write every information I must read *****/
    HTM_DIV_Begin ("class=\"CM\"");
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT\""
-	              " style=\"list-style-type:initial;\">");
+   HTM_UL_Begin ("class=\"LIST_I_MUST_READ\"");
    for (InfoType = (Inf_InfoType_t) 0;
 	InfoType < Inf_NUM_INFO_TYPES;
 	InfoType++)
diff --git a/swad_link.c b/swad_link.c
index 55d66954..d785df53 100644
--- a/swad_link.c
+++ b/swad_link.c
@@ -188,7 +188,7 @@ static void Lnk_WriteListOfLinks (void)
    unsigned NumLnk;
 
    /***** List start *****/
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT\">");
+   HTM_UL_Begin ("class=\"LIST_LEFT\"");
 
    /***** Write all links *****/
    for (NumLnk = 0;
diff --git a/swad_menu.c b/swad_menu.c
index 7244049b..1265d369 100644
--- a/swad_menu.c
+++ b/swad_menu.c
@@ -339,8 +339,8 @@ void Mnu_WriteMenuThisTab (void)
    bool IsTheSelectedAction;
 
    /***** Menu start *****/
-   fprintf (Gbl.F.Out,"<nav class=\"MENU_LIST_CONTAINER\">"
-	              "<ul class=\"MENU_LIST\">");
+   fprintf (Gbl.F.Out,"<nav class=\"MENU_LIST_CONTAINER\">");
+   HTM_UL_Begin ("class=\"MENU_LIST\"");
 
    /***** Loop to write all options in menu. Each row holds an option *****/
    for (NumOptInMenu = 0;
diff --git a/swad_privacy.c b/swad_privacy.c
index 747b202b..fa51a614 100644
--- a/swad_privacy.c
+++ b/swad_privacy.c
@@ -166,7 +166,7 @@ static void Pri_PutFormVisibility (const char *TxtLabel,
    HTM_TD_Begin ("class=\"LT\"");
    if (Action != ActUnk)
       Frm_StartFormAnchor (Action,Pri_PRIVACY_ID);
-   fprintf (Gbl.F.Out,"<ul class=\"PRI_LIST LIST_LEFT\">");
+   HTM_UL_Begin ("class=\"PRI_LIST LIST_LEFT\"");
    for (Visibility = Pri_VISIBILITY_USER;
 	Visibility <= Pri_VISIBILITY_WORLD;
 	Visibility++)
diff --git a/swad_profile.c b/swad_profile.c
index c59fff32..8b876ae8 100644
--- a/swad_profile.c
+++ b/swad_profile.c
@@ -399,7 +399,7 @@ void Prf_ShowDetailsUserProfile (const struct UsrData *UsrDat)
    /***** Left list *****/
    /* Start left list */
    HTM_DIV_Begin ("class=\"PRF_FIG_LEFT_CONTAINER\"");
-   fprintf (Gbl.F.Out,"<ul class=\"PRF_FIG_UL DAT_NOBR_N\">");
+   HTM_UL_Begin ("class=\"PRF_FIG_UL DAT_NOBR_N\"");
 
    /* Time since first click */
    Prf_ShowTimeSinceFirstClick (UsrDat,&UsrFigures);
@@ -424,7 +424,7 @@ void Prf_ShowDetailsUserProfile (const struct UsrData *UsrDat)
    if (!UsrIsBannedFromRanking)
      {
       /* Start right list */
-      fprintf (Gbl.F.Out,"<ul class=\"PRF_FIG_UL DAT_NOBR_N\">");
+      HTM_UL_Begin ("class=\"PRF_FIG_UL DAT_NOBR_N\"");
 
       /* Number of clicks */
       Prf_ShowNumClicks (UsrDat,&UsrFigures);
diff --git a/swad_project.c b/swad_project.c
index 6456cdd2..d0adc9c1 100644
--- a/swad_project.c
+++ b/swad_project.c
@@ -2023,7 +2023,7 @@ static void Prj_ShowTableAllProjectsMembersWithARole (const struct Project *Prj,
    if (NumUsrs)
      {
       /***** Write users *****/
-      fprintf (Gbl.F.Out,"<ul class=\"PRJ_LST_USR\">");
+      HTM_UL_Begin ("class=\"PRJ_LST_USR\"");
 
       for (NumUsr = 0;
 	   NumUsr < NumUsrs;
diff --git a/swad_report.c b/swad_report.c
index 437a64bc..1eb0654f 100644
--- a/swad_report.c
+++ b/swad_report.c
@@ -465,9 +465,8 @@ static void Rep_WriteHeader (const struct Rep_Report *Report)
    snprintf (Gbl.Title,sizeof (Gbl.Title),
 	     Txt_Report_of_use_of_PLATFORM,
 	     Cfg_PLATFORM_SHORT_NAME);
-   fprintf (Gbl.F.Rep,"<h1>%s</h1>"
-	              "<ul>",
-	    Gbl.Title);
+   fprintf (Gbl.F.Rep,"<h1>%s</h1>",Gbl.Title);
+   HTM_UL_Begin (NULL);
 
    /***** User *****/
    fprintf (Gbl.F.Rep,"<li>%s: <strong>%s</strong></li>",
@@ -508,9 +507,9 @@ static void Rep_WriteSectionPlatform (void)
 
    /***** Start section *****/
    fprintf (Gbl.F.Rep,"<section>"
-	              "<h3>%s</h3>"
-	              "<ul>",
+	              "<h3>%s</h3>",
 	    Txt_Teaching_platform);
+   HTM_UL_Begin (NULL);
 
    /***** Platform name *****/
    fprintf (Gbl.F.Rep,"<li>%s: %s, %s</li>",
@@ -547,9 +546,9 @@ static void Rep_WriteSectionUsrInfo (void)
 
    /***** Start section *****/
    fprintf (Gbl.F.Rep,"<section>"
-	              "<h3>%s</h3>"
-	              "<ul>",
+	              "<h3>%s</h3>",
 	    Txt_Personal_information);
+   HTM_UL_Begin (NULL);
 
    /***** User's name *****/
    fprintf (Gbl.F.Rep,"<li>%s: %s</li>",
@@ -609,9 +608,9 @@ static void Rep_WriteSectionUsrFigures (const struct Rep_Report *Report)
 
    /***** Start section *****/
    fprintf (Gbl.F.Rep,"<section>"
-                      "<h3>%s</h3>"
-	              "<ul>",
+                      "<h3>%s</h3>",
 	    Txt_Figures);
+   HTM_UL_Begin (NULL);
 
    /***** Time since first click until now *****/
    fprintf (Gbl.F.Rep,"<li>%s ",Txt_TIME_Since);
@@ -872,8 +871,8 @@ static void Rep_WriteSectionCurrentCourses (struct Rep_Report *Report)
             Txt_Courses);
    if (Report->CurrentTimeUTC.StrDate[0])
       fprintf (Gbl.F.Rep," (%s)",Report->CurrentTimeUTC.StrDate);
-   fprintf (Gbl.F.Rep,"</h3>"
-	              "<ul>");
+   fprintf (Gbl.F.Rep,"</h3>");
+   HTM_UL_Begin (NULL);
 
    /***** Number of courses in which the user is student/teacher *****/
    for (Role  = Rol_STD;
@@ -904,7 +903,7 @@ static void Rep_WriteSectionHistoricCourses (struct Rep_Report *Report)
 	    Txt_Courses,Txt_historical_log);
    fprintf (Gbl.F.Rep,Txt_Only_courses_with_more_than_X_clicks_are_shown,
             Rep_MIN_CLICKS_CRS);
-   fprintf (Gbl.F.Rep,"<ul>");
+   HTM_UL_Begin (NULL);
 
    /********* Historic clicks of a user without course selected ***********/
    Rep_GetAndWriteMyHistoricClicsWithoutCrs (Report);
diff --git a/swad_survey.c b/swad_survey.c
index f10764df..96570c21 100644
--- a/swad_survey.c
+++ b/swad_survey.c
@@ -727,7 +727,7 @@ static void Svy_WriteStatus (struct Survey *Svy)
    extern const char *Txt_SURVEY_You_have_not_answered;
 
    /***** Start list with items of status *****/
-   fprintf (Gbl.F.Out,"<ul>");
+   HTM_UL_Begin (NULL);
 
    /* Write whether survey is visible or hidden */
    if (Svy->Status.Visible)
diff --git a/swad_syllabus.c b/swad_syllabus.c
index 8b940b3a..97dbe797 100644
--- a/swad_syllabus.c
+++ b/swad_syllabus.c
@@ -142,7 +142,7 @@ void Syl_PutFormWhichSyllabus (void)
    /***** Form to select which syllabus I want to see (lectures/practicals) *****/
    Frm_StartForm (ActSeeSyl);
    HTM_DIV_Begin ("class=\"CM\"");
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT\">");
+   HTM_UL_Begin ("class=\"LIST_LEFT\"");
 
    for (WhichSyllabus = (Syl_WhichSyllabus_t) 0;
 	WhichSyllabus < For_NUM_FORUM_SETS;
diff --git a/swad_tab.c b/swad_tab.c
index 30fcae14..05f6c342 100644
--- a/swad_tab.c
+++ b/swad_tab.c
@@ -100,8 +100,8 @@ void Tab_DrawTabs (void)
 
    /***** Start tabs container *****/
    HTM_DIV_Begin ("class=\"%s\"",ClassHeadRow3[Gbl.Prefs.Theme]);
-   fprintf (Gbl.F.Out,"<nav id=\"tabs\">"
-	              "<ul class=\"TAB_LIST\">");
+   fprintf (Gbl.F.Out,"<nav id=\"tabs\">");
+   HTM_UL_Begin ("class=\"TAB_LIST\"");
 
    /***** Draw the tabs *****/
    for (NumTab = (Tab_Tab_t) 1;
diff --git a/swad_test.c b/swad_test.c
index b667eab0..721397ff 100644
--- a/swad_test.c
+++ b/swad_test.c
@@ -906,7 +906,7 @@ void Tst_ShowTagList (unsigned NumTags,MYSQL_RES *mysql_res)
    if (NumTags)
      {
       /***** Write the tags *****/
-      fprintf (Gbl.F.Out,"<ul>");
+      HTM_UL_Begin (NULL);
       for (NumTag = 0;
 	   NumTag < NumTags;
 	   NumTag++)
@@ -4773,7 +4773,7 @@ void Tst_GetAndWriteTagsQst (long QstCod)
    if ((NumRows = Tst_GetTagsQst (QstCod,&mysql_res)))	// Result: TagTxt
      {
       /***** Write the tags *****/
-      fprintf (Gbl.F.Out,"<ul class=\"TEST_TAG_LIST DAT_SMALL\">");
+      HTM_UL_Begin ("class=\"TEST_TAG_LIST DAT_SMALL\"");
       for (NumRow = 0;
 	   NumRow < NumRows;
 	   NumRow++)
diff --git a/swad_timeline.c b/swad_timeline.c
index 098886c9..e3c3b4b9 100644
--- a/swad_timeline.c
+++ b/swad_timeline.c
@@ -1014,16 +1014,16 @@ static void TL_ShowTimeline (char *Query,
       TL_PutLinkToViewNewPublications ();
 
       /* Hidden list where insert just received (not visible) publications via AJAX */
-      fprintf (Gbl.F.Out,"<ul id=\"just_now_timeline_list\" class=\"TL_LIST\">");
+      HTM_UL_Begin ("id=\"just_now_timeline_list\" class=\"TL_LIST\"");
       HTM_UL_End ();
 
       /* Hidden list where insert new (not visible) publications via AJAX */
-      fprintf (Gbl.F.Out,"<ul id=\"new_timeline_list\" class=\"TL_LIST\">");
+      HTM_UL_Begin ("id=\"new_timeline_list\" class=\"TL_LIST\"");
       HTM_UL_End ();
      }
 
    /***** List recent publications in timeline *****/
-   fprintf (Gbl.F.Out,"<ul id=\"timeline_list\" class=\"TL_LIST\">");
+   HTM_UL_Begin ("id=\"timeline_list\" class=\"TL_LIST\"");
 
    for (NumPub = 0, SocPub.PubCod = 0;
 	NumPub < NumPubsGot;
@@ -1057,7 +1057,7 @@ static void TL_ShowTimeline (char *Query,
       TL_PutLinkToViewOldPublications ();
 
       /***** Hidden list where insert old publications via AJAX *****/
-      fprintf (Gbl.F.Out,"<ul id=\"old_timeline_list\" class=\"TL_LIST\">");
+      HTM_UL_Begin ("id=\"old_timeline_list\" class=\"TL_LIST\"");
       HTM_UL_End ();
      }
 
@@ -1474,7 +1474,7 @@ static void TL_WriteNote (const struct TL_Note *SocNot,
      {
       Box_BoxBegin (NULL,NULL,NULL,
                     NULL,Box_CLOSABLE);
-      fprintf (Gbl.F.Out,"<ul class=\"TL_LIST\">");
+      HTM_UL_Begin ("class=\"TL_LIST\"");
      }
 
    /***** Start list item *****/
@@ -2317,8 +2317,8 @@ static void TL_PutFormToWriteNewPost (void)
    char PhotoURL[PATH_MAX + 1];
 
    /***** Start list *****/
-   fprintf (Gbl.F.Out,"<ul class=\"TL_LIST\">"
-                      "<li class=\"TL_WIDTH\">");
+   HTM_UL_Begin ("class=\"TL_LIST\"");
+   fprintf (Gbl.F.Out,"<li class=\"TL_WIDTH\">");
 
    /***** Left: write author's photo (my photo) *****/
    HTM_DIV_Begin ("class=\"TL_LEFT_PHOTO\"");
@@ -2638,9 +2638,8 @@ static void TL_WriteCommentsInNote (const struct TL_Note *SocNot)
 	 HTM_DIV_End ();
 
 	 /***** First list with comments initially hidden *****/
-	 fprintf (Gbl.F.Out,"<ul id=\"com_%s\" class=\"LIST_LEFT\""
-			    " style=\"display:none;\">",	// Initially hidden
-		  IdComments);
+	 HTM_UL_Begin ("id=\"com_%s\" class=\"LIST_LEFT\" style=\"display:none;\"",	// Initially hidden
+		       IdComments);
 	 for (NumCom = 0;
 	      NumCom < NumCommentsInitiallyHidden;
 	      NumCom++)
@@ -2658,7 +2657,7 @@ static void TL_WriteCommentsInNote (const struct TL_Note *SocNot)
         }
 
       /***** Second list with comments initially visible *****/
-      fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT\">");
+      HTM_UL_Begin ("class=\"LIST_LEFT\"");
       for (NumCom = NumCommentsInitiallyHidden;
 	   NumCom < NumComments;
 	   NumCom++)
@@ -2743,7 +2742,7 @@ static void TL_WriteComment (struct TL_Comment *SocCom,
       HTM_DIV_End ();
 
       HTM_DIV_Begin ("class=\"TL_RIGHT_CONT TL_RIGHT_WIDTH\"");
-      fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT\">");
+      HTM_UL_Begin ("class=\"LIST_LEFT\"");
      }
 
    /***** Start list item *****/
diff --git a/swad_user.c b/swad_user.c
index cc4ef580..06ca7f9e 100644
--- a/swad_user.c
+++ b/swad_user.c
@@ -8340,8 +8340,7 @@ static void Usr_PutOptionsListUsrs (const bool ICanChooseOption[Usr_LIST_USRS_NU
 
    /***** Write list of options *****/
    /* Start list of options */
-   fprintf (Gbl.F.Out,"<ul class=\"LIST_LEFT %s\">",
-	    The_ClassFormInBox[Gbl.Prefs.Theme]);
+   HTM_UL_Begin ("class=\"LIST_LEFT %s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
 
    /* Show option items */
    for (Opt  = (Usr_ListUsrsOption_t) 1;	// Skip unknown option