// swad_layout.c: page layout

/*
    SWAD (Shared Workspace At a Distance),
    is a web platform developed at the University of Granada (Spain),
    and used to support university teaching.

    This file is part of SWAD core.
    Copyright (C) 1999-2025 Antonio Caas Vargas

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU Affero General Public License as
    published by the Free Software Foundation, either version 3 of the
    License, or (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU Affero General Public License for more details.

    You should have received a copy of the GNU Affero General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/
/*****************************************************************************/
/********************************* Headers ***********************************/
/*****************************************************************************/

#define _GNU_SOURCE 		// For asprintf
#include <stddef.h>		// For NULL
#include <stdio.h>		// For asprintf
#include <stdlib.h>		// For exit
#include <string.h>		// For string functions

#include "swad_action.h"
#include "swad_action_list.h"
#include "swad_API.h"
#include "swad_banner.h"
#include "swad_box.h"
#include "swad_calendar.h"
#include "swad_call_for_exam.h"
#include "swad_changelog.h"
#include "swad_config.h"
#include "swad_connected.h"
#include "swad_database.h"
#include "swad_error.h"
#include "swad_exam_session.h"
#include "swad_figure.h"
#include "swad_firewall_database.h"
#include "swad_follow.h"
#include "swad_form.h"
#include "swad_global.h"
#include "swad_help.h"
#include "swad_hierarchy.h"
#include "swad_hierarchy_type.h"
#include "swad_holiday.h"
#include "swad_HTML.h"
#include "swad_language.h"
#include "swad_system_link.h"
#include "swad_log.h"
#include "swad_log_database.h"
#include "swad_logo.h"
#include "swad_match.h"
#include "swad_MFU.h"
#include "swad_notice.h"
#include "swad_notification.h"
#include "swad_parameter.h"
#include "swad_process.h"
#include "swad_setting.h"
#include "swad_setting_database.h"
#include "swad_tab.h"
#include "swad_theme.h"
#include "swad_timeline.h"
#include "swad_timeline_who.h"
#include "swad_user_database.h"

/*****************************************************************************/
/****************************** Public constants *****************************/
/*****************************************************************************/

/* Show in database fields */
const char Lay_Show_YN[Lay_NUM_SHOW] =
  {
   [Lay_DONT_SHOW] = 'N',
   [Lay_SHOW     ] = 'Y',
  };

/*****************************************************************************/
/************** External global variables from others modules ****************/
/*****************************************************************************/

extern struct Globals Gbl;

const char *Lay_HighlightClass[Lay_NUM_HIGHLIGHT] =
  {
   [Lay_DONT_HIGHLIGHT] = NULL,
   [Lay_HIGHLIGHT   ] = "class=\"BG_HIGHLIGHT\"",
  };

/*****************************************************************************/
/***************************** Private prototypes ****************************/
/*****************************************************************************/

static void Lay_WritePageTitle (void);

static void Lay_WriteRedirToMyLangOnLogIn (void);
static void Lay_WriteRedirToMyLangOnViewUsrAgd (void);

static void Lay_WriteScripts (void);
static void Lay_WriteScriptMathJax (void);
static void Lay_WriteScriptInit (void);
static void Lay_WriteScriptParsAJAX (void);
static void Lay_WriteScriptCustomDropzone (void);

static void Lay_WritePageTopHeading (void);
static void Lay_WriteBreadcrumb (void);

static void Lay_ShowLeftColumn (void);
static void Lay_ShowRightColumn (void);

static void Lay_WriteFootFromHTMLFile (void);

static void Lay_HelpTextEditor (const char *Text,const char *InlineMath,const char *Equation);

/*****************************************************************************/
/*********************** Write the start of the page *************************/
/*****************************************************************************/

