From 2194047dbf76264fa9631c9976380667f581a0c8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Antonio=20Ca=C3=B1as=20Vargas?= <acanas@ugr.es>
Date: Thu, 10 Oct 2019 10:41:00 +0200
Subject: [PATCH] Version19.31.36

---
 swad_changelog.h   |   3 +-
 swad_test.c        | 321 ++++++++++++++++++++++++---------------------
 swad_test_import.c |  30 +++--
 swad_timetable.c   |  36 ++---
 swad_user.c        |  99 +++++++-------
 swad_zip.c         |  10 +-
 6 files changed, 257 insertions(+), 242 deletions(-)

diff --git a/swad_changelog.h b/swad_changelog.h
index b82c15c2..6606e0f1 100644
--- a/swad_changelog.h
+++ b/swad_changelog.h
@@ -487,7 +487,7 @@ enscript -2 --landscape --color --file-align=2 --highlight --line-numbers -o - *
 En OpenSWAD:
 ps2pdf source.ps destination.pdf
 */
-#define Log_PLATFORM_VERSION	"SWAD 19.31.35 (2019-10-10)"
+#define Log_PLATFORM_VERSION	"SWAD 19.31.36 (2019-10-10)"
 #define CSS_FILE		"swad19.29.css"
 #define JS_FILE			"swad19.30.js"
 /*
@@ -495,6 +495,7 @@ ps2pdf source.ps destination.pdf
 // TODO: Un TFG preasignado sin estudiante tiene que salir un triángulo amarillo
 // TODO: Hacer un nuevo rol en los TFG: tutor externo (profesor de áreas no vinculadas con el centro, profesionales de empresas, etc.)
 
+	Version 19.31.36: Oct 10, 2019	Code refactoring in HTML tables. (246620 lines)
 	Version 19.31.35: Oct 10, 2019	Code refactoring in HTML tables. (246629 lines)
 	Version 19.31.34: Oct 10, 2019	Code refactoring in HTML tables. (246628 lines)
 	Version 19.31.33: Oct 09, 2019	Code refactoring in HTML tables. (246688 lines)
diff --git a/swad_test.c b/swad_test.c
index c52a1833..fb1dd342 100644
--- a/swad_test.c
+++ b/swad_test.c
@@ -355,14 +355,14 @@ void Tst_ShowFormAskTst (void)
          /***** Number of questions to generate ****/
          Tbl_StartRow ();
 
-         fprintf (Gbl.F.Out,"<td class=\"RIGHT_MIDDLE\">");
+         Tbl_StartCellAttr ("class=\"RIGHT_MIDDLE\"");
          fprintf (Gbl.F.Out,"<label for=\"NumQst\" class=\"%s\">"
                             "%s:"
                             "</label>",
                   The_ClassFormInBox[Gbl.Prefs.Theme],Txt_No_of_questions);
          Tbl_EndCell ();
 