void Lay_WriteStartOfPage (void)
  {
   extern const char *Lan_STR_LANG_ID[1 + Lan_NUM_LANGUAGES];
   extern unsigned Txt_Current_CGI_SWAD_Language;
   static const char *LayoutMainZone[Mnu_NUM_MENUS] =
     {
      [Mnu_MENU_HORIZONTAL] = "main_horizontal",
      [Mnu_MENU_VERTICAL  ] = "main_vertical",
     };
   Act_BrowserTab_t BrowserTab;

   /***** If, when this function is called, the head is being written
          or the head is already written ==> don't do anything *****/
   if (Gbl.Layout.WritingHTMLStart ||
       Gbl.Layout.HTMLStartWritten)
      return;

   /***** Compute connected users to be displayed in right column *****/
   Con_ComputeConnectedUsrsBelongingToCurrentCrs ();

   /***** Send head width the file type for the HTTP protocol *****/
   if (Gbl.Action.UsesAJAX)
     // Don't generate a full HTML page, only the content of a DIV or similar
     {
      HTM_Txt ("Content-Type: text/html; charset=windows-1252\r\n\r\n");
      Gbl.Layout.WritingHTMLStart = false;
      Gbl.Layout.HTMLStartWritten = Gbl.Layout.DivsEndWritten = true;
      return;
     }

   /***** If serving a web service ==> don't do anything *****/
   if (Gbl.WebService.IsWebService)
     {
      Gbl.Layout.WritingHTMLStart = false;
      Gbl.Layout.HTMLStartWritten = Gbl.Layout.DivsEndWritten = true;
      return;
     }

   Gbl.Layout.WritingHTMLStart = true;

   /***** Get browser tab associated to current action *****/
   BrowserTab = Act_GetBrowserTab (Gbl.Action.Act);
   switch (BrowserTab)
     {
      case Act_NEW:
      case Act_2ND:
	 Gbl.Prefs.Theme = The_THEME_WHITE;	// In a new tab, use white background
	 break;
      default:
	 break;
     }

   /***** Write header to standard output to avoid timeout *****/
   // Two \r\n are necessary
   fprintf (stdout,"Content-type: text/html; charset=windows-1252\r\n\r\n"
                   "<!DOCTYPE html>\n");

   /***** Write start of HTML code *****/
   // WARNING: It is necessary to comment the line 'AddDefaultCharset UTF8'
   // in httpd.conf to enable meta tag
   HTM_TxtF ("<html lang=\"%s\" style=\"color-scheme:%s\">\n",
             Lan_STR_LANG_ID[Gbl.Prefs.Language],
             Gbl.Prefs.Theme == The_THEME_DARK ? "dark" :
        	                                 "light");
   HTM_Txt ("<head>\n"
            "<meta http-equiv=\"Content-Type\" content=\"text/html;charset=windows-1252\">\n"
            "<meta name=\"description\" content=\"A free-software, educational, online tool for managing courses and students.\">\n"
            "<meta name=\"keywords\" content=\"");
   HTM_Txt (Cfg_PLATFORM_SHORT_NAME);
   HTM_Txt (","
            "SWAD,"
            "shared workspace at a distance,"
            "educational platform,"
            "sistema web de apoyo a la docencia,"
            "plataforma educativa,"
            "campus virtual,"
            "SWADroid,"
            "LMS,"
            "Learning Management System\">\n");

   /* Viewport (used for responsive design) */
   HTM_Txt ("<meta name=\"viewport\""
	    " content=\"width=device-width, initial-scale=1.0\">\n");

   /* Title */
   Lay_WritePageTitle ();

   /* Canonical URL */
   HTM_TxtF ("<link rel=\"canonical\" href=\"%s\">\n",Cfg_URL_SWAD_CGI);

   /* Favicon */
   HTM_TxtF ("<link type=\"image/x-icon\" href=\"%s/favicon.ico\" rel=\"icon\">\n",
	     Cfg_URL_ICON_PUBLIC);
   HTM_TxtF ("<link type=\"image/x-icon\" href=\"%s/favicon.ico\" rel=\"shortcut icon\">\n",
	     Cfg_URL_ICON_PUBLIC);

   /* Style sheet for SWAD */
   HTM_TxtF ("<link rel=\"stylesheet\" href=\"%s/%s\" type=\"text/css\">\n",
             Cfg_URL_SWAD_PUBLIC,CSS_FILE);

   /* Style sheets for Font Awesome */
   HTM_TxtF ("<link rel=\"stylesheet\""
	     " href=\"%s/fontawesome/css/fontawesome.css\""
	     " type=\"text/css\">\n",
             Cfg_URL_SWAD_PUBLIC);
   HTM_TxtF ("<link rel=\"stylesheet\""
	     " href=\"%s/fontawesome/css/solid.css\""
	     " type=\"text/css\">\n",
             Cfg_URL_SWAD_PUBLIC);

   /* Style sheet for Dropzone.js (http://www.dropzonejs.com/) */
   // The public directory dropzone must hold:
   // dropzone.js
   // css/dropzone.css
   // images/spritemap@2x.png
   // images/spritemap.png
   switch (Gbl.Action.Act)
     {
      case ActFrmCreDocIns:	// Brw_ADMI_DOC_INS
      case ActFrmCreShaIns:	// Brw_ADMI_SHR_INS
      case ActFrmCreDocCtr:	// Brw_ADMI_DOC_CTR
      case ActFrmCreShaCtr:	// Brw_ADMI_SHR_CTR
      case ActFrmCreDocDeg:	// Brw_ADMI_DOC_DEG
      case ActFrmCreShaDeg:	// Brw_ADMI_SHR_DEG
      case ActFrmCreDocCrs:	// Brw_ADMI_DOC_CRS
      case ActFrmCreDocGrp:	// Brw_ADMI_DOC_GRP
      case ActFrmCreTchCrs:	// Brw_ADMI_TCH_CRS
      case ActFrmCreTchGrp:	// Brw_ADMI_TCH_GRP
      case ActFrmCreShaCrs:	// Brw_ADMI_SHR_CRS
      case ActFrmCreShaGrp:	// Brw_ADMI_SHR_GRP
      case ActFrmCreAsgUsr:	// Brw_ADMI_ASG_USR
      case ActFrmCreAsgCrs:	// Brw_ADMI_ASG_CRS
      case ActFrmCreWrkUsr:	// Brw_ADMI_WRK_USR
      case ActFrmCreWrkCrs:	// Brw_ADMI_WRK_CRS
      case ActFrmCreDocPrj:	// Brw_ADMI_DOC_PRJ
      case ActFrmCreAssPrj:	// Brw_ADMI_ASS_PRJ
      case ActFrmCreMrkCrs:	// Brw_ADMI_MRK_CRS
      case ActFrmCreMrkGrp:	// Brw_ADMI_MRK_GRP
      case ActFrmCreBrf:	// Brw_ADMI_BRF_USR
	 HTM_TxtF ("<link rel=\"stylesheet\""
		   " href=\"%s/dropzone/css/dropzone.css\""
		   " type=\"text/css\">\n",
		   Cfg_URL_SWAD_PUBLIC);
	 break;
      default:
	 break;
     }

   /* Redirect to correct language */
   if (Gbl.Usrs.Me.Logged &&							// I am logged
       Gbl.Usrs.Me.UsrDat.Prefs.Language != Txt_Current_CGI_SWAD_Language)	// My language != current language
     {
      if (Gbl.Action.Original == ActLogIn ||	// Regular log in
	  Gbl.Action.Original == ActLogInNew)	// Log in when checking account
         Lay_WriteRedirToMyLangOnLogIn ();
      else if (Gbl.Action.Original == ActLogInUsrAgd)	// Log in to view another user's public agenda
         Lay_WriteRedirToMyLangOnViewUsrAgd ();
     }

   /* Write initial scripts depending on the action */
   Lay_WriteScripts ();

   HTM_Txt ("</head>\n");

   /***** HTML body *****/
   switch (BrowserTab)
     {
      case Act_1ST:
	       HTM_TxtF ("<body class=\"BODY_%s\" onload=\"init();\">\n",
	                 The_GetSuffix ());
	       HTM_DIV_Begin ("id=\"zoomLyr\" class=\"ZOOM ZOOM_%s\"",
	                      The_GetSuffix ());
		  HTM_IMG (Cfg_URL_ICON_PUBLIC,"usr_bl.jpg",NULL,
			   "class=\"IMG_USR\" id=\"zoomImg\"");
	       HTM_DIV_Begin ("id=\"zoomTxt\" class=\"CM\"");
	    HTM_DIV_End ();
	 HTM_DIV_End ();
	 break;
      case Act_NEW:
      case Act_2ND:
	 HTM_Txt ("<body onload=\"init();\"");
	 switch (Gbl.Action.Act)
	   {
	    case ActNewMch:
	    case ActResMch:
	    case ActBckMch:
	    case ActPlyPauMch:
	    case ActFwdMch:
	    case ActChgNumColMch:
	    case ActChgVisResMchQst:
	    case ActMchCntDwn:
	       HTM_Txt (" class=\"MCH_BG\"");
	       break;
	    default:
	       break;
           }
	 HTM_Txt (">\n");
         Gbl.Layout.WritingHTMLStart = false;
	 Gbl.Layout.HTMLStartWritten =
	 Gbl.Layout.DivsEndWritten   = true;
	 return;
      default:
	 HTM_Txt ("<body>\n");
	 Gbl.Layout.WritingHTMLStart = false;
	 Gbl.Layout.HTMLStartWritten =
	 Gbl.Layout.DivsEndWritten   = true;
	 return;
     }

   /***** Begin box that contains the whole page except the foot *****/
   HTM_DIV_Begin ("id=\"whole_page\"");

      /***** Header of layout *****/
      Lay_WritePageTopHeading ();

      /***** 3rd. row (tabs) *****/
      Tab_DrawTabs ();

      /***** 4th row: main zone *****/
      HTM_DIV_Begin ("id=\"main_zone\"");

	 /* Left column */
	 if (Gbl.Prefs.SideCols & Lay_SHOW_LEFT_COLUMN)		// Left column visible
	   {
	    HTM_Txt ("<aside id=\"left_col\">");
	       Lay_ShowLeftColumn ();
	    HTM_Txt ("</aside>");
	   }

	 /* Right column */
	 // Right column is written before central column
	 // but it must be drawn at right using "position:absolute; right:0".
	 // The reason to write right column before central column
	 // is that central column may hold a lot of content drawn slowly.
	 if (Gbl.Prefs.SideCols & Lay_SHOW_RIGHT_COLUMN)	// Right column visible
	   {
	    HTM_Txt ("<aside id=\"right_col\">");
	       Lay_ShowRightColumn ();
	    HTM_Txt ("</aside>");
	   }

	 /* Central (main) column */
	 switch (Gbl.Prefs.SideCols)
	   {
	    case 0:
	       HTM_DIV_Begin ("id=\"main_zone_central_none\"");
	       break;
	    case Lay_SHOW_LEFT_COLUMN:
	       HTM_DIV_Begin ("id=\"main_zone_central_left\"");
	       break;
	    case Lay_SHOW_RIGHT_COLUMN:
	       HTM_DIV_Begin ("id=\"main_zone_central_right\"");
	       break;
	    case (Lay_SHOW_LEFT_COLUMN | Lay_SHOW_RIGHT_COLUMN):
	       HTM_DIV_Begin ("id=\"main_zone_central_both\"");
	       break;
	   }
	    HTM_DIV_Begin ("id=\"main_zone_central_container\" class=\"TAB_ON_%s\"",
			   The_GetSuffix ());

	       /* Layout with horizontal or vertical menu */
	       HTM_DIV_Begin ("id=\"%s\"",LayoutMainZone[Gbl.Prefs.Menu]);

		  /* Menu */
		  Mnu_WriteMenuThisTab ();

		  /* Begin canvas: main zone for actions output */
		  HTM_MAIN_Begin ("MAIN_ZONE_CANVAS");

		     /* If it is mandatory to read any information about course */
		     Inf_WriteMsgYouMustReadInfo ();

		     Gbl.Layout.WritingHTMLStart = false;
		     Gbl.Layout.HTMLStartWritten = true;

		     /* Write message indicating number of clicks allowed before sending my photo */
		     Usr_InformAboutNumClicksBeforePhoto ();
  }

/*****************************************************************************/
/*********************** Write status 204 No Content *************************/
/*****************************************************************************/

void Lay_WriteHTTPStatus204NoContent (void)
  {
   /***** The HTTP response is a code status *****/
   /* Don't write HTML at all */
   Gbl.Layout.HTMLStartWritten =
   Gbl.Layout.DivsEndWritten   =
   Gbl.Layout.HTMLEndWritten   = true;

   /* Begin HTTP response */
   fprintf (stdout,"Content-type: text/plain; charset=windows-1252\n");

   /* Return HTTP status code 204 No Content:
      The server has successfully fulfilled the request
      and there is no additional content to send
      in the response payload body. */
   fprintf (stdout,"Status: 204\r\n\r\n");
  }

/*****************************************************************************/
/************************ Write the end of the page **************************/
/*****************************************************************************/

void Lay_WriteEndOfPage (void)
  {
   if (!Gbl.Layout.DivsEndWritten)
     {
		     /***** End of central part of main zone *****/
		     HTM_MAIN_End ();	// Canvas (main zone to output content of the current action)
		  HTM_DIV_End ();	// Layout with horizontal or vertical menu
	       HTM_DIV_End ();		// main_zone_central_container

	       /***** Write page footer *****/
	       if (Act_GetBrowserTab (Gbl.Action.Act) == Act_1ST)
		  Lay_WriteFootFromHTMLFile ();

	    /***** End of main zone and page *****/
	    HTM_DIV_End ();		// main_zone_central
	 HTM_DIV_End ();		// main_zone
      HTM_DIV_End ();			// whole_page_* (box that contains the whole page except the foot)

      Gbl.Layout.DivsEndWritten = true;
     }
  }

/*****************************************************************************/
/************************* Write the title of the page ***********************/
/*****************************************************************************/

static void Lay_WritePageTitle (void)
  {
   extern const char *Txt_TAGLINE;

   HTM_TITLE_Begin ();

      if (Par_GetMethod () == Par_METHOD_GET &&
	  Gbl.Hierarchy.Node[Hie_DEG].HieCod > 0)
	{
	 HTM_Txt (Cfg_PLATFORM_SHORT_NAME);
	 HTM_SP (); HTM_GT (); HTM_SP ();
	 HTM_Txt (Gbl.Hierarchy.Node[Hie_DEG].ShrtName);
	 if (Gbl.Hierarchy.HieLvl == Hie_CRS)
	   {
	    HTM_SP (); HTM_GT (); HTM_SP ();
	    HTM_Txt (Gbl.Hierarchy.Node[Hie_CRS].ShrtName);
	   }
	}
      else
        {
	 HTM_Txt (Cfg_PLATFORM_SHORT_NAME); HTM_Colon (); HTM_SP ();
	 HTM_Txt (Txt_TAGLINE);
        }

   HTM_TITLE_End ();
  }

/*****************************************************************************/
/************* Write script and meta to redirect to my language **************/
/*****************************************************************************/

static void Lay_WriteRedirToMyLangOnLogIn (void)
  {
   extern const char *Lan_STR_LANG_ID[1 + Lan_NUM_LANGUAGES];

   HTM_TxtF ("<meta http-equiv=\"refresh\""
	     " content=\"0; url='%s/%s?act=%ld&amp;ses=%s'\">",
	     Cfg_URL_SWAD_CGI,
	     Lan_STR_LANG_ID[Gbl.Usrs.Me.UsrDat.Prefs.Language],
	     Act_GetActCod (ActLogInLan),
	     Gbl.Session.Id);
  }

static void Lay_WriteRedirToMyLangOnViewUsrAgd (void)
  {
   extern const char *Lan_STR_LANG_ID[1 + Lan_NUM_LANGUAGES];

   HTM_TxtF ("<meta http-equiv=\"refresh\""
	     " content=\"0; url='%s/%s?act=%ld&amp;ses=%s&amp;agd=@%s'\">",
	     Cfg_URL_SWAD_CGI,
	     Lan_STR_LANG_ID[Gbl.Usrs.Me.UsrDat.Prefs.Language],
	     Act_GetActCod (ActLogInUsrAgdLan),
	     Gbl.Session.Id,
	     Gbl.Usrs.Other.UsrDat.Nickname);
  }

/*****************************************************************************/
/************ Write some scripts depending on the current action *************/
/*****************************************************************************/

static void Lay_WriteScripts (void)
  {
   extern const char *Txt_DAYS[7];
   extern const char *Txt_DAYS2[7];
   extern const char *Txt_Exam_of_X;
   struct Hld_Holidays Holidays;
   struct Cfe_CallsForExams ExamAnns;
   unsigned DayOfWeek; /* 0, 1, 2, 3, 4, 5, 6 */
   unsigned NumHld;
   unsigned NumExamAnnouncement;	// Number of exam announcement

   /***** General scripts for swad *****/
   HTM_SCRIPT_Begin (Cfg_URL_SWAD_PUBLIC "/" JS_FILE,NULL);
   HTM_SCRIPT_End ();

   /***** Script for MathJax *****/
   Lay_WriteScriptMathJax ();

   /***** Write script with init function executed after loading page *****/
   Lay_WriteScriptInit ();

   /***** Write script to set parameters needed by AJAX *****/
   Lay_WriteScriptParsAJAX ();

   /***** Write script to initialize variables used to draw dates *****/
   HTM_SCRIPT_Begin (NULL,NULL);
      HTM_Txt ("\tconst DAYS = [");
      for (DayOfWeek = 0;
	   DayOfWeek < 7;
	   DayOfWeek++)
	{
	 if (DayOfWeek)
	    HTM_Comma ();
	 HTM_TxtF ("'%s'",Txt_DAYS[DayOfWeek]);
	}
      HTM_Txt ("];\n");

      HTM_Txt ("\tconst DAYS2 = [");
      for (DayOfWeek = 0;
	   DayOfWeek < 7;
	   DayOfWeek++)
	{
	 if (DayOfWeek)
	    HTM_Comma ();
	 HTM_TxtF ("'%s'",Txt_DAYS2[DayOfWeek]);
	}
      HTM_Txt ("];\n");
   HTM_SCRIPT_End ();

   /***** Prepare script to draw months *****/
   if ((Gbl.Prefs.SideCols & Lay_SHOW_LEFT_COLUMN) ||	// Left column visible
       Gbl.Action.Act == ActSeeCal ||			// Viewing calendar
       Gbl.Action.Act == ActPrnCal ||			// Printing calendar
       Gbl.Action.Act == ActChgCal1stDay)		// Changing first day
     {
      /***** Reset places context *****/
      Hld_ResetHolidays (&Holidays);

      /***** Get list of holidays *****/
      Holidays.SelectedOrder = Hld_ORDER_BY_STR_DATE;
      Hld_GetListHolidays (&Holidays);

      /***** Reset exam announcements context *****/
      Cfe_ResetCallsForExams (&ExamAnns);

      /***** Create list of exam announcements *****/
      Cfe_CreateListCallsForExams (&ExamAnns);

      /***** Write script to initialize variables used to draw months *****/
      HTM_SCRIPT_Begin (NULL,NULL);

	 HTM_Txt ("\tconst STR_EXAM = '");
	 HTM_TxtF (Txt_Exam_of_X,Gbl.Hierarchy.Node[Hie_CRS].FullName);
	 HTM_Txt ("';\n");

	 HTM_Txt ("\tvar Hlds = [];\n");

	 for (NumHld = 0;
	      NumHld < Holidays.Num;
	      NumHld++)
	    HTM_TxtF ("\tHlds.push({ PlcCod: %ld, HldTyp: %u, StartDate: %s, EndDate: %s, Name: '%s' });\n",
		      Holidays.Lst[NumHld].PlcCod,
		      (unsigned) Holidays.Lst[NumHld].HldTyp,
		      Holidays.Lst[NumHld].StartDate.YYYYMMDD,
		      Holidays.Lst[NumHld].EndDate.YYYYMMDD,
		      Holidays.Lst[NumHld].Name);

	 HTM_TxtF ("\tvar LstExamAnnouncements = [];\n");
	 for (NumExamAnnouncement = 0;
	      NumExamAnnouncement < ExamAnns.NumCallsForExams;
	      NumExamAnnouncement++)
	    HTM_TxtF ("LstExamAnnouncements.push({ ExaCod: %ld, Year: %u, Month: %u, Day: %u });\n",
		      ExamAnns.Lst[NumExamAnnouncement].ExaCod,
		      ExamAnns.Lst[NumExamAnnouncement].ExamDate.Year,
		      ExamAnns.Lst[NumExamAnnouncement].ExamDate.Month,
		      ExamAnns.Lst[NumExamAnnouncement].ExamDate.Day);

      HTM_SCRIPT_End ();

      /***** Free list of exam announcements *****/
      Cfe_FreeListCallsForExams (&ExamAnns);

      /***** Free list of holidays *****/
      Hld_FreeListHolidays (&Holidays);
     }

   /***** Scripts depending on action *****/
   switch (Gbl.Action.Act)
     {
      /***** Script to print world map *****/
      case ActSeeCty:
         Cty_WriteScriptGoogleGeochart ();
         break;
      /***** Script for uploading files using Dropzone.js (http://www.dropzonejs.com/) *****/
      // The public directory dropzone must hold:
      // dropzone.js
      // css/dropzone.css
      // images/spritemap@2x.png
      // images/spritemap.png
      case ActFrmCreDocIns:	// Brw_ADMI_DOC_INS
      case ActFrmCreShaIns:	// Brw_ADMI_SHR_INS
      case ActFrmCreDocCtr:	// Brw_ADMI_DOC_CTR
      case ActFrmCreShaCtr:	// Brw_ADMI_SHR_CTR
      case ActFrmCreDocDeg:	// Brw_ADMI_DOC_DEG
      case ActFrmCreShaDeg:	// Brw_ADMI_SHR_DEG
      case ActFrmCreDocCrs:	// Brw_ADMI_DOC_CRS
      case ActFrmCreDocGrp:	// Brw_ADMI_DOC_GRP
      case ActFrmCreTchCrs:	// Brw_ADMI_TCH_CRS
      case ActFrmCreTchGrp:	// Brw_ADMI_TCH_GRP
      case ActFrmCreShaCrs:	// Brw_ADMI_SHR_CRS
      case ActFrmCreShaGrp:	// Brw_ADMI_SHR_GRP
      case ActFrmCreAsgUsr:	// Brw_ADMI_ASG_USR
      case ActFrmCreAsgCrs:	// Brw_ADMI_ASG_CRS
      case ActFrmCreWrkUsr:	// Brw_ADMI_WRK_USR
      case ActFrmCreWrkCrs:	// Brw_ADMI_WRK_CRS
      case ActFrmCreDocPrj:	// Brw_ADMI_DOC_PRJ
      case ActFrmCreAssPrj:	// Brw_ADMI_ASS_PRJ
      case ActFrmCreMrkCrs:	// Brw_ADMI_MRK_CRS
      case ActFrmCreMrkGrp:	// Brw_ADMI_MRK_GRP
      case ActFrmCreBrf:	// Brw_ADMI_BRF_USR
	 // Use charset="windows-1252" to force error messages in windows-1252 (default is UTF-8)
	 HTM_SCRIPT_Begin (Cfg_URL_SWAD_PUBLIC "/dropzone/dropzone.js","windows-1252");
	 HTM_SCRIPT_End ();
	 Lay_WriteScriptCustomDropzone ();
         break;
      case ActSeeAllStaCrs:
      case ActReqAccGbl:
      case ActSeeAccGbl:
      case ActReqAccCrs:
      case ActSeeAccCrs:
	 HTM_SCRIPT_Begin (Cfg_URL_SWAD_PUBLIC "/jstz/jstz.js",NULL);
	 HTM_SCRIPT_End ();
	 break;
      default:
	 break;
     }
  }

// Change page title
//function changeTitle(title) {
//	document.title = title;
//}

/*****************************************************************************/
/************ Write some scripts depending on the current action *************/
/*****************************************************************************/