-         fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">");
+         Tbl_StartCellAttr ("class=\"LEFT_MIDDLE\"");
          fprintf (Gbl.F.Out,"<input type=\"number\""
                             " id=\"NumQst\" name=\"NumQst\""
                             " min=\"%u\" max=\"%u\" value=\"%u\"",
@@ -997,11 +997,11 @@ static void Tst_ShowTestResultAfterAssess (long TstCod,unsigned *NumQstsNotBlank
 	 /***** Question does not exists *****/
          Tbl_StartRow ();
 
-	 fprintf (Gbl.F.Out,"<td class=\"BIG_INDEX RIGHT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+	 Tbl_StartCellAttr ("class=\"BIG_INDEX RIGHT_TOP COLOR%u\"",Gbl.RowEvenOdd);
 	 fprintf (Gbl.F.Out,"%u",NumQst + 1);
 	 Tbl_EndCell ();
 
-	 fprintf (Gbl.F.Out,"<td class=\"DAT_LIGHT LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+	 Tbl_StartCellAttr ("class=\"DAT_LIGHT LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
 	 fprintf (Gbl.F.Out,"%s",Txt_Question_removed);
 	 Tbl_EndCell ();
 
@@ -1043,7 +1043,7 @@ static void Tst_WriteQstAndAnsTest (Tst_ActionToDoWithQuestions_t ActionToDoWith
    Tbl_StartRow ();
 
    /***** Write number of question *****/
-   fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"RIGHT_TOP COLOR%u\"",Gbl.RowEvenOdd);
    fprintf (Gbl.F.Out,"<div class=\"BIG_INDEX\">%u</div>",NumQst + 1);
 
    /***** Write answer type (row[2]) *****/
@@ -1053,7 +1053,7 @@ static void Tst_WriteQstAndAnsTest (Tst_ActionToDoWithQuestions_t ActionToDoWith
    Tbl_EndCell ();
 
    /***** Write stem (row[4]) *****/
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
    Tst_WriteQstStem (row[4],"TEST_EXA");
 
    /***** Get and show media (row[6]) *****/
@@ -1698,22 +1698,22 @@ static void Tst_ShowFormSelTags (unsigned long NumRows,MYSQL_RES *mysql_res,
    Tbl_StartRow ();
 
    /***** Label *****/
-   fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP %s\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+   Tbl_StartCellAttr ("class=\"RIGHT_TOP %s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
    fprintf (Gbl.F.Out,"%s:",Txt_Tags);
    Tbl_EndCell ();
 
    /***** Select all tags *****/
    if (NumCols > 1)
-      fprintf (Gbl.F.Out,"<td colspan=\"%u\" class=\"LEFT_TOP\">",NumCols);
+      Tbl_StartCellAttr ("colspan=\"%u\" class=\"LEFT_TOP\"",NumCols);
    else
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+      Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
 
    Tbl_StartTablePadding (2);
    Tbl_StartRow ();
    if (!ShowOnlyEnabledTags)
       Tbl_PutEmptyCells (1);
 
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">");
+   Tbl_StartCellAttr ("class=\"LEFT_MIDDLE\"");
    fprintf (Gbl.F.Out,"<label class=\"%s\">"
 	              "<input type=\"checkbox\" name=\"AllTags\" value=\"Y\"",
             The_ClassFormInBox[Gbl.Prefs.Theme]);
@@ -1734,10 +1734,11 @@ static void Tst_ShowFormSelTags (unsigned long NumRows,MYSQL_RES *mysql_res,
      {
       row = mysql_fetch_row (mysql_res);
       Tbl_StartRow ();
+
       if (!ShowOnlyEnabledTags)
         {
          TagHidden = (row[2][0] == 'Y');
-         fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">");
+         Tbl_StartCellAttr ("class=\"LEFT_MIDDLE\"");
          fprintf (Gbl.F.Out,"<img src=\"%s/",Cfg_URL_ICON_PUBLIC);
          if (TagHidden)
             fprintf (Gbl.F.Out,"eye-slash.svg\" alt=\"%s\" title=\"%s",
@@ -1750,7 +1751,8 @@ static void Tst_ShowFormSelTags (unsigned long NumRows,MYSQL_RES *mysql_res,
          fprintf (Gbl.F.Out,"\" class=\"ICO_HIDDEN ICO16x16\" />");
          Tbl_EndCell ();
         }
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">");
+
+      Tbl_StartCellAttr ("class=\"LEFT_MIDDLE\"");
       fprintf (Gbl.F.Out,"<label class=\"DAT\">"
 	                 "<input type=\"checkbox\" name=\"ChkTag\" value=\"%s\"",
 	       row[1]);
@@ -1822,7 +1824,7 @@ static void Tst_ShowFormEditTags (void)
             Tst_PutIconDisable (TagCod,row[1]);
 
          /* Form to rename this tag */
-         fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">");
+         Tbl_StartCellAttr ("class=\"LEFT_MIDDLE\"");
          Frm_StartForm (ActRenTag);
          Par_PutHiddenParamString ("OldTagTxt",row[1]);
          fprintf (Gbl.F.Out,"<input type=\"text\" name=\"NewTagTxt\""
@@ -1831,6 +1833,7 @@ static void Tst_ShowFormEditTags (void)
                   Tst_MAX_CHARS_TAG,row[1],Gbl.Form.Id);
          Frm_EndForm ();
          Tbl_EndCell ();
+
          Tbl_EndRow ();
         }
 
@@ -1852,7 +1855,7 @@ static void Tst_PutIconEnable (long TagCod,const char *TagTxt)
   {
    extern const char *Txt_Tag_X_not_allowed_Click_to_allow_it;
 
-   fprintf (Gbl.F.Out,"<td class=\"BM\">");
+   Tbl_StartCellAttr ("class=\"BM\"");
    Frm_StartForm (ActEnableTag);
    Par_PutHiddenParamLong ("TagCod",TagCod);
    snprintf (Gbl.Title,sizeof (Gbl.Title),
@@ -1871,7 +1874,7 @@ static void Tst_PutIconDisable (long TagCod,const char *TagTxt)
   {
    extern const char *Txt_Tag_X_allowed_Click_to_disable_it;
 
-   fprintf (Gbl.F.Out,"<td class=\"BM\">");
+   Tbl_StartCellAttr ("class=\"BM\"");
    Frm_StartForm (ActDisableTag);
    Par_PutHiddenParamLong ("TagCod",TagCod);
    snprintf (Gbl.Title,sizeof (Gbl.Title),
@@ -1918,11 +1921,11 @@ static void Tst_ShowFormConfigTst (void)
    Tbl_StartTablePadding (2);
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+   Tbl_StartCellAttr ("class=\"%s RIGHT_TOP\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
    fprintf (Gbl.F.Out,"%s:",Txt_Plugins);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_BOTTOM\">");
+   Tbl_StartCellAttr ("class=\"LEFT_BOTTOM\"");
    for (Pluggable = Tst_PLUGGABLE_NO;
 	Pluggable <= Tst_PLUGGABLE_YES;
 	Pluggable++)
@@ -1944,11 +1947,11 @@ static void Tst_ShowFormConfigTst (void)
    /***** Number of questions *****/
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+   Tbl_StartCellAttr ("class=\"%s RIGHT_TOP\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
    fprintf (Gbl.F.Out,"%s:",Txt_No_of_questions);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_BOTTOM\">");
+   Tbl_StartCellAttr ("class=\"LEFT_BOTTOM\"");
    Tbl_StartTablePadding (2);
    Tst_PutInputFieldNumQst ("NumQstMin",Txt_minimum,
                             Gbl.Test.Config.Min);	// Minimum number of questions
@@ -1964,7 +1967,7 @@ static void Tst_ShowFormConfigTst (void)
    /***** Minimum time between consecutive tests, per question *****/
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP\">");
+   Tbl_StartCellAttr ("class=\"RIGHT_TOP\"");
    fprintf (Gbl.F.Out,"<label for=\"MinTimeNxtTstPerQst\" class=\"%s\">"
 	              "%s:"
 	              "</label>",
@@ -1972,7 +1975,7 @@ static void Tst_ShowFormConfigTst (void)
             Txt_Minimum_time_seconds_per_question_between_two_tests);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_BOTTOM\">");
+   Tbl_StartCellAttr ("class=\"LEFT_BOTTOM\"");
    fprintf (Gbl.F.Out,"<input type=\"text\""
                       " id=\"MinTimeNxtTstPerQst\" name=\"MinTimeNxtTstPerQst\""
                       " size=\"7\" maxlength=\"7\" value=\"%lu\""
@@ -1985,11 +1988,11 @@ static void Tst_ShowFormConfigTst (void)
    /***** Feedback to students *****/
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+   Tbl_StartCellAttr ("class=\"%s RIGHT_TOP\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
    fprintf (Gbl.F.Out,"%s:",Txt_Feedback_to_students);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_BOTTOM\">");
+   Tbl_StartCellAttr ("class=\"LEFT_BOTTOM\"");
    for (Feedback = (Tst_Feedback_t) 0;
 	Feedback < Tst_NUM_TYPES_FEEDBACK;
 	Feedback++)
@@ -2028,12 +2031,12 @@ static void Tst_PutInputFieldNumQst (const char *Field,const char *Label,
   {
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"RIGHT_MIDDLE\">");
+   Tbl_StartCellAttr ("class=\"RIGHT_MIDDLE\"");
    fprintf (Gbl.F.Out,"<label for=\"%s\" class=\"DAT\">%s</label>",
            Field,Label);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">");
+   Tbl_StartCellAttr ("class=\"LEFT_MIDDLE\"");
    fprintf (Gbl.F.Out,"<input type=\"text\""
                       " id=\"%s\" name=\"%s\""
                       " size=\"3\" maxlength=\"3\" value=\"%u\""
@@ -2330,20 +2333,20 @@ static void Tst_ShowFormAnswerTypes (unsigned NumCols)
    Tbl_StartRow ();
 
    /***** Label *****/
-   fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP %s\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+   Tbl_StartCellAttr ("class=\"RIGHT_TOP %s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
    fprintf (Gbl.F.Out,"%s:",Txt_Types_of_answers);
    Tbl_EndCell ();
 
    /***** Select all types of answers *****/
    if (NumCols > 1)
-      fprintf (Gbl.F.Out,"<td colspan=\"%u\" class=\"LEFT_TOP\">",NumCols);
+      Tbl_StartCellAttr ("colspan=\"%u\" class=\"LEFT_TOP\"",NumCols);
    else
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+      Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
    Tbl_StartTablePadding (2);
 
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">");
+   Tbl_StartCellAttr ("class=\"LEFT_MIDDLE\"");
    fprintf (Gbl.F.Out,"<label class=\"%s\">"
                       "<input type=\"checkbox\" name=\"AllAnsTypes\" value=\"Y\"",
             The_ClassFormInBox[Gbl.Prefs.Theme]);
@@ -2364,7 +2367,7 @@ static void Tst_ShowFormAnswerTypes (unsigned NumCols)
      {
       Tbl_StartRow ();
 
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">");
+      Tbl_StartCellAttr ("class=\"LEFT_MIDDLE\"");
       fprintf (Gbl.F.Out,"<label class=\"DAT\">"
                          "<input type=\"checkbox\" name=\"AnswerType\" value=\"%u\"",
                (unsigned) AnsType);
@@ -2905,9 +2908,10 @@ static void Tst_ListOneOrMoreQuestionsForEdition (unsigned long NumRows,
       if ((Gbl.Test.QstCod = Str_ConvertStrCodToLongCod (row[0])) < 0)
          Lay_ShowErrorAndExit ("Wrong code of question.");
 
-      /***** Icons *****/
       Tbl_StartRow ();
-      fprintf (Gbl.F.Out,"<td class=\"BT%u\">",Gbl.RowEvenOdd);
+
+      /***** Icons *****/
+      Tbl_StartCellAttr ("class=\"BT%u\"",Gbl.RowEvenOdd);
 
       /* Write icon to remove the question */
       Frm_StartForm (ActReqRemTstQst);
@@ -2925,7 +2929,7 @@ static void Tst_ListOneOrMoreQuestionsForEdition (unsigned long NumRows,
       Tbl_EndCell ();
 
       /* Write number of question */
-      fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"RIGHT_TOP COLOR%u\"",Gbl.RowEvenOdd);
       fprintf (Gbl.F.Out,"<div class=\"BIG_INDEX\">%lu</div>",NumRow + 1);
 
       /* Write answer type (row[2]) */
@@ -2935,14 +2939,14 @@ static void Tst_ListOneOrMoreQuestionsForEdition (unsigned long NumRows,
       Tbl_EndCell ();
 
       /* Write question code */
-      fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_TOP COLOR%u\"",Gbl.RowEvenOdd);
       fprintf (Gbl.F.Out,"%ld&nbsp;",Gbl.Test.QstCod);
       Tbl_EndCell ();
 
       /* Write the date (row[1] has the UTC date-time) */
       TimeUTC = Dat_GetUNIXTimeFromStr (row[1]);
-      fprintf (Gbl.F.Out,"<td id=\"tst_date_%u\" class=\"DAT_SMALL CENTER_TOP COLOR%u\">",
-	       UniqueId,Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("id=\"tst_date_%u\" class=\"DAT_SMALL CENTER_TOP COLOR%u\"",
+			 UniqueId,Gbl.RowEvenOdd);
       fprintf (Gbl.F.Out,"<script type=\"text/javascript\">"
                          "writeLocalDateHMSFromUTC('tst_date_%u',%ld,"
                          "%u,'<br />','%s',true,false,0x7);"
@@ -2952,12 +2956,12 @@ static void Tst_ListOneOrMoreQuestionsForEdition (unsigned long NumRows,
       Tbl_EndCell ();
 
       /* Write the question tags */
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
       Tst_GetAndWriteTagsQst (Gbl.Test.QstCod);
       Tbl_EndCell ();
 
       /* Write if shuffle is enabled (row[3]) */
-      fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_TOP COLOR%u\"",Gbl.RowEvenOdd);
       if (Gbl.Test.AnswerType == Tst_ANS_UNIQUE_CHOICE ||
           Gbl.Test.AnswerType == Tst_ANS_MULTIPLE_CHOICE)
         {
@@ -2978,7 +2982,7 @@ static void Tst_ListOneOrMoreQuestionsForEdition (unsigned long NumRows,
       Tbl_EndCell ();
 
       /* Write stem (row[4]) */
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
       Tst_WriteQstStem (row[4],"TEST_EDI");
 
       /***** Get and show media (row[6]) *****/
@@ -3012,12 +3016,12 @@ static void Tst_ListOneOrMoreQuestionsForEdition (unsigned long NumRows,
       Str_SetDecimalPointToLocal ();	// Return to local system
 
       /* Write number of times this question has been answered */
-      fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_TOP COLOR%u\"",Gbl.RowEvenOdd);
       fprintf (Gbl.F.Out,"%lu",NumHitsThisQst);
       Tbl_EndCell ();
 
       /* Write average score */
-      fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_TOP COLOR%u\"",Gbl.RowEvenOdd);
       if (NumHitsThisQst)
          fprintf (Gbl.F.Out,"%.2f",TotalScoreThisQst /
                                    (double) NumHitsThisQst);
@@ -3026,18 +3030,19 @@ static void Tst_ListOneOrMoreQuestionsForEdition (unsigned long NumRows,
       Tbl_EndCell ();
 
       /* Write number of times this question has been answered (not blank) */
-      fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_TOP COLOR%u\"",Gbl.RowEvenOdd);
       fprintf (Gbl.F.Out,"%lu",NumHitsNotBlankThisQst);
       Tbl_EndCell ();
 
       /* Write average score (not blank) */
-      fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_TOP COLOR%u\"",Gbl.RowEvenOdd);
       if (NumHitsNotBlankThisQst)
          fprintf (Gbl.F.Out,"%.2f",TotalScoreThisQst /
                                    (double) NumHitsNotBlankThisQst);
       else
          fprintf (Gbl.F.Out,"N.A.");
       Tbl_EndCell ();
+
       Tbl_EndRow ();
 
       /***** Destroy test question *****/
@@ -3147,9 +3152,10 @@ static void Tst_ListOneOrMoreQuestionsForSelection (unsigned long NumRows,
       if ((Gbl.Test.QstCod = Str_ConvertStrCodToLongCod (row[0])) < 0)
          Lay_ShowErrorAndExit ("Wrong code of question.");
 
-      /***** Icons *****/
       Tbl_StartRow ();
-      fprintf (Gbl.F.Out,"<td class=\"BT%u\">",Gbl.RowEvenOdd);
+
+      /***** Icons *****/
+      Tbl_StartCellAttr ("class=\"BT%u\"",Gbl.RowEvenOdd);
 
       /* Write checkbox to select the question */
       fprintf (Gbl.F.Out,"<input type=\"checkbox\" name=\"QstCods\""
@@ -3157,19 +3163,19 @@ static void Tst_ListOneOrMoreQuestionsForSelection (unsigned long NumRows,
 	       Gbl.Test.QstCod);
 
       /* Write number of question */
-      fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_TOP COLOR%u\"",Gbl.RowEvenOdd);
       fprintf (Gbl.F.Out,"%lu&nbsp;",NumRow + 1);
       Tbl_EndCell ();
 
       /* Write question code */
-      fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_TOP COLOR%u\"",Gbl.RowEvenOdd);
       fprintf (Gbl.F.Out,"%ld&nbsp;",Gbl.Test.QstCod);
       Tbl_EndCell ();
 
       /* Write the date (row[1] has the UTC date-time) */
       TimeUTC = Dat_GetUNIXTimeFromStr (row[1]);
-      fprintf (Gbl.F.Out,"<td id=\"tst_date_%u\" class=\"DAT_SMALL CENTER_TOP COLOR%u\">",
-               UniqueId,Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("id=\"tst_date_%u\" class=\"DAT_SMALL CENTER_TOP COLOR%u\">",
+			 UniqueId,Gbl.RowEvenOdd);
       fprintf (Gbl.F.Out,"<script type=\"text/javascript\">"
                          "writeLocalDateHMSFromUTC('tst_date_%u',%ld,"
                          "%u,'<br />','%s',true,false,0x7);"
@@ -3179,18 +3185,18 @@ static void Tst_ListOneOrMoreQuestionsForSelection (unsigned long NumRows,
       Tbl_EndCell ();
 
       /* Write the question tags */
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
       Tst_GetAndWriteTagsQst (Gbl.Test.QstCod);
       Tbl_EndCell ();
 
       /* Write the question type (row[2]) */
       Gbl.Test.AnswerType = Tst_ConvertFromStrAnsTypDBToAnsTyp (row[2]);
-      fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_TOP COLOR%u\"",Gbl.RowEvenOdd);
       fprintf (Gbl.F.Out,"%s&nbsp;",Txt_TST_STR_ANSWER_TYPES[Gbl.Test.AnswerType]);
       Tbl_EndCell ();
 
       /* Write if shuffle is enabled (row[3]) */
-      fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_TOP COLOR%u\"",Gbl.RowEvenOdd);
 
       fprintf (Gbl.F.Out,"<input type=\"checkbox\" name=\"Shuffle\" value=\"Y\"");
       if (row[3][0] == 'Y')
@@ -3200,7 +3206,7 @@ static void Tst_ListOneOrMoreQuestionsForSelection (unsigned long NumRows,
       Tbl_EndCell ();
 
       /* Write stem (row[4]) */
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
       Tst_WriteQstStem (row[4],"TEST_EDI");
 
       /***** Get and show media (row[6]) *****/
@@ -3411,10 +3417,11 @@ void Tst_WriteAnswersEdit (long QstCod)
 	    Gbl.Test.Answer.Options[NumOpt].Media.MedCod = Str_ConvertStrCodToLongCod (row[3]);
 	    Med_GetMediaDataByCod (&Gbl.Test.Answer.Options[NumOpt].Media);
 
+            Tbl_StartRow ();
+
             /* Put an icon that indicates whether the answer
                is correct or wrong (row[4]) */
-            Tbl_StartRow ();
-            fprintf (Gbl.F.Out,"<td class=\"BT%u\">",Gbl.RowEvenOdd);
+            Tbl_StartCellAttr ("class=\"BT%u\"",Gbl.RowEvenOdd);
             if (row[4][0] == 'Y')
                fprintf (Gbl.F.Out,"<img src=\"%s/check.svg\""
         	                  " alt=\"%s\" title=\"%s\""
@@ -3425,12 +3432,13 @@ void Tst_WriteAnswersEdit (long QstCod)
             Tbl_EndCell ();
 
             /* Write the number of option */
-            fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL LEFT_TOP\">");
+            Tbl_StartCellAttr ("class=\"DAT_SMALL LEFT_TOP\"");
             fprintf (Gbl.F.Out,"%c)&nbsp;",'a' + (char) NumOpt);
             Tbl_EndCell ();
 
-            /* Write the text of the answer and the image */
-            fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+            Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
+
+            /* Write the text of the answer and the media */
             fprintf (Gbl.F.Out,"<div class=\"TEST_EDI\">"
         	               "%s",
                      Answer);
@@ -3658,25 +3666,27 @@ static void Tst_WriteTFAnsAssessTest (struct UsrData *UsrDat,
    Tst_WriteHeadUserCorrect (UsrDat);
    Tbl_EndRow ();
 
-   /***** Write the user answer *****/
    Tbl_StartRow ();
-   fprintf (Gbl.F.Out,"<td class=\"%s CENTER_MIDDLE\">",
-            (Gbl.Test.Config.Feedback == Tst_FEEDBACK_EACH_GOOD_BAD ||
-             Gbl.Test.Config.Feedback == Tst_FEEDBACK_FULL_FEEDBACK) ?
-            (AnsTF == row[1][0] ? "ANS_OK" :
-        	                  "ANS_BAD") :
-            "ANS_0");
+
+   /***** Write the user answer *****/
+   Tbl_StartCellAttr ("class=\"%s CENTER_MIDDLE\"",
+		      (Gbl.Test.Config.Feedback == Tst_FEEDBACK_EACH_GOOD_BAD ||
+		       Gbl.Test.Config.Feedback == Tst_FEEDBACK_FULL_FEEDBACK) ?
+		      (AnsTF == row[1][0] ? "ANS_OK" :
+					    "ANS_BAD") :
+		      "ANS_0");
    Tst_WriteAnsTF (AnsTF);
    Tbl_EndCell ();
 
    /***** Write the correct answer *****/
-   fprintf (Gbl.F.Out,"<td class=\"ANS_0 CENTER_MIDDLE\">");
+   Tbl_StartCellAttr ("class=\"ANS_0 CENTER_MIDDLE\"");
    if (Gbl.Test.Config.Feedback == Tst_FEEDBACK_EACH_GOOD_BAD ||
        Gbl.Test.Config.Feedback == Tst_FEEDBACK_FULL_FEEDBACK)
       Tst_WriteAnsTF (row[1][0]);
    else
       fprintf (Gbl.F.Out,"?");
    Tbl_EndCell ();
+
    Tbl_EndRow ();
 
    /***** Write the mark *****/
@@ -3759,10 +3769,10 @@ static void Tst_WriteChoiceAnsViewTest (unsigned NumQst,long QstCod,bool Shuffle
       Gbl.Test.Answer.Options[NumOpt].Media.MedCod = Str_ConvertStrCodToLongCod (row[3]);
       Med_GetMediaDataByCod (&Gbl.Test.Answer.Options[NumOpt].Media);
 
-      /***** Write selectors and letter of this option *****/
       Tbl_StartRow ();
 
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+      /***** Write selectors and letter of this option *****/
+      Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
       snprintf (ParamName,sizeof (ParamName),
 	        "Ind%06u",
 		NumQst);
@@ -3779,7 +3789,7 @@ static void Tst_WriteChoiceAnsViewTest (unsigned NumQst,long QstCod,bool Shuffle
                NumQst,Index);
       Tbl_EndCell ();
 
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+      Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
       fprintf (Gbl.F.Out,"<label for=\"Ans%06u_%u\" class=\"ANS_TXT\">"
 	                 "%c)&nbsp;"
 	                 "</label>",
@@ -3788,7 +3798,7 @@ static void Tst_WriteChoiceAnsViewTest (unsigned NumQst,long QstCod,bool Shuffle
       Tbl_EndCell ();
 
       /***** Write the option text *****/
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+      Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
       fprintf (Gbl.F.Out,"<label for=\"Ans%06u_%u\" class=\"ANS_TXT\">"
 	                 "%s"
 	                 "</label>",
@@ -3798,6 +3808,7 @@ static void Tst_WriteChoiceAnsViewTest (unsigned NumQst,long QstCod,bool Shuffle
                      "TEST_MED_SHOW_CONTAINER",
                      "TEST_MED_SHOW");
       Tbl_EndCell ();
+
       Tbl_EndRow ();
      }
 
@@ -3876,7 +3887,8 @@ static void Tst_WriteChoiceAnsAssessTest (struct UsrData *UsrDat,
 	    Ans.Class = "ANS_0";
 	    Ans.Str   = "&bull;";
 	   }
-	 fprintf (Gbl.F.Out,"<td class=\"%s CENTER_TOP\" title=\"%s\">",
+
+	 Tbl_StartCellAttr ("class=\"%s CENTER_TOP\" title=\"%s\"",
 		  Ans.Class,Txt_TST_Answer_given_by_the_user);
 	 fprintf (Gbl.F.Out,"%s",Ans.Str);
 	 Tbl_EndCell ();
@@ -3890,7 +3902,7 @@ static void Tst_WriteChoiceAnsAssessTest (struct UsrData *UsrDat,
         {
          if (Gbl.Test.Answer.Options[Indexes[NumOpt]].Correct)
            {
-	    fprintf (Gbl.F.Out,"<td class=\"ANS_0 CENTER_TOP\" title=\"%s\">",
+	    Tbl_StartCellAttr ("class=\"ANS_0 CENTER_TOP\" title=\"%s\"",
 		     Txt_TST_Answer_given_by_the_teachers);
 	    fprintf (Gbl.F.Out,"&bull;");
 	    Tbl_EndCell ();
@@ -3900,18 +3912,18 @@ static void Tst_WriteChoiceAnsAssessTest (struct UsrData *UsrDat,
         }
       else
 	{
-	 fprintf (Gbl.F.Out,"<td class=\"ANS_0 CENTER_TOP\">");
+	 Tbl_StartCellAttr ("class=\"ANS_0 CENTER_TOP\"");
 	 fprintf (Gbl.F.Out,"?");
          Tbl_EndCell ();
 	}
 
       /* Answer letter (a, b, c,...) */
-      fprintf (Gbl.F.Out,"<td class=\"ANS_TXT LEFT_TOP\">");
+      Tbl_StartCellAttr ("class=\"ANS_TXT LEFT_TOP\"");
       fprintf (Gbl.F.Out,"%c)&nbsp;",'a' + (char) NumOpt);
       Tbl_EndCell ();
 
       /* Answer text and feedback */
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+      Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
       fprintf (Gbl.F.Out,"<div class=\"ANS_TXT\">"
 	                 "%s",
                Gbl.Test.Answer.Options[Indexes[NumOpt]].Text);
@@ -3927,6 +3939,7 @@ static void Tst_WriteChoiceAnsAssessTest (struct UsrData *UsrDat,
 				  "</div>",
 			Gbl.Test.Answer.Options[Indexes[NumOpt]].Feedback);
       Tbl_EndCell ();
+
       Tbl_EndRow ();
      }
 
@@ -4217,7 +4230,7 @@ static void Tst_WriteChoiceAnsViewMatch (long MchCod,unsigned QstInd,long QstCod
       Tbl_StartRow ();
 
       /***** Write letter for this option *****/
-      fprintf (Gbl.F.Out,"<td class=\"MATCH_TCH_BUTTON_TD\">");
+      Tbl_StartCellAttr ("class=\"MATCH_TCH_BUTTON_TD\"");
       fprintf (Gbl.F.Out,"<div class=\"MATCH_TCH_BUTTON BT_%c\">"
 			 "%c"
 	                 "</div>",
@@ -4226,7 +4239,7 @@ static void Tst_WriteChoiceAnsViewMatch (long MchCod,unsigned QstInd,long QstCod
       Tbl_EndCell ();
 
       /***** Write the option text and the result *****/
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">");
+      Tbl_StartCellAttr ("class=\"LEFT_MIDDLE\"");
       fprintf (Gbl.F.Out,"<label for=\"Ans%06u_%u\" class=\"%s\">"
 	                 "%s"
 	                 "</label>",
@@ -4329,8 +4342,9 @@ static void Tst_WriteTextAnsAssessTest (struct UsrData *UsrDat,
    Tst_WriteHeadUserCorrect (UsrDat);
    Tbl_EndRow ();
 
-   /***** Write the user answer *****/
    Tbl_StartRow ();
+
+   /***** Write the user answer *****/
    fprintf (Gbl.F.Out,"<td");
    if (Gbl.Test.StrAnswersOneQst[NumQst][0])	// If user has answered the question
      {
@@ -4377,20 +4391,22 @@ static void Tst_WriteTextAnsAssessTest (struct UsrData *UsrDat,
    if (Gbl.Test.Config.Feedback == Tst_FEEDBACK_EACH_GOOD_BAD ||
        Gbl.Test.Config.Feedback == Tst_FEEDBACK_FULL_FEEDBACK)
      {
-      fprintf (Gbl.F.Out,"<td class=\"CENTER_TOP\">");
+      Tbl_StartCellAttr ("class=\"CENTER_TOP\"");
       Tbl_StartTablePadding (2);
 
       for (NumOpt = 0;
 	   NumOpt < Gbl.Test.Answer.NumOptions;
 	   NumOpt++)
         {
+	 Tbl_StartRow ();
+
          /* Answer letter (a, b, c,...) */
-         fprintf (Gbl.F.Out,"<td class=\"ANS_0 LEFT_TOP\">");
+         Tbl_StartCellAttr ("class=\"ANS_0 LEFT_TOP\"");
          fprintf (Gbl.F.Out,"%c)&nbsp;",'a' + (char) NumOpt);
          Tbl_EndCell ();
 
          /* Answer text and feedback */
-         fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+         Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
          fprintf (Gbl.F.Out,"<div class=\"ANS_0\">"
                             "%s"
                             "</div>",
@@ -4403,17 +4419,19 @@ static void Tst_WriteTextAnsAssessTest (struct UsrData *UsrDat,
 				     "</div>",
 			   Gbl.Test.Answer.Options[NumOpt].Feedback);
 	 Tbl_EndCell ();
+
 	 Tbl_EndRow ();
         }
 
       Tbl_EndTable ();
+      Tbl_EndCell ();
      }
    else
      {
-      fprintf (Gbl.F.Out,"<td class=\"ANS_0 CENTER_TOP\">");
+      Tbl_StartCellAttr ("class=\"ANS_0 CENTER_TOP\"");
       fprintf (Gbl.F.Out,"?");
+      Tbl_EndCell ();
      }
-   Tbl_EndCell ();
    Tbl_EndRow ();
 
    /***** Compute the mark *****/
@@ -4493,8 +4511,9 @@ static void Tst_WriteIntAnsAssessTest (struct UsrData *UsrDat,
    Tst_WriteHeadUserCorrect (UsrDat);
    Tbl_EndRow ();
 
-   /***** Write the user answer *****/
    Tbl_StartRow ();
+
+   /***** Write the user answer *****/
    fprintf (Gbl.F.Out,"<td");
    if (Gbl.Test.StrAnswersOneQst[NumQst][0])		// If user has answered the question
      {
@@ -4519,13 +4538,14 @@ static void Tst_WriteIntAnsAssessTest (struct UsrData *UsrDat,
    Tbl_EndCell ();
 
    /***** Write the correct answer *****/
-   fprintf (Gbl.F.Out,"<td class=\"ANS_0 CENTER_MIDDLE\">");
+   Tbl_StartCellAttr ("class=\"ANS_0 CENTER_MIDDLE\"");
    if (Gbl.Test.Config.Feedback == Tst_FEEDBACK_EACH_GOOD_BAD ||
        Gbl.Test.Config.Feedback == Tst_FEEDBACK_FULL_FEEDBACK)
       fprintf (Gbl.F.Out,"%ld",IntAnswerCorr);
    else
       fprintf (Gbl.F.Out,"?");
    Tbl_EndCell ();
+
    Tbl_EndRow ();
 
    /***** Compute the score *****/
@@ -4618,8 +4638,9 @@ static void Tst_WriteFloatAnsAssessTest (struct UsrData *UsrDat,
    Tst_WriteHeadUserCorrect (UsrDat);
    Tbl_EndRow ();
 
-   /***** Write the user answer *****/
    Tbl_StartRow ();
+
+   /***** Write the user answer *****/
    fprintf (Gbl.F.Out,"<td");
    if (Gbl.Test.StrAnswersOneQst[NumQst][0])	// If user has answered the question
      {
@@ -4641,13 +4662,14 @@ static void Tst_WriteFloatAnsAssessTest (struct UsrData *UsrDat,
    Tbl_EndCell ();
 
    /***** Write the correct answer *****/
-   fprintf (Gbl.F.Out,"<td class=\"ANS_0 CENTER_MIDDLE\">");
+   Tbl_StartCellAttr ("class=\"ANS_0 CENTER_MIDDLE\"");
    if (Gbl.Test.Config.Feedback == Tst_FEEDBACK_EACH_GOOD_BAD ||
        Gbl.Test.Config.Feedback == Tst_FEEDBACK_FULL_FEEDBACK)
       fprintf (Gbl.F.Out,"[%lg; %lg]",FloatAnsCorr[0],FloatAnsCorr[1]);
    else
       fprintf (Gbl.F.Out,"?");
    Tbl_EndCell ();
+
    Tbl_EndRow ();
 
    /***** Compute mark *****/
@@ -4695,11 +4717,11 @@ static void Tst_WriteHeadUserCorrect (struct UsrData *UsrDat)
    extern const char *Txt_User[Usr_NUM_SEXS];
    extern const char *Txt_ROLES_PLURAL_Abc[Rol_NUM_ROLES][Usr_NUM_SEXS];
 
-   fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_MIDDLE\">");
+   Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_MIDDLE\"");
    fprintf (Gbl.F.Out,"%s",Txt_User[UsrDat->Sex]);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_MIDDLE\">");
+   Tbl_StartCellAttr ("class=\"DAT_SMALL CENTER_MIDDLE\"");
    fprintf (Gbl.F.Out,"%s",Txt_ROLES_PLURAL_Abc[Rol_TCH][Usr_SEX_UNKNOWN]);
    Tbl_EndCell ();
   }
@@ -4713,7 +4735,7 @@ static void Tst_WriteScoreStart (unsigned ColSpan)
    extern const char *Txt_Score;
 
    Tbl_StartRow ();
-   fprintf (Gbl.F.Out,"<td colspan=\"%u\" class=\"DAT_SMALL LEFT_MIDDLE\">",ColSpan);
+   Tbl_StartCellAttr ("colspan=\"%u\" class=\"DAT_SMALL LEFT_MIDDLE\"",ColSpan);
    fprintf (Gbl.F.Out,"%s: <span class=\"",Txt_Score);
   }
 
@@ -5080,7 +5102,7 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
 
    /***** Help for text editor *****/
    Tbl_StartRow ();
-   fprintf (Gbl.F.Out,"<td colspan=\"2\">");
+   Tbl_StartCellAttr ("colspan=\"2\"");
    Lay_HelpPlainEditor ();
    Tbl_EndCell ();
    Tbl_EndRow ();
@@ -5091,11 +5113,11 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
    /***** Write the tags *****/
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP %s\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+   Tbl_StartCellAttr ("class=\"RIGHT_TOP %s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
    fprintf (Gbl.F.Out,"%s:",Txt_Tags);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+   Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
    Tbl_StartTablePadding (2);	// Table for tags
 
    for (NumTag = 0;
@@ -5105,7 +5127,7 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
       Tbl_StartRow ();
 
       /***** Write the tags already existing in a selector *****/
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">");
+      Tbl_StartCellAttr ("class=\"LEFT_MIDDLE\"");
       fprintf (Gbl.F.Out,"<select id=\"SelDesc%u\" name=\"SelDesc%u\""
 	                 " class=\"TAG_SEL\" onchange=\"changeTxtTag('%u')\">",
                NumTag,NumTag,NumTag);
@@ -5140,7 +5162,7 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
       Tbl_EndCell ();
 
       /***** Input of a new tag *****/
-      fprintf (Gbl.F.Out,"<td class=\"RIGHT_MIDDLE\">");
+      Tbl_StartCellAttr ("class=\"RIGHT_MIDDLE\"");
       fprintf (Gbl.F.Out,"<input type=\"text\" id=\"TagTxt%u\" name=\"TagTxt%u\""
                          " class=\"TAG_TXT\" maxlength=\"%u\" value=\"%s\""
                          " onchange=\"changeSelTag('%u')\" />",
@@ -5161,13 +5183,13 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
    /***** Stem and image *****/
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP\">");
+   Tbl_StartCellAttr ("class=\"RIGHT_TOP\"");
    fprintf (Gbl.F.Out,"<label for=\"Stem\" class=\"%s\">%s:</label>",
             The_ClassFormInBox[Gbl.Prefs.Theme],
             Txt_Wording);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+   Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
    fprintf (Gbl.F.Out,"<textarea id=\"Stem\" name=\"Stem\""
                       " class=\"STEM_TEXTAREA\" rows=\"5\" required=\"required\">"
                       "%s"
@@ -5195,11 +5217,11 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
    /***** Type of answer *****/
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP %s\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+   Tbl_StartCellAttr ("class=\"RIGHT_TOP %s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
    fprintf (Gbl.F.Out,"%s:",Txt_Type);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"%s LEFT_TOP\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+   Tbl_StartCellAttr ("class=\"%s LEFT_TOP\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
    for (AnsType = (Tst_AnswerType_t) 0;
 	AnsType < Tst_NUM_ANS_TYPES;
 	AnsType++)
@@ -5222,11 +5244,11 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
    /* Integer answer */
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP %s\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+   Tbl_StartCellAttr ("class=\"RIGHT_TOP %s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
    fprintf (Gbl.F.Out,"%s:",Txt_Answers);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+   Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
    fprintf (Gbl.F.Out,"<label class=\"%s\">"
                       "%s:&nbsp;"
                       "<input type=\"text\" name=\"AnsInt\""
@@ -5244,7 +5266,7 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
    /* Floating point answer */
    Tbl_StartRow ();
    Tbl_PutEmptyCells (1);
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+   Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
    Tst_PutFloatInputField (Txt_Real_number_between_A_and_B_1,"AnsFloatMin",
                            Gbl.Test.Answer.FloatingPoint[0]);
    Tst_PutFloatInputField (Txt_Real_number_between_A_and_B_2,"AnsFloatMax",
@@ -5255,7 +5277,7 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
    /* T/F answer */
    Tbl_StartRow ();
    Tbl_PutEmptyCells (1);
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+   Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
    Tst_PutTFInputField (Txt_TF_QST[0],'T');
    Tst_PutTFInputField (Txt_TF_QST[1],'F');
    Tbl_EndCell ();
@@ -5266,7 +5288,7 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
 
    Tbl_PutEmptyCells (1);
 
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+   Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
    fprintf (Gbl.F.Out,"<label class=\"%s\">"
                       "<input type=\"checkbox\" name=\"Shuffle\" value=\"Y\"",
             The_ClassFormInBox[Gbl.Prefs.Theme]);
@@ -5286,7 +5308,7 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
    /* Simple or multiple choice answers */
    Tbl_StartRow ();
    Tbl_PutEmptyCells (1);
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+   Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
    Tbl_StartTablePadding (2);	// Table with choice answers
 
    OptionsDisabled = Gbl.Test.AnswerType != Tst_ANS_UNIQUE_CHOICE &&
@@ -5309,7 +5331,7 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
       Tbl_StartRow ();
 
       /***** Left column: selectors *****/
-      fprintf (Gbl.F.Out,"<td class=\"TEST_EDI_ANS_LEFT_COL COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"TEST_EDI_ANS_LEFT_COL COLOR%u\"",Gbl.RowEvenOdd);
 
       /* Radio selector for unique choice answers */
       fprintf (Gbl.F.Out,"<input type=\"radio\" name=\"AnsUni\" value=\"%u\"",
@@ -5334,8 +5356,8 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
       Tbl_EndCell ();
 
       /***** Center column: letter of the answer and expand / contract icon *****/
-      fprintf (Gbl.F.Out,"<td class=\"%s TEST_EDI_ANS_CENTER_COL COLOR%u\">",
-	       The_ClassFormInBox[Gbl.Prefs.Theme],Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"%s TEST_EDI_ANS_CENTER_COL COLOR%u\"",
+			 The_ClassFormInBox[Gbl.Prefs.Theme],Gbl.RowEvenOdd);
       fprintf (Gbl.F.Out,"%c)",'a' + (char) NumOpt);
 
       /* Icon to expand (show the answer) */
@@ -5369,7 +5391,7 @@ static void Tst_PutFormEditOneQst (char Stem[Cns_MAX_BYTES_TEXT + 1],
       Tbl_EndCell ();
 
       /***** Right column: content of the answer *****/
-      fprintf (Gbl.F.Out,"<td class=\"TEST_EDI_ANS_RIGHT_COL COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"TEST_EDI_ANS_RIGHT_COL COLOR%u\"",Gbl.RowEvenOdd);
       fprintf (Gbl.F.Out,"<div id=\"ans_%u\"",NumOpt);
       if (!DisplayRightColumn)	// Answer does not have content
 	 fprintf (Gbl.F.Out," style=\"display:none;\"");	// Hide column
@@ -7472,12 +7494,12 @@ void Tst_SelUsrsToViewUsrsTstResults (void)
 
          Tbl_StartRow ();
 
-         fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+         Tbl_StartCellAttr ("class=\"%s RIGHT_TOP\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
          fprintf (Gbl.F.Out,"%s:",Txt_Users);
          Tbl_EndCell ();
 
-	 fprintf (Gbl.F.Out,"<td colspan=\"2\" class=\"%s LEFT_TOP\">",
-                  The_ClassFormInBox[Gbl.Prefs.Theme]);
+	 Tbl_StartCellAttr ("colspan=\"2\" class=\"%s LEFT_TOP\"",
+			    The_ClassFormInBox[Gbl.Prefs.Theme]);
          Tbl_StartTablePadding (2);
          Usr_ListUsersToSelect (Rol_TCH);
          Usr_ListUsersToSelect (Rol_NET);
@@ -7814,8 +7836,8 @@ static void Tst_ShowTstResults (struct UsrData *UsrDat)
          /* Write date and time (row[2] holds UTC date-time) */
          TimeUTC = Dat_GetUNIXTimeFromStr (row[2]);
          UniqueId++;
-	 fprintf (Gbl.F.Out,"<td id =\"tst_date_%u\" class=\"%s RIGHT_TOP COLOR%u\">",
-	          UniqueId,ClassDat,Gbl.RowEvenOdd);
+	 Tbl_StartCellAttr (" id =\"tst_date_%u\" class=\"%s RIGHT_TOP COLOR%u\"",
+			    UniqueId,ClassDat,Gbl.RowEvenOdd);
 	 fprintf (Gbl.F.Out,"<script type=\"text/javascript\">"
 			    "writeLocalDateHMSFromUTC('tst_date_%u',%ld,"
 			    "%u,',&nbsp;','%s',true,false,0x7);"
@@ -7845,29 +7867,29 @@ static void Tst_ShowTstResults (struct UsrData *UsrDat)
 	    TotalScoreOfAllTests += ScoreInThisTest;
 
          /* Write number of questions */
-	 fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP COLOR%u\">",
-	          ClassDat,Gbl.RowEvenOdd);
+	 Tbl_StartCellAttr ("class=\"%s RIGHT_TOP COLOR%u\"",
+			    ClassDat,Gbl.RowEvenOdd);
 	 if (ICanViewTest)
 	    fprintf (Gbl.F.Out,"%u",NumQstsInThisTest);
 	 Tbl_EndCell ();
 
          /* Write number of questions not blank */
-	 fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP COLOR%u\">",
-	          ClassDat,Gbl.RowEvenOdd);
+	 Tbl_StartCellAttr ("class=\"%s RIGHT_TOP COLOR%u\"",
+			    ClassDat,Gbl.RowEvenOdd);
 	 if (ICanViewTest)
 	    fprintf (Gbl.F.Out,"%u",NumQstsNotBlankInThisTest);
 	 Tbl_EndCell ();
 
 	 /* Write score */
-	 fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP COLOR%u\">",
-	          ClassDat,Gbl.RowEvenOdd);
+	 Tbl_StartCellAttr ("class=\"%s RIGHT_TOP COLOR%u\"",
+			    ClassDat,Gbl.RowEvenOdd);
 	 if (ICanViewScore)
 	    fprintf (Gbl.F.Out,"%.2lf",ScoreInThisTest);
 	 Tbl_EndCell ();
 
          /* Write average score per question */
-	 fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP COLOR%u\">",
-	          ClassDat,Gbl.RowEvenOdd);
+	 Tbl_StartCellAttr ("class=\"%s RIGHT_TOP COLOR%u\"",
+			    ClassDat,Gbl.RowEvenOdd);
 	 if (ICanViewScore)
 	    fprintf (Gbl.F.Out,"%.2lf",
 		     NumQstsInThisTest ? ScoreInThisTest / (double) NumQstsInThisTest :
@@ -7875,8 +7897,8 @@ static void Tst_ShowTstResults (struct UsrData *UsrDat)
 	 Tbl_EndCell ();
 
          /* Write score over Tst_SCORE_MAX */
-	 fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP COLOR%u\">",
-	          ClassDat,Gbl.RowEvenOdd);
+	 Tbl_StartCellAttr ("class=\"%s RIGHT_TOP COLOR%u\"",
+			    ClassDat,Gbl.RowEvenOdd);
 	 if (ICanViewScore)
 	    fprintf (Gbl.F.Out,"%.2lf",
 		     NumQstsInThisTest ? ScoreInThisTest * Tst_SCORE_MAX / (double) NumQstsInThisTest :
@@ -7884,7 +7906,7 @@ static void Tst_ShowTstResults (struct UsrData *UsrDat)
 	 Tbl_EndCell ();
 
 	 /* Link to show this result */
-	 fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+	 Tbl_StartCellAttr ("class=\"RIGHT_TOP COLOR%u\"",Gbl.RowEvenOdd);
 	 if (ICanViewTest)
 	   {
 	    Frm_StartForm (Gbl.Action.Act == ActSeeMyTstRes ? ActSeeOneTstResMe :
@@ -7975,35 +7997,30 @@ static void Tst_ShowTestResultsSummaryRow (bool ItsMe,
    Tbl_StartRow ();
 
    /***** Row title *****/
-   fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">",
-	    Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
    fprintf (Gbl.F.Out,"%s: %u",Txt_Visible_tests,NumExams);
    Tbl_EndCell ();
 
    /***** Write total number of questions *****/
-   fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">",
-	    Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
    if (NumExams)
       fprintf (Gbl.F.Out,"%u",NumTotalQsts);
    Tbl_EndCell ();
 
    /***** Write total number of questions not blank *****/
-   fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">",
-	    Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
    if (NumExams)
       fprintf (Gbl.F.Out,"%u",NumTotalQstsNotBlank);
    Tbl_EndCell ();
 
    /***** Write total score *****/
-   fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">",
-	    Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
    if (ICanViewTotalScore)
       fprintf (Gbl.F.Out,"%.2lf",TotalScoreOfAllTests);
    Tbl_EndCell ();
 
    /***** Write average score per question *****/
-   fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">",
-	    Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
    if (ICanViewTotalScore)
       fprintf (Gbl.F.Out,"%.2lf",
 	       NumTotalQsts ? TotalScoreOfAllTests / (double) NumTotalQsts :
@@ -8011,8 +8028,7 @@ static void Tst_ShowTestResultsSummaryRow (bool ItsMe,
    Tbl_EndCell ();
 
    /***** Write score over Tst_SCORE_MAX *****/
-   fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">",
-	    Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
    if (ICanViewTotalScore)
       fprintf (Gbl.F.Out,"%.2lf",
 	       NumTotalQsts ? TotalScoreOfAllTests * Tst_SCORE_MAX /
@@ -8021,8 +8037,7 @@ static void Tst_ShowTestResultsSummaryRow (bool ItsMe,
    Tbl_EndCell ();
 
    /***** Last cell *****/
-   fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP COLOR%u\">",
-	    Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"DAT_N_LINE_TOP COLOR%u\"",Gbl.RowEvenOdd);
    Tbl_EndCell ();
 
    /***** End row *****/
@@ -8136,12 +8151,12 @@ void Tst_ShowOneTstResult (void)
       /* User */
       Tbl_StartRow ();
 
-      fprintf (Gbl.F.Out,"<td class=\"DAT_N RIGHT_TOP\">");
+      Tbl_StartCellAttr ("class=\"DAT_N RIGHT_TOP\"");
       fprintf (Gbl.F.Out,"%s:",
 	       Txt_ROLES_SINGUL_Abc[Gbl.Usrs.Other.UsrDat.Roles.InCurrentCrs.Role][Gbl.Usrs.Other.UsrDat.Sex]);
       Tbl_EndCell ();
 
-      fprintf (Gbl.F.Out,"<td class=\"DAT LEFT_TOP\">");
+      Tbl_StartCellAttr ("class=\"DAT LEFT_TOP\"");
       ID_WriteUsrIDs (&Gbl.Usrs.Other.UsrDat,NULL);
       fprintf (Gbl.F.Out," %s",
 	       Gbl.Usrs.Other.UsrDat.Surname1);
@@ -8163,11 +8178,11 @@ void Tst_ShowOneTstResult (void)
       /* Test date */
       Tbl_StartRow ();
 
-      fprintf (Gbl.F.Out,"<td class=\"DAT_N RIGHT_TOP\">");
+      Tbl_StartCellAttr ("class=\"DAT_N RIGHT_TOP\"");
       fprintf (Gbl.F.Out,"%s:",Txt_Date);
       Tbl_EndCell ();
 
-      fprintf (Gbl.F.Out,"<td id=\"test\" class=\"DAT LEFT_TOP\">");
+      Tbl_StartCellAttr ("id=\"test\" class=\"DAT LEFT_TOP\"");
       fprintf (Gbl.F.Out,"<script type=\"text/javascript\">"
 			 "writeLocalDateHMSFromUTC('test',%ld,"
 			 "%u,',&nbsp;','%s',true,true,0x7);"
@@ -8181,11 +8196,11 @@ void Tst_ShowOneTstResult (void)
       /* Number of questions */
       Tbl_StartRow ();
 
-      fprintf (Gbl.F.Out,"<td class=\"DAT_N RIGHT_TOP\">");
+      Tbl_StartCellAttr ("class=\"DAT_N RIGHT_TOP\"");
       fprintf (Gbl.F.Out,"%s:",Txt_Questions);
       Tbl_EndCell ();
 
-      fprintf (Gbl.F.Out,"<td class=\"DAT LEFT_TOP\">");
+      Tbl_StartCellAttr ("class=\"DAT LEFT_TOP\"");
       fprintf (Gbl.F.Out,"%u (%u %s)",
 	       Gbl.Test.NumQsts,NumQstsNotBlank,Txt_non_blank_QUESTIONS);
       Tbl_EndCell ();
@@ -8195,11 +8210,11 @@ void Tst_ShowOneTstResult (void)
       /* Score */
       Tbl_StartRow ();
 
-      fprintf (Gbl.F.Out,"<td class=\"DAT_N RIGHT_TOP\">");
+      Tbl_StartCellAttr ("class=\"DAT_N RIGHT_TOP\"");
       fprintf (Gbl.F.Out,"%s:",Txt_Score);
       Tbl_EndCell ();
 
-      fprintf (Gbl.F.Out,"<td class=\"DAT LEFT_TOP\">");
+      Tbl_StartCellAttr ("class=\"DAT LEFT_TOP\"");
       if (ICanViewScore)
 	 fprintf (Gbl.F.Out,"%.2lf (%.2lf",
 		  TotalScore,
@@ -8216,11 +8231,11 @@ void Tst_ShowOneTstResult (void)
       /* Tags present in this test */
       Tbl_StartRow ();
 
-      fprintf (Gbl.F.Out,"<td class=\"DAT_N RIGHT_TOP\">");
+      Tbl_StartCellAttr ("class=\"DAT_N RIGHT_TOP\"");
       fprintf (Gbl.F.Out,"%s:",Txt_Tags);
       Tbl_EndCell ();
 
-      fprintf (Gbl.F.Out,"<td class=\"DAT LEFT_TOP\">");
+      Tbl_StartCellAttr ("class=\"DAT LEFT_TOP\"");
       Tst_ShowTstTagsPresentInATestResult (TstCod);
       Tbl_EndCell ();
 
@@ -8297,11 +8312,11 @@ void Tst_ShowTestResult (struct UsrData *UsrDat,
 	    /***** Question has been edited *****/
 	    Tbl_StartRow ();
 
-	    fprintf (Gbl.F.Out,"<td class=\"BIG_INDEX RIGHT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+	    Tbl_StartCellAttr ("class=\"BIG_INDEX RIGHT_TOP COLOR%u\"",Gbl.RowEvenOdd);
 	    fprintf (Gbl.F.Out,"%u",NumQst + 1);
 	    Tbl_EndCell ();
 
-	    fprintf (Gbl.F.Out,"<td class=\"DAT_LIGHT LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+	    Tbl_StartCellAttr ("class=\"DAT_LIGHT LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
 	    fprintf (Gbl.F.Out,"%s",Txt_Question_modified);
 	    Tbl_EndCell ();
 
@@ -8326,11 +8341,11 @@ void Tst_ShowTestResult (struct UsrData *UsrDat,
 	 /***** Question does not exists *****/
          Tbl_StartRow ();
 
-	 fprintf (Gbl.F.Out,"<td class=\"BIG_INDEX RIGHT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+	 Tbl_StartCellAttr ("class=\"BIG_INDEX RIGHT_TOP COLOR%u\"",Gbl.RowEvenOdd);
 	 fprintf (Gbl.F.Out,"%u",NumQst + 1);
 	 Tbl_EndCell ();
 
-	 fprintf (Gbl.F.Out,"<td class=\"DAT_LIGHT LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+	 Tbl_StartCellAttr ("class=\"DAT_LIGHT LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
 	 fprintf (Gbl.F.Out,"%s",Txt_Question_removed);
 	 Tbl_EndCell ();
 
diff --git a/swad_test_import.c b/swad_test_import.c
index b7dc3006..cd04231a 100644
--- a/swad_test_import.c
+++ b/swad_test_import.c
@@ -1016,9 +1016,10 @@ static void TsI_WriteRowImportedQst (struct XMLElement *StemElem,
    Gbl.RowEvenOdd = NumQst % 2;
    NumQst++;
 
-   /***** Put icon to indicate that a question does not exist in database *****/
    Tbl_StartRow ();
-   fprintf (Gbl.F.Out,"<td class=\"BT%u CENTER_TOP\">",Gbl.RowEvenOdd);
+
+   /***** Put icon to indicate that a question does not exist in database *****/
+   Tbl_StartCellAttr ("class=\"BT%u CENTER_TOP\"",Gbl.RowEvenOdd);
    fprintf (Gbl.F.Out,"<img src=\"%s/%s\""
                       " alt=\"%s\" title=\"%s\""
                       " class=\"CONTEXT_ICO_16x16\" />",
@@ -1032,14 +1033,13 @@ static void TsI_WriteRowImportedQst (struct XMLElement *StemElem,
    Tbl_EndCell ();
 
    /***** Write number of question *****/
-   fprintf (Gbl.F.Out,"<td class=\"%s CENTER_TOP COLOR%u\">",
-            ClassData,Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"%s CENTER_TOP COLOR%u\"",ClassData,Gbl.RowEvenOdd);
    if (!QuestionExists)
       fprintf (Gbl.F.Out,"%u&nbsp;",++NumNonExistingQst);
    Tbl_EndCell ();
 
    /***** Write the question tags *****/
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
    if (Gbl.Test.Tags.Num)
      {
       /***** Write the tags *****/
@@ -1050,11 +1050,11 @@ static void TsI_WriteRowImportedQst (struct XMLElement *StemElem,
 	{
          Tbl_StartRow ();
 
-	 fprintf (Gbl.F.Out,"<td class=\"%s LEFT_TOP\">",ClassData);
+	 Tbl_StartCellAttr ("class=\"%s LEFT_TOP\"",ClassData);
 	 fprintf (Gbl.F.Out,"&nbsp;&#8226;&nbsp;");
 	 Tbl_EndCell ();
 
-         fprintf (Gbl.F.Out,"<td class=\"%s LEFT_TOP\">",ClassData);
+         Tbl_StartCellAttr ("class=\"%s LEFT_TOP\"",ClassData);
          fprintf (Gbl.F.Out,"%s",Gbl.Test.Tags.Txt[NumTag]);
          Tbl_EndCell ();
 
@@ -1069,12 +1069,12 @@ static void TsI_WriteRowImportedQst (struct XMLElement *StemElem,
    Tbl_EndCell ();
 
    /***** Write the question type *****/
-   fprintf (Gbl.F.Out,"<td class=\"%s CENTER_TOP COLOR%u\">",ClassData,Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"%s CENTER_TOP COLOR%u\"",ClassData,Gbl.RowEvenOdd);
    fprintf (Gbl.F.Out,"%s&nbsp;",Txt_TST_STR_ANSWER_TYPES[Gbl.Test.AnswerType]);
    Tbl_EndCell ();
 
    /***** Write if shuffle is enabled *****/
-   fprintf (Gbl.F.Out,"<td class=\"CENTER_TOP COLOR%u\">",Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"CENTER_TOP COLOR%u\"",Gbl.RowEvenOdd);
    if (Gbl.Test.AnswerType == Tst_ANS_UNIQUE_CHOICE ||
        Gbl.Test.AnswerType == Tst_ANS_MULTIPLE_CHOICE)
       /* Put an icon that indicates whether shuffle is enabled or not */
@@ -1090,7 +1090,7 @@ static void TsI_WriteRowImportedQst (struct XMLElement *StemElem,
    Tbl_EndCell ();
 
    /***** Write the stem and the answers *****/
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
    Tst_WriteQstStem (Stem,ClassStem);
    Tst_WriteQstFeedback (Feedback,"TEST_EDI_LIGHT");
    switch (Gbl.Test.AnswerType)
@@ -1143,9 +1143,10 @@ static void TsI_WriteRowImportedQst (struct XMLElement *StemElem,
 		                    AnswerFeedback,AnswerFeedbackLength,false);
 		 }
 
-            /* Put an icon that indicates whether the answer is correct or wrong */
             Tbl_StartRow ();
-            fprintf (Gbl.F.Out,"<td class=\"BT%u\">",Gbl.RowEvenOdd);
+
+            /* Put an icon that indicates whether the answer is correct or wrong */
+            Tbl_StartCellAttr ("class=\"BT%u\"",Gbl.RowEvenOdd);
             if (Gbl.Test.Answer.Options[NumOpt].Correct)
                fprintf (Gbl.F.Out,"<img src=\"%s/check.svg\""
         	                  " alt=\"%s\" title=\"%s\""
@@ -1158,12 +1159,12 @@ static void TsI_WriteRowImportedQst (struct XMLElement *StemElem,
             Tbl_EndCell ();
 
             /* Write the number of option */
-            fprintf (Gbl.F.Out,"<td class=\"%s LEFT_TOP\">",ClassData);
+            Tbl_StartCellAttr ("class=\"%s LEFT_TOP\"",ClassData);
             fprintf (Gbl.F.Out,"%c)&nbsp;",'a' + (char) NumOpt);
             Tbl_EndCell ();
 
             /* Write the text and the feedback of the answer */
-            fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">");
+            Tbl_StartCellAttr ("class=\"LEFT_TOP\"");
             fprintf (Gbl.F.Out,"<div class=\"%s\">"
         	               "%s"
         	               "</div>",
@@ -1174,6 +1175,7 @@ static void TsI_WriteRowImportedQst (struct XMLElement *StemElem,
 		                  "</div>",
 			AnswerFeedback);
             Tbl_EndCell ();
+
             Tbl_EndRow ();
 
 	    /* Free memory allocated for the answer and the feedback */
diff --git a/swad_timetable.c b/swad_timetable.c
index b999b098..88d5ae05 100644
--- a/swad_timetable.c
+++ b/swad_timetable.c
@@ -1134,9 +1134,9 @@ static void TT_DrawTimeTable (void)
    /***** Row with day names *****/
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td rowspan=\"2\" class=\"TT_HOUR_BIG RIGHT_MIDDLE\""
+   Tbl_StartCellAttr ("rowspan=\"2\" class=\"TT_HOUR_BIG RIGHT_MIDDLE\""
 	              " style=\"width:%u%%;\">",
-            TT_PERCENT_WIDTH_OF_AN_HOUR_COLUMN);
+                      TT_PERCENT_WIDTH_OF_AN_HOUR_COLUMN);
    fprintf (Gbl.F.Out,"%02u:00",Gbl.TimeTable.Config.Range.Hours.Start);
    Tbl_EndCell ();
 
@@ -1144,9 +1144,9 @@ static void TT_DrawTimeTable (void)
    TT_TimeTableDrawDaysCells ();
    TT_DrawCellAlignTimeTable ();
 
-   fprintf (Gbl.F.Out,"<td rowspan=\"2\" class=\"TT_HOUR_BIG LEFT_MIDDLE\""
+   Tbl_StartCellAttr ("rowspan=\"2\" class=\"TT_HOUR_BIG LEFT_MIDDLE\""
 	              " style=\"width:%u%%;\">",
-            TT_PERCENT_WIDTH_OF_AN_HOUR_COLUMN);
+                      TT_PERCENT_WIDTH_OF_AN_HOUR_COLUMN);
    fprintf (Gbl.F.Out,"%02u:00",Gbl.TimeTable.Config.Range.Hours.Start);
    Tbl_EndCell ();
 
@@ -1276,7 +1276,7 @@ static void TT_TimeTableDrawAdjustRow (void)
 
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"TT_HOURCOL\">");
+   Tbl_StartCellAttr ("class=\"TT_HOURCOL\"");
    Tbl_EndCell ();
 
    TT_DrawCellAlignTimeTable ();
@@ -1287,12 +1287,12 @@ static void TT_TimeTableDrawAdjustRow (void)
 	   Minicolumn < TT_NUM_MINICOLUMNS_PER_DAY;
 	   Minicolumn++)
 	{
-         fprintf (Gbl.F.Out,"<td class=\"TT_MINICOL\">");
+         Tbl_StartCellAttr ("class=\"TT_MINICOL\"");
          Tbl_EndCell ();
 	}
    TT_DrawCellAlignTimeTable ();
 
-   fprintf (Gbl.F.Out,"<td class=\"TT_HOURCOL\">");
+   Tbl_StartCellAttr ("class=\"TT_HOURCOL\"");
    Tbl_EndCell ();
 
    Tbl_EndRow ();
@@ -1313,12 +1313,12 @@ static void TT_TimeTableDrawDaysCells (void)
 	DayColumn++)
      {
       Weekday = (DayColumn + Gbl.Prefs.FirstDayOfWeek) % 7;
-      fprintf (Gbl.F.Out,"<td colspan=\"%u\" class=\"%s CENTER_MIDDLE\""
-	                 " style=\"width:%u%%;\">",
-               TT_NUM_MINICOLUMNS_PER_DAY,
-               Weekday == 6 ? "TT_SUNDAY" :	// Sunday drawn in red
-        	              "TT_DAY",	// Monday to Saturday
-               TT_PERCENT_WIDTH_OF_A_DAY);
+      Tbl_StartCellAttr ("colspan=\"%u\" class=\"%s CENTER_MIDDLE\""
+	                 " style=\"width:%u%%;\"",
+			 TT_NUM_MINICOLUMNS_PER_DAY,
+			 Weekday == 6 ? "TT_SUNDAY" :	// Sunday drawn in red
+				        "TT_DAY",	// Monday to Saturday
+			 TT_PERCENT_WIDTH_OF_A_DAY);
       fprintf (Gbl.F.Out,"%s",Txt_DAYS_CAPS[Weekday]);
       Tbl_EndCell ();
      }
@@ -1330,10 +1330,10 @@ static void TT_TimeTableDrawDaysCells (void)
 
 static void TT_TimeTableDrawHourCell (unsigned Hour,unsigned Min,const char *Align)
   {
-   fprintf (Gbl.F.Out,"<td rowspan=\"2\" class=\"TT_HOUR %s %s\">",
-	    Min ? "TT_HOUR_SMALL" :
-		  "TT_HOUR_BIG",
-            Align);
+   Tbl_StartCellAttr ("rowspan=\"2\" class=\"TT_HOUR %s %s\"",
+		      Min ? "TT_HOUR_SMALL" :
+			    "TT_HOUR_BIG",
+		      Align);
    fprintf (Gbl.F.Out,"%02u:%02u",Hour,Min);
    Tbl_EndCell ();
   }
@@ -1420,7 +1420,7 @@ static unsigned TT_CalculateColsToDrawInCell (bool TopCall,
 
 static void TT_DrawCellAlignTimeTable (void)
   {
-   fprintf (Gbl.F.Out,"<td class=\"TT_ALIGN\">");
+   Tbl_StartCellAttr ("class=\"TT_ALIGN\"");
    Tbl_EndCell ();
   }
 
diff --git a/swad_user.c b/swad_user.c
index b16af4a0..a61be069 100644
--- a/swad_user.c
+++ b/swad_user.c
@@ -3645,7 +3645,7 @@ void Usr_WriteRowUsrMainData (unsigned NumUsr,struct UsrData *UsrDat,
 
    if (PutCheckBoxToSelectUsr)
      {
-      fprintf (Gbl.F.Out,"<td class=\"CENTER_MIDDLE %s\">",BgColor);
+      Tbl_StartCellAttr ("class=\"CENTER_MIDDLE %s\"",BgColor);
       Usr_PutCheckboxToSelectUser (Role,UsrDat->EncryptedUsrCod,UsrIsTheMsgSender);
       Tbl_EndCell ();
      }
@@ -3667,7 +3667,7 @@ void Usr_WriteRowUsrMainData (unsigned NumUsr,struct UsrData *UsrDat,
    Tbl_EndCell ();
 
    /***** Write number of user in the list *****/
-   fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_MIDDLE %s\">",
+   Tbl_StartCellAttr ("class=\"%s RIGHT_MIDDLE %s\"",
             UsrDat->Accepted ? "USR_LIST_NUM_N" :
         	               "USR_LIST_NUM",
             BgColor);
@@ -3677,7 +3677,7 @@ void Usr_WriteRowUsrMainData (unsigned NumUsr,struct UsrData *UsrDat,
    if (Gbl.Usrs.Listing.WithPhotos)
      {
       /***** Show user's photo *****/
-      fprintf (Gbl.F.Out,"<td class=\"CENTER_MIDDLE %s\">",BgColor);
+      Tbl_StartCellAttr ("class=\"CENTER_MIDDLE %s\"",BgColor);
       ShowPhoto = Pho_ShowingUsrPhotoIsAllowed (UsrDat,PhotoURL);
       Pho_ShowUsrPhoto (UsrDat,ShowPhoto ? PhotoURL :
                                            NULL,
@@ -3686,10 +3686,10 @@ void Usr_WriteRowUsrMainData (unsigned NumUsr,struct UsrData *UsrDat,
      }
 
    /****** Write user's IDs ******/
-   fprintf (Gbl.F.Out,"<td class=\"%s LEFT_MIDDLE %s\">",
-            UsrDat->Accepted ? "DAT_SMALL_N" :
-                               "DAT_SMALL",
-            BgColor);
+   Tbl_StartCellAttr ("class=\"%s LEFT_MIDDLE %s\"",
+		      UsrDat->Accepted ? "DAT_SMALL_N" :
+					 "DAT_SMALL",
+		      BgColor);
    ID_WriteUsrIDs (UsrDat,NULL);
    Tbl_EndCell ();
 
@@ -3697,7 +3697,7 @@ void Usr_WriteRowUsrMainData (unsigned NumUsr,struct UsrData *UsrDat,
    Ins.InsCod = UsrDat->InsCod;
    Ins_GetDataOfInstitutionByCod (&Ins,Ins_GET_BASIC_DATA);
    Usr_WriteMainUsrDataExceptUsrID (UsrDat,BgColor);
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE %s\">",BgColor);
+   Tbl_StartCellAttr ("class=\"LEFT_MIDDLE %s\"",BgColor);
    Ins_DrawInstitutionLogoWithLink (&Ins,25);
    Tbl_EndCell ();
 
@@ -3723,8 +3723,7 @@ static void Usr_WriteRowGstAllData (struct UsrData *UsrDat)
    if (Gbl.Usrs.Listing.WithPhotos)
      {
       /***** Show guest's photo *****/
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE COLOR%u\">",
-               Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"LEFT_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
       ShowPhoto = Pho_ShowingUsrPhotoIsAllowed (UsrDat,PhotoURL);
       Pho_ShowUsrPhoto (UsrDat,ShowPhoto ? PhotoURL :
                                            NULL,
@@ -3733,8 +3732,7 @@ static void Usr_WriteRowGstAllData (struct UsrData *UsrDat)
      }
 
    /****** Write user's ID ******/
-   fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL LEFT_MIDDLE COLOR%u\">",
-            Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"DAT_SMALL LEFT_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
    ID_WriteUsrIDs (UsrDat,NULL);
    fprintf (Gbl.F.Out,"&nbsp;");
    Tbl_EndCell ();
@@ -3826,8 +3824,7 @@ static void Usr_WriteRowStdAllData (struct UsrData *UsrDat,char *GroupNames)
    if (Gbl.Usrs.Listing.WithPhotos)
      {
       /***** Show student's photo *****/
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE COLOR%u\">",
-               Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"LEFT_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
       ShowPhoto = Pho_ShowingUsrPhotoIsAllowed (UsrDat,PhotoURL);
       Pho_ShowUsrPhoto (UsrDat,ShowPhoto ? PhotoURL :
                                            NULL,
@@ -3836,10 +3833,10 @@ static void Usr_WriteRowStdAllData (struct UsrData *UsrDat,char *GroupNames)
      }
 
    /****** Write user's ID ******/
-   fprintf (Gbl.F.Out,"<td class=\"%s LEFT_MIDDLE COLOR%u\">",
-            UsrDat->Accepted ? "DAT_SMALL_N" :
-        	               "DAT_SMALL",
-            Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"%s LEFT_MIDDLE COLOR%u\"",
+		      UsrDat->Accepted ? "DAT_SMALL_N" :
+					 "DAT_SMALL",
+		      Gbl.RowEvenOdd);
    ID_WriteUsrIDs (UsrDat,NULL);
    fprintf (Gbl.F.Out,"&nbsp;");
    Tbl_EndCell ();
@@ -3946,8 +3943,7 @@ static void Usr_WriteRowTchAllData (struct UsrData *UsrDat)
    if (Gbl.Usrs.Listing.WithPhotos)
      {
       /***** Show teacher's photo *****/
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE COLOR%u\">",
-               Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"LEFT_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
       ShowPhoto = Pho_ShowingUsrPhotoIsAllowed (UsrDat,PhotoURL);
       Pho_ShowUsrPhoto (UsrDat,ShowPhoto ? PhotoURL :
                                            NULL,
@@ -3956,10 +3952,10 @@ static void Usr_WriteRowTchAllData (struct UsrData *UsrDat)
      }
 
    /****** Write the user's ID ******/
-   fprintf (Gbl.F.Out,"<td class=\"%s LEFT_MIDDLE COLOR%u\">",
-            UsrDat->Accepted ? "DAT_SMALL_N" :
-                               "DAT_SMALL",
-            Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"%s LEFT_MIDDLE COLOR%u\"",
+		      UsrDat->Accepted ? "DAT_SMALL_N" :
+					 "DAT_SMALL",
+		      Gbl.RowEvenOdd);
    ID_WriteUsrIDs (UsrDat,NULL);
    fprintf (Gbl.F.Out,"&nbsp;");
    Tbl_EndCell ();
@@ -4018,14 +4014,14 @@ static void Usr_WriteRowAdmData (unsigned NumUsr,struct UsrData *UsrDat)
    Tbl_StartRow ();
 
    /***** Write number of user *****/
-   fprintf (Gbl.F.Out,"<td class=\"USR_LIST_NUM_N CENTER_MIDDLE COLOR%u\">",Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"USR_LIST_NUM_N CENTER_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
    fprintf (Gbl.F.Out,"%u",NumUsr);
    Tbl_EndCell ();
 
    if (Gbl.Usrs.Listing.WithPhotos)
      {
       /***** Show administrator's photo *****/
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"LEFT_MIDDLE COLOR%u\"",Gbl.RowEvenOdd);
       ShowPhoto = Pho_ShowingUsrPhotoIsAllowed (UsrDat,PhotoURL);
       Pho_ShowUsrPhoto (UsrDat,ShowPhoto ? PhotoURL :
                                            NULL,
@@ -4034,10 +4030,10 @@ static void Usr_WriteRowAdmData (unsigned NumUsr,struct UsrData *UsrDat)
      }
 
    /****** Write the user's ID ******/
-   fprintf (Gbl.F.Out,"<td class=\"%s LEFT_MIDDLE COLOR%u\">",
-            UsrDat->Accepted ? "DAT_SMALL_N" :
-                               "DAT_SMALL",
-            Gbl.RowEvenOdd);
+   Tbl_StartCellAttr ("class=\"%s LEFT_MIDDLE COLOR%u\"",
+		      UsrDat->Accepted ? "DAT_SMALL_N" :
+					 "DAT_SMALL",
+		      Gbl.RowEvenOdd);
    ID_WriteUsrIDs (UsrDat,NULL);
    fprintf (Gbl.F.Out,"&nbsp;");
    Tbl_EndCell ();
@@ -4046,7 +4042,8 @@ static void Usr_WriteRowAdmData (unsigned NumUsr,struct UsrData *UsrDat)
    Ins.InsCod = UsrDat->InsCod;
    Ins_GetDataOfInstitutionByCod (&Ins,Ins_GET_BASIC_DATA);
    Usr_WriteMainUsrDataExceptUsrID (UsrDat,Gbl.ColorRows[Gbl.RowEvenOdd]);
-   fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE %s\">",Gbl.ColorRows[Gbl.RowEvenOdd]);
+
+   Tbl_StartCellAttr ("class=\"LEFT_MIDDLE %s\"",Gbl.ColorRows[Gbl.RowEvenOdd]);
    Ins_DrawInstitutionLogoWithLink (&Ins,25);
    Tbl_EndCell ();
    Tbl_EndRow ();
@@ -4115,12 +4112,12 @@ static void Usr_WriteUsrData (const char *BgColor,
                               bool NonBreak,bool Accepted)
   {
    /***** Start table cell *****/
-   fprintf (Gbl.F.Out,"<td class=\"%s LEFT_MIDDLE %s\">",
-            Accepted ? (NonBreak ? "DAT_SMALL_NOBR_N" :
-        	                   "DAT_SMALL_N") :
-                       (NonBreak ? "DAT_SMALL_NOBR" :
-                	           "DAT_SMALL"),
-            BgColor);
+   Tbl_StartCellAttr ("class=\"%s LEFT_MIDDLE %s\"",
+		      Accepted ? (NonBreak ? "DAT_SMALL_NOBR_N" :
+					     "DAT_SMALL_N") :
+				 (NonBreak ? "DAT_SMALL_NOBR" :
+					     "DAT_SMALL"),
+		      BgColor);
 
    /***** Container to limit length *****/
    fprintf (Gbl.F.Out,"<div class=\"USR_DAT\">");
@@ -6556,8 +6553,8 @@ static void Usr_ListMainDataStds (bool PutCheckBoxToSelectUsr)
       if (!Gbl.Usrs.ClassPhoto.AllGroups)
         {
          Tbl_StartRow ();
-         fprintf (Gbl.F.Out,"<td colspan=\"%u\" class=\"TIT CENTER_MIDDLE\">",
-                  1 + Usr_NUM_MAIN_FIELDS_DATA_USR);
+         Tbl_StartCellAttr ("colspan=\"%u\" class=\"TIT CENTER_MIDDLE\"",
+			    1 + Usr_NUM_MAIN_FIELDS_DATA_USR);
          Grp_WriteNamesOfSelectedGrps ();
          Tbl_EndCell ();
          Tbl_EndRow ();
@@ -6885,8 +6882,8 @@ void Usr_ListAllDataStds (void)
       if (!Gbl.Usrs.ClassPhoto.AllGroups)
         {
          Tbl_StartRow ();
-         fprintf (Gbl.F.Out,"<td colspan=\"%u\" class=\"TIT CENTER_MIDDLE\">",
-                  NumColumnsTotal);
+         Tbl_StartCellAttr ("colspan=\"%u\" class=\"TIT CENTER_MIDDLE\"",
+			    NumColumnsTotal);
          Grp_WriteNamesOfSelectedGrps ();
          Tbl_EndCell ();
          Tbl_EndRow ();
@@ -6939,7 +6936,7 @@ void Usr_ListAllDataStds (void)
                  NumCol++)
                if (NumCol != 1 || Gbl.Usrs.Listing.WithPhotos)        // Skip photo column if I don't want it in listing
         	 {
-                  fprintf (Gbl.F.Out,"<td class=\"VERY_LIGHT_BLUE\">");
+                  Tbl_StartCellAttr ("class=\"VERY_LIGHT_BLUE\"");
                   Tbl_EndCell ();
         	 }
             for (NumField = 0;
@@ -7242,12 +7239,12 @@ unsigned Usr_ListUsrsFound (Rol_Role_t Role,
 	   {
 	    Tbl_StartRow ();
 
-	    fprintf (Gbl.F.Out,"<td colspan=\"2\" class=\"COLOR%u\">",Gbl.RowEvenOdd);
+	    Tbl_StartCellAttr ("colspan=\"2\" class=\"COLOR%u\"",Gbl.RowEvenOdd);
 	    Tbl_EndCell ();
 
-	    fprintf (Gbl.F.Out,"<td colspan=\"%u\" class=\"COLOR%u\">",
-		     Usr_NUM_MAIN_FIELDS_DATA_USR-2,
-		     Gbl.RowEvenOdd);
+	    Tbl_StartCellAttr ("colspan=\"%u\" class=\"COLOR%u\"",
+			       Usr_NUM_MAIN_FIELDS_DATA_USR-2,
+			       Gbl.RowEvenOdd);
 	    if (Role == Rol_UNK)
 	      {
 	       Crs_GetAndWriteCrssOfAUsr (&UsrDat,Rol_TCH);
@@ -9747,10 +9744,10 @@ void Usr_ShowTableCellWithUsrData (struct UsrData *UsrDat,unsigned NumRows)
 
    /***** Show user's photo and name *****/
    if (NumRows)
-      fprintf (Gbl.F.Out,"<td rowspan=\"%u\" class=\"LEFT_TOP COLOR%u\">",
-	       NumRows + 1,Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("rowspan=\"%u\" class=\"LEFT_TOP COLOR%u\"",
+	                 NumRows + 1,Gbl.RowEvenOdd);
    else
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
    ShowPhoto = Pho_ShowingUsrPhotoIsAllowed (UsrDat,PhotoURL);
    Pho_ShowUsrPhoto (UsrDat,ShowPhoto ? PhotoURL :
                 	                NULL,
@@ -9759,10 +9756,10 @@ void Usr_ShowTableCellWithUsrData (struct UsrData *UsrDat,unsigned NumRows)
 
    /***** Start form to go to user's record card *****/
    if (NumRows)
-      fprintf (Gbl.F.Out,"<td rowspan=\"%u\" class=\"LEFT_TOP COLOR%u\">",
+      Tbl_StartCellAttr ("rowspan=\"%u\" class=\"LEFT_TOP COLOR%u\"",
 	       NumRows + 1,Gbl.RowEvenOdd);
    else
-      fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",Gbl.RowEvenOdd);
+      Tbl_StartCellAttr ("class=\"LEFT_TOP COLOR%u\"",Gbl.RowEvenOdd);
    switch (UsrDat->Roles.InCurrentCrs.Role)
      {
       case Rol_STD:
diff --git a/swad_zip.c b/swad_zip.c
index 0a001d85..e2b59931 100644
--- a/swad_zip.c
+++ b/swad_zip.c
@@ -568,7 +568,7 @@ static void ZIP_ShowLinkToDownloadZIP (const char *FileName,const char *URL,
 
    /***** Link to download the file *****/
    Tbl_StartRow ();
-   fprintf (Gbl.F.Out,"<td colspan=\"2\" class=\"FILENAME_TXT CENTER_MIDDLE\">");
+   Tbl_StartCellAttr ("colspan=\"2\" class=\"FILENAME_TXT CENTER_MIDDLE\"");
    fprintf (Gbl.F.Out,"<a href=\"%s\" class=\"FILENAME_TXT\" title=\"%s\" target=\"_blank\">"
                       "<img src=\"%s32x32/zip32x32.gif\""
                       " alt=\"%s\" title=\"%s\""
@@ -592,11 +592,11 @@ static void ZIP_ShowLinkToDownloadZIP (const char *FileName,const char *URL,
    /***** Filename *****/
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_MIDDLE\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+   Tbl_StartCellAttr ("class=\"%s RIGHT_MIDDLE\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
    fprintf (Gbl.F.Out,"%s:",Txt_Filename);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"DAT LEFT_MIDDLE\">");
+   Tbl_StartCellAttr ("class=\"DAT LEFT_MIDDLE\"");
    fprintf (Gbl.F.Out,"<a href=\"%s\" class=\"DAT\" title=\"%s\" target=\"_blank\">"
 	              "%s"
 	              "</a>",
@@ -609,11 +609,11 @@ static void ZIP_ShowLinkToDownloadZIP (const char *FileName,const char *URL,
    Fil_WriteFileSizeFull ((double) FileSize,FileSizeStr);
    Tbl_StartRow ();
 
-   fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_MIDDLE\">",The_ClassFormInBox[Gbl.Prefs.Theme]);
+   Tbl_StartCellAttr ("class=\"%s RIGHT_MIDDLE\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
    fprintf (Gbl.F.Out,"%s:",Txt_File_size);
    Tbl_EndCell ();
 
-   fprintf (Gbl.F.Out,"<td class=\"DAT LEFT_MIDDLE\">");
+   Tbl_StartCellAttr ("class=\"DAT LEFT_MIDDLE\"");
    fprintf (Gbl.F.Out,"%s",FileSizeStr);
    if (UncompressedSize)
      {