static void Lay_WriteScriptMathJax (void)
  {
   /* MathJax 2.5.1 (obsolete) */
   /*
#ifdef Cfg_MATHJAX_LOCAL
   // Use the local copy of MathJax
   HTM_SCRIPT_Begin (Cfg_URL_SWAD_PUBLIC "/MathJax/MathJax.js?config=TeX-AMS-MML_HTMLorMML",NULL);
#else
   // Use the MathJax Content Delivery Network (CDN)
   HTM_SCRIPT_Begin ("//cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML",NULL);
#endif
   HTM_SCRIPT_End ();
   */

   /* MathJax 3.0.1 (march 2020)
   Source:
   http://docs.mathjax.org/en/latest/web/configuration.html
   */

   /* Configuration Using an In-Line Script */
   /*
   HTM_Txt ("<script type=\"text/x-mathjax-config\">\n"
	    "MathJax = {\n"
	    "  tex: {\n"
	    "   inlineMath: [['$','$'], ['\\\\(','\\\\)']]\n"
	    "  }\n"
	    "};\n"
	    "</script>");
   */

   /* Using a Local File for Configuration

   Using a Local File for Configuration

   If you are using the same MathJax configuration over multiple pages,
   you may find it convenient to store your configuration
   in a separate JavaScript file that you load into the page.
   For example, you could create a file called mathjax-config.js that contains

   window.MathJax = {
     tex: {
       inlineMath: [['$', '$'], ['\\(', '\\)']],
     },
     svg: {
       fontCache: 'global'
     }
   };

   and then use

   <script src="mathjax-config.js" defer></script>
   <script type="text/javascript" id="MathJax-script" defer
     src="https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-svg.js">
   </script>

   to first load your configuration file,
   and then load the tex-svg component from the jsdelivr CDN.

   Note that here we use the defer attribute on both scripts
   so that they will execute in order,
   but still not block the rest of the page
   while the files are being downloaded to the browser.
   If the async attribute were used,
   there is no guarantee that the configuration would run first,
   and so you could get instances
   where MathJax doesn't get properly configured,
   and they would seem to occur randomly.
   */
   HTM_TxtF ("<script src=\"%s/mathjax-config.js\" defer>\n"
	     "</script>\n",
	     Cfg_URL_SWAD_PUBLIC);

#ifdef Cfg_MATHJAX_LOCAL
   // Use the local copy of MathJax
   HTM_TxtF ("<script type=\"text/javascript\" id=\"MathJax-script\" defer"
	     " src=\"%s/mathjax/tex-chtml.js\">\n"
	     "</script>\n",
	     Cfg_URL_SWAD_PUBLIC);
#else
   // Use the MathJax Content Delivery Network (CDN)
   HTM_TxtF ("<script type=\"text/javascript\" id=\"MathJax-script\" defer"
             " src=\"https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-svg.js\">\n"
             "</script>\n");
#endif
  }

/*****************************************************************************/
/******* Write script with init function executed after loading page *********/
/*****************************************************************************/

static void Lay_WriteScriptInit (void)
  {
   extern const char *Lan_STR_LANG_ID[1 + Lan_NUM_LANGUAGES];
   bool RefreshConnected;
   bool RefreshLastClicks   = false;
   bool RefreshNewTimeline  = false;
   bool RefreshOldTimeline  = false;
   bool RefreshMatchStd     = false;
   bool RefreshMatchTch     = false;

   RefreshConnected = Act_GetBrowserTab (Gbl.Action.Act) == Act_1ST &&
	              (Gbl.Prefs.SideCols & Lay_SHOW_RIGHT_COLUMN);	// Right column visible

   switch (Gbl.Action.Act)
     {
      /* Last clicks */
      case ActLstClk:
	 RefreshLastClicks = true;
	 break;

      /* Global timeline */
      case ActSeeGblTL:
      case ActRcvPstGblTL:
      case ActRcvComGblTL:
      case ActReqRemPubGblTL:
      case ActRemPubGblTL:
      case ActReqRemComGblTL:
      case ActRemComGblTL:
	 RefreshNewTimeline = true;
	 RefreshOldTimeline = true;
	 break;

      /* User timeline */
      case ActSeeOthPubPrf:
      case ActRcvPstUsrTL:
      case ActRcvComUsrTL:
      case ActReqRemPubUsrTL:
      case ActRemPubUsrTL:
      case ActReqRemComUsrTL:
      case ActRemComUsrTL:
	 RefreshOldTimeline = true;
	 break;

      /* Match */
      case ActJoiMch:
      case ActSeeMchAnsQstStd:
      case ActRemMchAnsQstStd:
      case ActAnsMchQstStd:
	 RefreshMatchStd = true;
	 break;
      case ActNewMch:
      case ActResMch:
      case ActBckMch:
      case ActPlyPauMch:
      case ActFwdMch:
      case ActChgNumColMch:
      case ActChgVisResMchQst:
      case ActMchCntDwn:
	 RefreshMatchTch = true;
	 break;

      default:
	 break;
     }

   HTM_SCRIPT_Begin (NULL,NULL);

      Dat_WriteScriptMonths ();

      if (RefreshNewTimeline)		// Refresh new timeline via AJAX
	 HTM_TxtF ("\tvar delayNewTml = %lu;\n",Cfg_TIME_TO_REFRESH_TIMELINE);
      else if (RefreshMatchStd)		// Refresh match via AJAX
	 HTM_TxtF ("\tconst delayMatch = %lu;\n",Cfg_TIME_TO_REFRESH_MATCH_STD);
      else if (RefreshMatchTch)		// Refresh match via AJAX
	 HTM_TxtF ("\tconst delayMatch = %lu;\n",Cfg_TIME_TO_REFRESH_MATCH_TCH);

      /***** Function init () ******/
      HTM_Txt ("function init() {\n");

      HTM_TxtF ("\tactionAJAX = \"%s\";\n",Lan_STR_LANG_ID[Gbl.Prefs.Language]);

      if (RefreshConnected)		// Refresh connected users via AJAX
	 Con_WriteScriptClockConnected ();

      if (RefreshLastClicks)		// Refresh last clicks via AJAX
	 HTM_TxtF ("\tsetTimeout('refreshLastClicks()',%lu);\n",
		   Cfg_TIME_TO_REFRESH_LAST_CLICKS);
      else if (RefreshNewTimeline || RefreshOldTimeline)	// Refresh timeline via AJAX
        {
	 if (RefreshNewTimeline)
	    HTM_Txt ("\tsetTimeout('refreshNewTimeline()',delayNewTml);\n");
	 if (RefreshOldTimeline)
	    HTM_Txt ("\twindow.addEventListener('scroll', handleInfiniteScroll);\n");
        }
      else if (RefreshMatchStd)		// Refresh match for a student via AJAX
	 HTM_Txt ("\tsetTimeout('refreshMatchStd()',delayMatch);\n");
      else if (RefreshMatchTch)		// Refresh match for a teacher via AJAX
	 HTM_Txt ("\tsetTimeout('refreshMatchTch()',delayMatch);\n");

      HTM_Txt ("}\n");

   HTM_SCRIPT_End ();
  }

/*****************************************************************************/
/************** Write script to set parameters needed by AJAX ****************/
/*****************************************************************************/

static void Lay_WriteScriptParsAJAX (void)
  {
   /***** Begin script *****/
   HTM_SCRIPT_Begin (NULL,NULL);

      /***** Parameters with code of session and current course code *****/
      // Refresh parameters
      HTM_TxtF ("const refreshParamIdSes = \"ses=%s\";\n"
		"const refreshParamCrsCod = \"crs=%ld\";\n",
		Gbl.Session.Id,
		Gbl.Hierarchy.Node[Hie_CRS].HieCod);

      /***** Parameter to refresh connected users *****/
      if (Act_GetBrowserTab (Gbl.Action.Act) == Act_1ST)
	 // Refresh parameter
	 HTM_TxtF ("const refreshParamNxtActCon = \"act=%ld\";\n",
		   Act_GetActCod (ActRefCon));

      /***** Parameters related with expanding/contracting folders in file browsers *****/
      if (Gbl.FileBrowser.Type != Brw_UNKNOWN)
	 /* In all actions related to file browsers ==>
	    put parameters used by AJAX */
	 // Refresh parameters
	 HTM_TxtF ("const refreshParamExpand = \"act=%ld\";\n"
		   "const refreshParamContract = \"act=%ld\";\n",
		   Act_GetActCod (Brw_GetActionExpand   ()),
		   Act_GetActCod (Brw_GetActionContract ()));

      /***** Parameters related with other actions *****/
      switch (Gbl.Action.Act)
	{
	 /* Parameters related with global timeline refreshing */
	 case ActSeeGblTL:
	 case ActRcvPstGblTL:
	 case ActRcvComGblTL:
	 case ActReqRemPubGblTL:
	 case ActRemPubGblTL:
	 case ActReqRemComGblTL:
	 case ActRemComGblTL:
	    /* In all actions related to view or editing global timeline ==>
	       put parameters used by AJAX */
	    // Refresh parameters
	    HTM_TxtF ("const refreshParamNxtActNewPub = \"act=%ld\";\n"
		      "const refreshParamNxtActOldPub = \"act=%ld\";\n"
		      "const refreshParamWho = \"Who=%u\";\n",
		      Act_GetActCod (ActRefNewPubGblTL),
		      Act_GetActCod (ActRefOldPubGblTL),
		      (unsigned) TmlWho_GetGlobalWho ());	// Global variable got in a priori function
	    break;
	 /* Parameters related with user timeline refreshing */
	 case ActSeeOthPubPrf:
	 case ActRcvPstUsrTL:
	 case ActRcvComUsrTL:
	 case ActReqRemPubUsrTL:
	 case ActRemPubUsrTL:
	 case ActReqRemComUsrTL:
	 case ActRemComUsrTL:
	    /* In all actions related to view or editing user's timeline ==>
	       put parameters used by AJAX */
	    if (Gbl.Usrs.Other.UsrDat.UsrCod <= 0)
	       Usr_GetParOtherUsrCodEncrypted (&Gbl.Usrs.Other.UsrDat);
	    // Refresh parameters
	    HTM_TxtF ("const refreshParamNxtActOldPub = \"act=%ld\";\n"
		      "const refreshParamUsr = \"OtherUsrCod=%s\";\n",
		      Act_GetActCod (ActRefOldPubUsrTL),
		      Gbl.Usrs.Other.UsrDat.EnUsrCod);
	    break;
	 /* Parameters related with match refreshing (for students) */
	 case ActJoiMch:
	 case ActSeeMchAnsQstStd:
	 case ActRemMchAnsQstStd:
	 case ActAnsMchQstStd:
	    // Refresh parameters
	    HTM_TxtF ("const refreshParamNxtActMch = \"act=%ld\";\n"
		      "const refreshParamMchCod = \"MchCod=%ld\";\n",
		      Act_GetActCod (ActRefMchStd),
		      Mch_GetMchCodBeingPlayed ());
	    break;
	 /* Parameters related with match refreshing (for teachers) */
	 case ActNewMch:
	 case ActResMch:
	 case ActBckMch:
	 case ActPlyPauMch:
	 case ActFwdMch:
	 case ActChgNumColMch:
	 case ActChgVisResMchQst:
	 case ActMchCntDwn:
	    // Handle keys in keyboard/presenter
	    HTM_Txt ("document.addEventListener(\"keydown\",handleMatchKeys);\n");
	    // Refresh parameters
	    HTM_TxtF ("const refreshParamNxtActMch = \"act=%ld\";\n"
		      "const refreshParamMchCod = \"MchCod=%ld\";\n",
		      Act_GetActCod (ActRefMchTch),
		      Mch_GetMchCodBeingPlayed ());
	    break;
	 /* Parameter related with clicks refreshing */
	 case ActLstClk:
	    // Refresh parameter
	    HTM_TxtF ("const refreshParamNxtActLstClk = \"act=%ld\";\n",
		      Act_GetActCod (ActRefLstClk));
	    break;
	 default:
	    break;
	}

   /***** End script *****/
   HTM_SCRIPT_End ();
  }

/*****************************************************************************/
/******* Write script to customize upload of files using Dropzone.js *********/
/*****************************************************************************/
// More info: http://www.dropzonejs.com/

static void Lay_WriteScriptCustomDropzone (void)
  {
   // "myAwesomeDropzone" is the camelized version of the HTML element's ID
   // Add a line "forceFallback: true,\n" to test classic upload
   HTM_SCRIPT_Begin (NULL,NULL);
      HTM_TxtF ("Dropzone.options.myAwesomeDropzone = {\n"
		"maxFiles: 100,\n"
		"parallelUploads: 100,\n"
		"maxFilesize: %lu,\n"
		"fallback: function() {\n"
		"document.getElementById('dropzone-upload').style.display='none';\n"
		"document.getElementById('classic-upload').style.display='block';\n"
		"}\n"
		"};\n",
		(unsigned long) (Fil_MAX_FILE_SIZE / (1024ULL * 1024ULL) - 1));
   HTM_SCRIPT_End ();
  }

/*****************************************************************************/
/************************ Write top heading of the page **********************/
/*****************************************************************************/

static void Lay_WritePageTopHeading (void)
  {
   extern const char *Txt_TAGLINE;
   extern const char *Txt_TAGLINE_BR;

   /***** Begin header *****/
   HTM_Txt ("<header>");

      /***** 1st. row *****/
      /* Begin 1st. row */
      HTM_DIV_Begin ("id=\"head_row_1\" class=\"HEAD_ROW_1_%s\"",
                     The_GetSuffix ());

	 /* 1st. row, 1st. column: logo, tagline and search */
	 HTM_DIV_Begin ("id=\"head_row_1_left\"");

	    /* Begin form to go to home page */
	    Frm_BeginFormGoTo (ActMnu);
	       Par_PutParUnsigned (NULL,"NxtTab",(unsigned) TabSys);

	       HTM_DIV_Begin ("id=\"head_row_1_logo_small\"");
		  HTM_INPUT_IMAGE (Cfg_URL_ICON_PUBLIC,Cfg_PLATFORM_LOGO_SMALL_FILENAME,
				   Cfg_PLATFORM_SHORT_NAME,
				   "class=\"%s\"",Cfg_PLATFORM_LOGO_SMALL_CLASS);
	       HTM_DIV_End ();	// head_row_1_logo_small

	       HTM_DIV_Begin ("id=\"head_row_1_logo_big\"");
		  HTM_INPUT_IMAGE (Cfg_URL_ICON_PUBLIC,Cfg_PLATFORM_LOGO_BIG_FILENAME,
				   Cfg_PLATFORM_SHORT_NAME,
				   "class=\"%s\"",Cfg_PLATFORM_LOGO_BIG_CLASS);
	       HTM_DIV_End ();	// head_row_1_logo_big

	       HTM_DIV_Begin ("id=\"head_row_1_tagline\" class=\"TAGLINE_%s\"",
	                      The_GetSuffix ());
		  HTM_BUTTON_Submit_Begin (Txt_TAGLINE,NULL,"class=\"BT_LINK\"");
		     HTM_Txt (Txt_TAGLINE_BR);
		  HTM_BUTTON_End ();
	       HTM_DIV_End ();	// head_row_1_tagline

	    /* End form to go to home page */
	    Frm_EndForm ();

	    Sch_PutFormToSearchInPageTopHeading ();

	 HTM_DIV_End ();	// head_row_1_left

	 /* 1st. row, 3rd. column: logged user or language selection,
	    and link to open/close session */
	 HTM_DIV_Begin ("id=\"head_row_1_right\"");

	    if (Gbl.Usrs.Me.Logged)
	       Usr_WriteLoggedUsrHead ();
	    else
	       Lan_PutSelectorToSelectLanguage ();

	    HTM_DIV_Begin ("id=\"login_box\"");
	       if (Gbl.Usrs.Me.Logged)
		  Usr_PutFormLogOut ();
	       else
		  Usr_PutFormLogIn ();
	    HTM_DIV_End ();	// login_box

	 HTM_DIV_End ();	// head_row_1_right

      /* End 1st. row */
      HTM_DIV_End ();	// head_row_1

      /***** 2nd. row *****/
      /* Begin second row */
      HTM_DIV_Begin ("id=\"head_row_2\" class=\"HEAD_ROW_2_%s\"",
                     The_GetSuffix ());

	 /* 2nd. row, 1st. column
	    Clock with hour:minute (server hour is shown) */
	 HTM_DIV_Begin ("id=\"head_row_2_time\"");
	    Dat_ShowClientLocalTime ();
	 HTM_DIV_End ();	// End first column

	 /* 2nd. row, 2nd. column: degree and course */
	 HTM_DIV_Begin ("id=\"head_row_2_hierarchy\"");
	    Lay_WriteBreadcrumb ();
	    Hie_WriteBigNameCtyInsCtrDegCrs ();
	 HTM_DIV_End ();

	 /* 2nd. row, 3rd. column */
	 HTM_DIV_Begin ("id=\"msg\" class=\"NOTIF_%s\"",The_GetSuffix ());	// Used for AJAX based refresh
	    if (Gbl.Usrs.Me.Logged)
	       Ntf_WriteNumberOfNewNtfs ();
	 HTM_DIV_End ();							// Used for AJAX based refresh

      /* End 2nd. row */
      HTM_DIV_End ();

   /***** End header *****/
   HTM_Txt ("</header>");
  }

/*****************************************************************************/
/*********** Write breadcrumb with the path to the current location **********/
/*****************************************************************************/

static void Lay_WriteBreadcrumb (void)
  {
   HTM_Txt ("<nav id=\"breadcrumb\">");
      Hie_PutIconToSelectMyHierarchyInBreadcrumb ();
      Hie_WriteHierarchyInBreadcrumb ();
      Crs_WriteSelectorMyCoursesInBreadcrumb ();
   HTM_Txt ("</nav>");
  }

/*****************************************************************************/
/***************************** Show left column ******************************/
/*****************************************************************************/

static void Lay_ShowLeftColumn (void)
  {
   struct MFU_ListMFUActions ListMFUActions;

   if (Gbl.Usrs.Me.Logged)
     {
      /***** Most frequently used actions *****/
      MFU_AllocateMFUActions (&ListMFUActions,6);
	 MFU_GetMFUActions (&ListMFUActions,6);
	 MFU_WriteSmallMFUActions (&ListMFUActions);
      MFU_FreeMFUActions (&ListMFUActions);
     }
   else
      /***** Institutional links *****/
      SysLnk_WriteMenuWithSystemLinks ();

   /***** Month *****/
   Cal_DrawCurrentMonth ();

   /***** Notices (yellow notes) *****/
   if (Gbl.Hierarchy.HieLvl == Hie_CRS)
      Not_ShowNotices (Not_LIST_BRIEF_NOTICES,
		       -1L);	// No notice highlighted
  }

/*****************************************************************************/
/**************************** Show right column ******************************/
/*****************************************************************************/

static void Lay_ShowRightColumn (void)
  {
   extern const char *Txt_Sessions;
   extern const char *Txt_Connected_PLURAL;
   extern const char *Txt_Who_to_follow;
   extern const char *Txt_If_you_have_an_Android_device_try_SWADroid;

   /***** Banners *****/
   Ban_WriteMenuWithBanners ();

   /***** Number of connected users in the whole platform *****/
   if (Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM)
     {
      HTM_FIELDSET_Begin ("class=\"CON CON_%s\"",The_GetSuffix ());
	 HTM_LEGEND (Txt_Sessions);
	 HTM_DIV_Begin ("id=\"globalconnected\"");	// Used for AJAX based refresh
	    Con_ShowGlobalConnectedUsrs ();
	 HTM_DIV_End ();				// Used for AJAX based refresh
      HTM_FIELDSET_End ();
     }

   /***** Number of connected users in the current course *****/
   if (Gbl.Hierarchy.HieLvl == Hie_CRS)	// There is a course selected
     {
      HTM_FIELDSET_Begin ("class=\"CON CON_%s\"",The_GetSuffix ());
	 HTM_LEGEND (Txt_Connected_PLURAL);
	 HTM_DIV_Begin ("id=\"courseconnected\"");	// Used for AJAX based refresh
	    Con_ShowConnectedUsrsBelongingToCurrentCrs ();
	 HTM_DIV_End ();				// Used for AJAX based refresh
      HTM_FIELDSET_End ();
     }
   else if (Gbl.Usrs.Me.Logged)			// I am logged
     {
      /***** Suggest one user to follow *****/
      HTM_FIELDSET_Begin ("class=\"CON CON_%s\"",The_GetSuffix ());
	 HTM_LEGEND (Txt_Who_to_follow);
	 Fol_SuggestUsrsToFollowOnRightColumn ();
      HTM_FIELDSET_End ();
     }

   if (!Gbl.Usrs.Me.Logged)
     {
      /***** SWADroid advertisement *****/
      HTM_A_Begin ("href=\"%s\" target=\"_blank\" title=\"%s\"",
		   Cfg_SWADROID_URL,
		   Txt_If_you_have_an_Android_device_try_SWADroid);
	 HTM_IMG (Cfg_URL_ICON_PUBLIC,Cfg_SWADROID_ICO,NULL,
		  "class=\"SWADROID\"");
      HTM_A_End ();
     }
  }

/*****************************************************************************/
/**************** Show an icon with a link in contextual menu ****************/
/*****************************************************************************/

void Lay_PutContextualLinkOnlyIcon (Act_Action_t NextAction,const char *Anchor,
				    void (*FuncPars) (void *Args),void *Args,
				    const char *Icon,Ico_Color_t Color)
  {
   /***** Begin form *****/
   Frm_BeginFormAnchor (NextAction,Anchor);
      if (FuncPars)
	 FuncPars (Args);

      /***** Put icon with link *****/
      Ico_PutIconLink (Icon,Color,NextAction);

   /***** End form *****/
   Frm_EndForm ();
  }

/*****************************************************************************/
/**************** Show an icon with a link in contextual menu ****************/
/*****************************************************************************/

void Lay_PutContextualLinkIconText (Act_Action_t NextAction,const char *Anchor,
				    void (*FuncPars) (void *Args),void *Args,
				    const char *Icon,Ico_Color_t Color,
				    const char *Text,const char *OnSubmit)
  {
   /***** Separator *****/
   HTM_SP ();	// This space is necessary to enable
		// jumping to the next line on narrow screens

   /***** Begin form *****/
   Frm_BeginFormAnchor (NextAction,Anchor);
      if (FuncPars)
	 FuncPars (Args);

      /***** Put icon and text with link *****/
	 if (OnSubmit)
	    HTM_BUTTON_Submit_Begin (Text,NULL,
				     "class=\"BT_LINK FORM_OUT_%s BOLD\" onsubmit=\"%s\"",
				     The_GetSuffix (),OnSubmit);
	 else
	    HTM_BUTTON_Submit_Begin (Text,NULL,
				     "class=\"BT_LINK FORM_OUT_%s BOLD\"",
				     The_GetSuffix ());
	 Ico_PutIconTextLink (Icon,Color,Text);
      HTM_BUTTON_End ();

   /***** End form *****/
   Frm_EndForm ();

   /***** Separator *****/
   HTM_SP ();	// This space is necessary to enable
		// jumping to the next line on narrow screens
  }

/*****************************************************************************/
/******************** Show a checkbox in contextual menu *********************/
/*****************************************************************************/

void Lay_PutContextualCheckbox (Act_Action_t NextAction,
				void (*FuncPars) (void *Args),void *Args,
                                const char *CheckboxName,
                                HTM_Attributes_t Attributes,
                                const char *Title,const char *Text)
  {
   /***** Separator *****/
   if (Text)
      HTM_SP ();	// This space is necessary to enable
			// jumping to the next line on narrow screens

   /***** Begin form *****/
   Frm_BeginForm (NextAction);
      if (FuncPars)
	 FuncPars (Args);

      /***** Begin container *****/
      HTM_DIV_Begin ("class=\"CONTEXT_OPT %s FORM_OUT_%s BOLD\" title=\"%s\"",
		     (Attributes & HTM_CHECKED) ? "CHECKBOX_CHECKED" :
						  "CHECKBOX_UNCHECKED",
		     The_GetSuffix (),Title);

	 /***** Begin label *****/
	 HTM_LABEL_Begin (NULL);

	    /****** Checkbox *****/
	    HTM_INPUT_CHECKBOX (CheckboxName,
				Attributes,
				"value=\"Y\"");

	    /***** Text *****/
	    if (Text)
	       if (Text[0])
		  HTM_Txt (Text);

	 /***** End label *****/
	 HTM_LABEL_End ();

      /***** End container *****/
      HTM_DIV_End ();

   /***** End form *****/
   Frm_EndForm ();

   /***** Separator *****/
   if (Text)
      HTM_SP ();	// This space is necessary to enable
			// jumping to the next line on narrow screens
  }

/*****************************************************************************/
/***************** Write about zone at the end of the page *******************/
/*****************************************************************************/

void Lay_WriteAboutZone (void)
  {
   extern const char *Txt_About_X;
   extern const char *Txt_Questions_and_problems;
   unsigned i;

   /***** Begin about zone *****/
   HTM_Txt ("<address id=\"about_zone\" class=\"ABOUT\">");

      /***** Institution and center hosting the platform *****/
      HTM_A_Begin ("href=\"%s\" class=\"ABOUT\" target=\"_blank\"",Cfg_ABOUT_URL);
	 HTM_IMG (Cfg_URL_ICON_PUBLIC,Cfg_ABOUT_LOGO,Cfg_ABOUT_NAME,
		  "style=\"width:%upx; height:%upx;\"",
		  Cfg_ABOUT_LOGO_WIDTH,Cfg_ABOUT_LOGO_HEIGHT);
	 HTM_DIV_Begin (NULL);
	    HTM_Txt (Cfg_ABOUT_NAME);
	 HTM_DIV_End ();
      HTM_A_End ();

      /***** Questions and problems *****/
      HTM_DIV_Begin (NULL);
	 HTM_Txt (Txt_Questions_and_problems); HTM_Colon (); HTM_NBSP ();
	 HTM_A_Begin ("href=\"mailto:%s\" class=\"ABOUT\" target=\"_blank\"",
		      Cfg_PLATFORM_RESPONSIBLE_EMAIL);
	    HTM_Txt (Cfg_PLATFORM_RESPONSIBLE_EMAIL);
	 HTM_A_End ();
      HTM_DIV_End ();

      /***** About and time to generate and send page *****/
      HTM_DIV_Begin (NULL);

	 /* About */
	 HTM_A_Begin ("href=\"%s\" class=\"ABOUT\" target=\"_blank\"",Cfg_ABOUT_SWAD_URL);
	    HTM_TxtF (Txt_About_X,Log_PLATFORM_VERSION);
	 HTM_A_End ();
	 for (i = 0;
	      i < 5;
	      i++)
	    HTM_NBSP ();

	 /* Time to generate and send page */
	 Dat_WriteTimeToGenerateAndSendPage ();

      HTM_DIV_End ();

   /***** End about zone *****/
   HTM_Txt ("</address>");	// about_zone
  }

/*****************************************************************************/
/*********** Refresh notifications and connected users via AJAX **************/
/*****************************************************************************/

void Lay_RefreshRightColumn (void)
  {
   pid_t PID = Prc_GetPID ();

   /***** Sometimes, someone must do this work,
          so who best than processes that refresh via AJAX? *****/
   // We use (PID % prime-number) to do only one action as much
   if      (!(PID %  11))
      Ntf_SendPendingNotifByEMailToAllUsrs ();	// Send pending notifications by email
   else if (!(PID %  19))
      Fir_DB_PurgeFirewallLog ();		// Remove old clicks from firewall
   else if (!(PID %  23))
      // Remove the oldest temporary public directories used for downloading
      Fil_RemoveOldTmpFiles (Cfg_PATH_FILE_BROWSER_TMP_PUBLIC,
                             Cfg_TIME_TO_DELETE_BROWSER_TMP_FILES,
                             Fil_DONT_REMOVE_DIRECTORY);
   else if (!(PID % 101))
      Brw_DB_RemoveExpiredExpandedFolders ();	// Remove old expanded folders (from all users)
   else if (!(PID % 103))
      Set_DB_RemoveOldSettingsFromIP ();	// Remove old settings from IP
   else if (!(PID % 107))
      Log_DB_RemoveOldEntriesRecentLog ();	// Remove old entries in recent log table, it's a slow query
   else if (!(PID % 109))
      Fil_RemoveOldTmpFiles (Cfg_PATH_OUT_PRIVATE,
                             Cfg_TIME_TO_DELETE_HTML_OUTPUT,
                             Fil_DONT_REMOVE_DIRECTORY);
   else if (!(PID % 113))
      Fil_RemoveOldTmpFiles (Cfg_PATH_PHOTO_TMP_PUBLIC,
                             Cfg_TIME_TO_DELETE_PHOTOS_TMP_FILES,
                             Fil_DONT_REMOVE_DIRECTORY);
   else if (!(PID % 127))
      Fil_RemoveOldTmpFiles (Cfg_PATH_PHOTO_TMP_PRIVATE,
                             Cfg_TIME_TO_DELETE_PHOTOS_TMP_FILES,
                             Fil_DONT_REMOVE_DIRECTORY);
   else if (!(PID % 131))
      Fil_RemoveOldTmpFiles (Cfg_PATH_MEDIA_TMP_PRIVATE,
                             Cfg_TIME_TO_DELETE_MEDIA_TMP_FILES,
                             Fil_DONT_REMOVE_DIRECTORY);
   else if (!(PID % 137))
      Fil_RemoveOldTmpFiles (Cfg_PATH_ZIP_PRIVATE,
                             Cfg_TIME_TO_DELETE_BROWSER_ZIP_FILES,
                             Fil_DONT_REMOVE_DIRECTORY);
   else if (!(PID % 139))
      Fil_RemoveOldTmpFiles (Cfg_PATH_MARK_PRIVATE,
                             Cfg_TIME_TO_DELETE_MARKS_TMP_FILES,
                             Fil_DONT_REMOVE_DIRECTORY);
   else if (!(PID % 149))
      Fil_RemoveOldTmpFiles (Cfg_PATH_TEST_PRIVATE,
                             Cfg_TIME_TO_DELETE_TEST_TMP_FILES,
                             Fil_DONT_REMOVE_DIRECTORY);

   Con_RefreshConnected ();
  }

/*****************************************************************************/
/**************** Refresh last clicks in realtime via AJAX *******************/
/*****************************************************************************/

void Lay_RefreshLastClicks (void)
  {
   /***** Trivial check: if no current session, don't do anything *****/
   if (Gbl.Session.Status != Ses_OPEN)
      return;

   /***** Send, before the HTML, the refresh time *****/
   HTM_TxtF ("%lu|",Cfg_TIME_TO_REFRESH_LAST_CLICKS);

   /***** Get and show last clicks *****/
   Log_GetAndShowLastClicks ();
  }

/*****************************************************************************/
/************************ Write the end of the page **************************/
/*****************************************************************************/

static void Lay_WriteFootFromHTMLFile (void)
  {
   FILE *FileHTML;

   /***** Open file with the HTML page for the chat *****/
   if ((FileHTML = fopen (Cfg_PATH_AND_FILE_REL_HTML_PRIVATE,"rb")))
     {
      HTM_Txt ("<footer id=\"foot_zone\">");

	 /***** Copy HTML to output file *****/
	 Fil_FastCopyOfOpenFiles (FileHTML,Fil_GetOutputFile ());
	 fclose (FileHTML);

      HTM_Txt ("</footer>");
     }
  }

/*****************************************************************************/
/****** Write header and footer of the class photo or academic calendar ******/
/*****************************************************************************/

void Lay_WriteHeaderClassPhoto (Hie_Level_t HieLvl,Vie_ViewType_t ViewType)
  {
   extern Err_SuccessOrError_t (*Hie_GetDataByCod[Hie_NUM_LEVELS]) (struct Hie_Node *Node);
   struct Hie_Node Hie[Hie_NUM_LEVELS];
   __attribute__((unused)) Err_SuccessOrError_t SuccessOrError;

   /***** Initialize institution, degree and course to show in header *****/
   Hie[Hie_INS].HieCod = HieLvl >= Hie_INS ? Gbl.Hierarchy.Node[Hie_INS].HieCod :
					     -1L;
   Hie[Hie_DEG].HieCod = HieLvl >= Hie_DEG ? Gbl.Hierarchy.Node[Hie_DEG].HieCod :
					     -1L;
   Hie[Hie_CRS].HieCod = HieLvl == Hie_CRS ? Gbl.Hierarchy.Node[Hie_CRS].HieCod :
					     -1L;

   /***** Get data of institution, degree and course *****/
   SuccessOrError = Hie_GetDataByCod[Hie_INS] (&Hie[Hie_INS]);
   SuccessOrError = Hie_GetDataByCod[Hie_DEG] (&Hie[Hie_DEG]);
   SuccessOrError = Hie_GetDataByCod[Hie_CRS] (&Hie[Hie_CRS]);

   /***** Begin container *****/
   HTM_DIV_Begin ("class=\"CLASSPHOTO_HEAD_CONT\"");

      /***** First column: institution logo *****/
      HTM_DIV_Begin ("class=\"CLASSPHOTO_HEAD_LEFT\"");
	 if (Hie[Hie_INS].HieCod > 0)
	   {
	    if (ViewType == Vie_VIEW)
	       HTM_A_Begin ("href=\"%s\" target=\"_blank\"",Hie[Hie_INS].WWW);
	    Lgo_DrawLogo (Hie_INS,&Hie[Hie_INS],"ICO40x40");
	    if (ViewType == Vie_VIEW)
	       HTM_A_End ();
	   }
      HTM_DIV_End ();

      /***** Second column: class photo title *****/
      HTM_DIV_Begin ("class=\"CLASSPHOTO_HEAD_CENTER CLASSPHOTO_TITLE CLASSPHOTO_%s\"",
		     The_GetSuffix ());
	 if (Hie[Hie_INS].HieCod > 0)
	   {
	    if (ViewType == Vie_VIEW)
	       HTM_A_Begin ("href=\"%s\" target=\"_blank\""
			    " class=\"CLASSPHOTO_TITLE CLASSPHOTO_%s\"",
			    Hie[Hie_INS].WWW,The_GetSuffix ());
	    HTM_Txt (Hie[Hie_INS].FullName);
	    if (ViewType == Vie_VIEW)
	       HTM_A_End ();
	   }
	 if (Hie[Hie_DEG].HieCod > 0)
	   {
	    if (Hie[Hie_INS].HieCod > 0)
	       HTM_Txt (" - ");
	    if (ViewType == Vie_VIEW)
	       HTM_A_Begin ("href=\"%s\" target=\"_blank\""
			    " class=\"CLASSPHOTO_TITLE CLASSPHOTO_%s\"",
			    Hie[Hie_DEG].WWW,The_GetSuffix ());
	    HTM_Txt (Hie[Hie_DEG].FullName);
	    if (ViewType == Vie_VIEW)
	       HTM_A_End ();
	   }
	 HTM_BR ();
	 if (Hie[Hie_CRS].HieCod > 0)
	   {
	    HTM_Txt (Hie[Hie_CRS].FullName);
	    if (!Gbl.Crs.Grps.AllGrpsSel)
	      {
	       HTM_BR ();
	       Grp_WriteNamesOfSelectedGrps ();
	      }
	   }
      HTM_DIV_End ();

      /***** Third column: degree logo *****/
      HTM_DIV_Begin ("class=\"CLASSPHOTO_HEAD_RIGHT\"");
	 if (Hie[Hie_DEG].HieCod > 0)
	   {
	    if (ViewType == Vie_VIEW)
	       HTM_A_Begin ("href=\"%s\" target=\"_blank\""
			    " class=\"CLASSPHOTO_TITLE CLASSPHOTO_%s\"",
			    Hie[Hie_DEG].WWW,The_GetSuffix ());
	    Lgo_DrawLogo (Hie_DEG,&Hie[Hie_DEG],"ICO40x40");
	    if (ViewType == Vie_VIEW)
	       HTM_A_End ();
	   }
      HTM_DIV_End ();

   /***** End container *****/
   HTM_DIV_End ();
  }

/*****************************************************************************/
/**************** Show advertisement about mobile version ********************/
/*****************************************************************************/

#define Lay_SHOW_ADVERTISEMENT_ONE_TIME_OF_X	5	// n ==> show advertisement 1/n of the times

void Lay_AdvertisementMobile (void)
  {
   extern const char *Txt_Stay_connected_with_SWADroid;

   if (!(rand () % Lay_SHOW_ADVERTISEMENT_ONE_TIME_OF_X))
     {
      HTM_DIV_Begin ("style=\"margin-top:25px;\"");

	 /***** Begin box and table *****/
	 Box_BoxTableBegin (NULL,NULL,NULL,NULL,Box_NOT_CLOSABLE,8);

	    /***** Show advertisement *****/
	    HTM_TR_Begin (NULL);
	       HTM_TD_Begin ("class=\"CM DAT_%s\"",The_GetSuffix ());
		  HTM_A_Begin ("href=\"https://play.google.com/store/apps/details?id=es.ugr.swad.swadroid\""
			       " class=\"DAT_%s\"",The_GetSuffix ());
		     HTM_Txt (Txt_Stay_connected_with_SWADroid);
		     HTM_BR ();
		     HTM_BR ();
		     HTM_IMG (Cfg_URL_ICON_PUBLIC,Cfg_SWADROID_ICO,Txt_Stay_connected_with_SWADroid,
			      "class=\"SWADROID\"");
		  HTM_A_End ();
	       HTM_TD_End ();
	    HTM_TR_End ();

	 /***** End table and box *****/
	 Box_BoxTableEnd ();

      HTM_DIV_End ();
     }
  }

/*****************************************************************************/
/****************** Indent forum, chat or course tree title ******************/
/*****************************************************************************/
// IsLastItemInLevel is a vector with at least 1 + Level elements

void Lay_IndentDependingOnLevel (unsigned Level,
				 const Lay_Last_t *IsLastItemInLevel,
				 Lay_HorizontalLineAtRight_t HorizontalLineAtRight)
  {
   static const char *Icons[Lay_NUM_HORIZONTAL_LINE_AT_RIGHT][Lay_NUM_LAST] =
     {
      [Lay_NO_HORIZONTAL_LINE_AT_RIGHT][Lay_NO_LAST] = "subleft20x20.gif",
      [Lay_NO_HORIZONTAL_LINE_AT_RIGHT][Lay_LAST   ] = "tr20x20.gif",
      [Lay_HORIZONTAL_LINE_AT_RIGHT   ][Lay_NO_LAST] = "submid20x20.gif",
      [Lay_HORIZONTAL_LINE_AT_RIGHT   ][Lay_LAST   ] = "subend20x20.gif",
     };
   unsigned L;

   if (Level <= 1)
      return;

   /***** Indent (from 2 to Level-1) *****/
   for (L = 2;
	L < Level;
	L++)
      Ico_PutIcon (Icons[Lay_NO_HORIZONTAL_LINE_AT_RIGHT][IsLastItemInLevel[L]],
		   Ico_BLACK,"","ICO25x25");

   /***** Level *****/
   Ico_PutIcon (Icons[HorizontalLineAtRight][IsLastItemInLevel[Level]],
	        Ico_BLACK,"","ICO25x25");
  }

/*****************************************************************************/
/************************** Help for the text editor *************************/
/*****************************************************************************/
// Online LaTeX formula editors:
// https://latexeditor.lagrida.com/
// https://editor.codecogs.com/

void Lay_HelpPlainEditor (void)
  {
   extern const char *Txt_TEXT_plain;

   Lay_HelpTextEditor (Txt_TEXT_plain,
                       "\\(LaTeX\\)",
                       "$$LaTeX$$&nbsp;\\[LaTeX\\]");
  }

void Lay_HelpRichEditor (void)
  {
   Lay_HelpTextEditor ("<a href=\"http://johnmacfarlane.net/pandoc/README.html#pandocs-markdown\""
	               " target=\"_blank\">Markdown+Pandoc</a>",
                       "$LaTeX$",
                       "$$LaTeX$$");
  }

static void Lay_HelpTextEditor (const char *Text,const char *InlineMath,const char *Equation)
  {
   extern const char *Txt_Text;
   extern const char *Txt_Inline_math;
   extern const char *Txt_Equation_centered;

   HTM_DIV_Begin ("class=\"HELP_EDIT\"");
      HTM_TxtF ("%s: %s"
		" "
		"%s: <code>%s</code>"
		" "
		"%s: <code>%s</code>",
		Txt_Text,Text,
		Txt_Inline_math,InlineMath,
		Txt_Equation_centered,Equation);
   HTM_DIV_End ();
  }

/*****************************************************************************/
/************************** Help for the text editor *************************/
/*****************************************************************************/

void Lay_BeginHTMLFile (FILE *File,const char *Title)
  {
   extern const char *Lan_STR_LANG_ID[1 + Lan_NUM_LANGUAGES];

   fprintf (File,"<!DOCTYPE html>\n"
		 "<html lang=\"%s\">\n"
		    "<head>\n"
		       "<meta http-equiv=\"Content-Type\""
		       " content=\"text/html;charset=windows-1252\">\n"
		       "<title>"
			  "%s"
		       "</title>\n"
		    "</head>\n",
	    Lan_STR_LANG_ID[Gbl.Prefs.Language],	// Language
	    Title);					// Page title
  }

/*****************************************************************************/
/************************** Write a div with an index ************************/
/*****************************************************************************/
// Index should be 1, 2, 3...

void Lay_WriteIndex (unsigned Index,const char *Class)
  {
   HTM_DIV_Begin ("class=\"%s_%s\"",Class,The_GetSuffix ());
      HTM_Unsigned (Index);
   HTM_DIV_End ();
  }

/*****************************************************************************/
/*************************** Write a link to update **************************/
/*****************************************************************************/

void Lay_WriteLinkToUpdate (const char *Txt,const char *OnSubmit)
  {
   HTM_DIV_Begin ("class=\"UPD\"");
      if (OnSubmit)
	 HTM_BUTTON_Submit_Begin (Txt,NULL,
				  "class=\"BT_LINK FORM_IN_%s BOLD\" onsubmit=\"%s\"",
				  The_GetSuffix (),OnSubmit);
      else
	 HTM_BUTTON_Submit_Begin (Txt,NULL,
				  "class=\"BT_LINK FORM_IN_%s BOLD\"",
				  The_GetSuffix ());
      Ico_PutIconTextUpdate (Txt);
      HTM_BUTTON_End ();
   HTM_DIV_End ();
  }

/*****************************************************************************/
/******************* Get if show from a 'Y'/'N' character ********************/
/*****************************************************************************/

Lay_Show_t Lay_GetShowFromYN (char Ch)
  {
   return Ch == 'Y' ? Lay_SHOW :
		      Lay_DONT_SHOW;
  }

/*****************************************************************************/
/************* Get parameter don't show/show from a Y/N parameter ************/
/*****************************************************************************/

Lay_Show_t Lay_GetParShow (const char *ParName)
  {
   return Par_GetParBool (ParName) ? Lay_SHOW :
				     Lay_DONT_SHOW;
  }

/*****************************************************************************/
/***** Get and show number of users who have chosen a layout of columns ******/
/*****************************************************************************/

void Lay_GetAndShowNumUsrsPerSideColumns (Hie_Level_t HieLvl)
  {
   extern const char *Hlp_ANALYTICS_Figures_columns;
   extern const char *Txt_FIGURE_TYPES[Fig_NUM_FIGURES];
   extern const char *Txt_Columns;
   extern const char *Txt_Number_of_users;
   extern const char *Txt_PERCENT_of_users;
   extern const char *Txt_LAYOUT_SIDE_COLUMNS[4];
   unsigned SideCols;
   char *SubQuery;
   char *Icon;
   unsigned NumUsrs[4];
   unsigned NumUsrsTotal = 0;

   /***** Begin box and table *****/
   Box_BoxTableBegin (Txt_FIGURE_TYPES[Fig_SIDE_COLUMNS],NULL,NULL,
                      Hlp_ANALYTICS_Figures_columns,Box_NOT_CLOSABLE,2);

      /***** Heading row *****/
      HTM_TR_Begin (NULL);
	 HTM_TH (Txt_Columns         ,HTM_HEAD_CENTER);
	 HTM_TH (Txt_Number_of_users ,HTM_HEAD_RIGHT);
	 HTM_TH (Txt_PERCENT_of_users,HTM_HEAD_RIGHT);
      HTM_TR_End ();

      /***** For each layout of columns... *****/
      for (SideCols  = 0;
	   SideCols <= Lay_SHOW_BOTH_COLUMNS;
	   SideCols++)
	{
	 /* Get the number of users who have chosen this layout of columns from database */
	 if (asprintf (&SubQuery,"usr_data.SideCols=%u",SideCols) < 0)
	    Err_NotEnoughMemoryExit ();
	 NumUsrs[SideCols] = Usr_DB_GetNumUsrsWhoChoseAnOption (HieLvl,SubQuery);
	 free (SubQuery);

	 /* Update total number of users */
	 NumUsrsTotal += NumUsrs[SideCols];
	}

      /***** Write number of users who have chosen this layout of columns *****/
      for (SideCols  = 0;
	   SideCols <= Lay_SHOW_BOTH_COLUMNS;
	   SideCols++)
	{
	 HTM_TR_Begin (NULL);

	    HTM_TD_Begin ("class=\"CM\"");
	       if (asprintf (&Icon,"layout%u%u_32x20.gif",
			     SideCols >> 1,SideCols & 1) < 0)
		  Err_NotEnoughMemoryExit ();
	       HTM_IMG (Cfg_URL_ICON_PUBLIC,Icon,Txt_LAYOUT_SIDE_COLUMNS[SideCols],
			"style=\"width:40px;height:25px;\"");
	       free (Icon);
	    HTM_TD_End ();

	    HTM_TD_Unsigned (NumUsrs[SideCols]);
	    HTM_TD_Percentage (NumUsrs[SideCols],NumUsrsTotal);

	 HTM_TR_End ();
	}

   /***** End table and box *****/
   Box_BoxTableEnd ();
  }
