swad-core/swad_indicator.c

// swad_indicators.c: indicators of courses

/*
    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-2020 Antonio Ca<EFBFBD>as Vargas

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

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

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

#include <stddef.h>		// For NULL
#include <mysql/mysql.h>	// To access MySQL databases

#include "swad_action.h"
#include "swad_box.h"
#include "swad_database.h"
#include "swad_form.h"
#include "swad_forum.h"
#include "swad_global.h"
#include "swad_HTML.h"
#include "swad_indicator.h"
#include "swad_parameter.h"
#include "swad_theme.h"

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

extern struct Globals Gbl;

/*****************************************************************************/
/**************************** Private constants ******************************/
/*****************************************************************************/

/*****************************************************************************/
/******************************* Private types *******************************/
/*****************************************************************************/

typedef enum
  {
   Ind_INDICATORS_BRIEF,
   Ind_INDICATORS_FULL,
  } Ind_IndicatorsLayout_t;

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

static void Ind_GetParamsIndicators (void);
static void Ind_GetParamNumIndicators (void);
static unsigned Ind_GetTableOfCourses (MYSQL_RES **mysql_res);
static bool Ind_GetIfShowBigList (unsigned NumCrss);
static void Ind_PutButtonToConfirmIWantToSeeBigList (unsigned NumCrss);
static void Ind_PutParamsConfirmIWantToSeeBigList (void);

static void Ind_GetNumCoursesWithIndicators (unsigned NumCrssWithIndicatorYes[1 + Ind_NUM_INDICATORS],
                                             unsigned NumCrss,MYSQL_RES *mysql_res);
static void Ind_ShowNumCoursesWithIndicators (unsigned NumCrssWithIndicatorYes[1 + Ind_NUM_INDICATORS],
                                              unsigned NumCrss,bool PutForm);
static void Ind_ShowTableOfCoursesWithIndicators (Ind_IndicatorsLayout_t IndicatorsLayout,
                                                  unsigned NumCrss,MYSQL_RES *mysql_res);
static unsigned Ind_GetAndUpdateNumIndicatorsCrs (long CrsCod);
static void Ind_StoreIndicatorsCrsIntoDB (long CrsCod,unsigned NumIndicators);
static unsigned long Ind_GetNumFilesInDocumZonesOfCrsFromDB (long CrsCod);
static unsigned long Ind_GetNumFilesInShareZonesOfCrsFromDB (long CrsCod);
static unsigned long Ind_GetNumFilesInAssigZonesOfCrsFromDB (long CrsCod);
static unsigned long Ind_GetNumFilesInWorksZonesOfCrsFromDB (long CrsCod);

/*****************************************************************************/
/******************* Request showing statistics of courses *******************/
/*****************************************************************************/

void Ind_ReqIndicatorsCourses (void)
  {
   extern const char *Hlp_ANALYTICS_Indicators;
   extern const char *The_ClassFormInBox[The_NUM_THEMES];
   extern const char *Txt_Scope;
   extern const char *Txt_Types_of_degree;
   extern const char *Txt_only_if_the_scope_is_X;
   extern const char *Txt_Department;
   extern const char *Txt_Any_department;
   extern const char *Txt_No_of_indicators;
   extern const char *Txt_Indicators_of_courses;
   extern const char *Txt_Show_more_details;
   MYSQL_RES *mysql_res;
   unsigned NumCrss;
   unsigned NumCrssWithIndicatorYes[1 + Ind_NUM_INDICATORS];
   unsigned NumCrssToList;
   unsigned Ind;

   /***** Get parameters *****/
   Ind_GetParamsIndicators ();

   /***** Begin box *****/
   Box_BoxBegin (NULL,Txt_Indicators_of_courses,NULL,
                 Hlp_ANALYTICS_Indicators,Box_NOT_CLOSABLE);

   /***** Form to update indicators *****/
   /* Begin form and table */
   Frm_StartForm (ActReqStaCrs);
   HTM_TABLE_BeginWidePadding (2);

   /* Scope */
   HTM_TR_Begin (NULL);

   /* Label */
   Frm_LabelColumn ("RT","ScopeInd",Txt_Scope);

   /* Data */
   HTM_TD_Begin ("class=\"LT\"");
   Sco_PutSelectorScope ("ScopeInd",true);
   HTM_TD_End ();

   HTM_TR_End ();

   /* Compute stats for a type of degree */
   HTM_TR_Begin (NULL);

   /* Label */
   Frm_LabelColumn ("RT","OthDegTypCod",Txt_Types_of_degree);

   /* Data */
   HTM_TD_Begin ("class=\"DAT LT\"");
   DT_WriteSelectorDegreeTypes ();
   HTM_Txt (" (");
   HTM_TxtF (Txt_only_if_the_scope_is_X,Cfg_PLATFORM_SHORT_NAME);
   HTM_Txt (")");
   HTM_TD_End ();

   HTM_TR_End ();

   /* Compute stats for courses with teachers belonging to any department or to a particular departament? */
   HTM_TR_Begin (NULL);

   /* Label */
   Frm_LabelColumn ("RT",Dpt_PARAM_DPT_COD_NAME,Txt_Department);

   /* Data */
   HTM_TD_Begin ("class=\"LT\"");
   Dpt_WriteSelectorDepartment (Gbl.Hierarchy.Ins.InsCod,	// Departments in current insitution
                                Gbl.Stat.DptCod,		// Selected department
                                "INDICATORS_INPUT",		// Selector class
                                -1L,				// First option
                                Txt_Any_department,		// Text when no department selected
                                true);				// Submit on change
   HTM_TD_End ();

   HTM_TR_End ();

   /***** Get courses from database *****/
   /* The result will contain courses with any number of indicators
      If Gbl.Stat.NumIndicators <  0 ==> all courses in result will be listed
      If Gbl.Stat.NumIndicators >= 0 ==> only those courses in result
                                         with Gbl.Stat.NumIndicators set to yes
                                         will be listed */
   NumCrss = Ind_GetTableOfCourses (&mysql_res);

   /***** Get vector with numbers of courses with 0, 1, 2... indicators set to yes *****/
   Ind_GetNumCoursesWithIndicators (NumCrssWithIndicatorYes,NumCrss,mysql_res);

   /* Selection of the number of indicators */
   HTM_TR_Begin (NULL);

   HTM_TD_Begin ("class=\"RT %s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
   HTM_TxtF ("%s:",Txt_No_of_indicators);
   HTM_TD_End ();

   HTM_TD_Begin ("class=\"LT\"");
   Ind_ShowNumCoursesWithIndicators (NumCrssWithIndicatorYes,NumCrss,true);
   HTM_TD_End ();

   HTM_TR_End ();

   /* End table and form */
   HTM_TABLE_End ();
   Frm_EndForm ();

   /***** Show the stats of courses *****/
   for (Ind = 0, NumCrssToList = 0;
	Ind <= Ind_NUM_INDICATORS;
	Ind++)
      if (Gbl.Stat.IndicatorsSelected[Ind])
         NumCrssToList += NumCrssWithIndicatorYes[Ind];
   if (Ind_GetIfShowBigList (NumCrssToList))
     {
      /* Show table */
      Ind_ShowTableOfCoursesWithIndicators (Ind_INDICATORS_BRIEF,NumCrss,mysql_res);

      /* Button to show more details */
      Frm_StartForm (ActSeeAllStaCrs);
      Sco_PutParamScope ("ScopeInd",Gbl.Scope.Current);
      Par_PutHiddenParamLong (NULL,"OthDegTypCod",Gbl.Stat.DegTypCod);
      Par_PutHiddenParamLong (NULL,Dpt_PARAM_DPT_COD_NAME,Gbl.Stat.DptCod);
      if (Gbl.Stat.StrIndicatorsSelected[0])
         Par_PutHiddenParamString (NULL,"Indicators",Gbl.Stat.StrIndicatorsSelected);
      Btn_PutConfirmButton (Txt_Show_more_details);
      Frm_EndForm ();
     }

   /***** End box *****/
   Box_BoxEnd ();

   /***** Free structure that stores the query result *****/
   DB_FreeMySQLResult (&mysql_res);
  }

/*****************************************************************************/
/************* Get parameters related to indicators of courses ***************/
/*****************************************************************************/

static void Ind_GetParamsIndicators (void)
  {
   /***** Get scope *****/
   Gbl.Scope.Allowed = 1 << Hie_SYS |
	               1 << Hie_CTY |
		       1 << Hie_INS |
		       1 << Hie_CTR |
		       1 << Hie_DEG |
		       1 << Hie_CRS;
   Gbl.Scope.Default = Hie_CRS;
   Sco_GetScope ("ScopeInd");

   /***** Get degree type code *****/
   Gbl.Stat.DegTypCod = (Gbl.Scope.Current == Hie_SYS) ?
	                DT_GetAndCheckParamOtherDegTypCod (-1L) :	// -1L (any degree type) is allowed here
                        -1L;

   /***** Get department code *****/
   Gbl.Stat.DptCod = Dpt_GetAndCheckParamDptCod (-1L);	// -1L (any department) is allowed here

   /***** Get number of indicators *****/
   Ind_GetParamNumIndicators ();
  }

/*****************************************************************************/
/*********************** Show statistics of courses **************************/
/*****************************************************************************/

void Ind_ShowIndicatorsCourses (void)
  {
   MYSQL_RES *mysql_res;
   unsigned NumCrss;
   unsigned NumCrssWithIndicatorYes[1 + Ind_NUM_INDICATORS];

   /***** Get parameters *****/
   Ind_GetParamsIndicators ();

   /***** Get courses from database *****/
   NumCrss = Ind_GetTableOfCourses (&mysql_res);

   /***** Get vector with numbers of courses with 0, 1, 2... indicators set to yes *****/
   Ind_GetNumCoursesWithIndicators (NumCrssWithIndicatorYes,NumCrss,mysql_res);

   /***** Show table with numbers of courses with 0, 1, 2... indicators set to yes *****/
   Ind_ShowNumCoursesWithIndicators (NumCrssWithIndicatorYes,NumCrss,false);

   /***** Show the stats of courses *****/
   Ind_ShowTableOfCoursesWithIndicators (Ind_INDICATORS_FULL,NumCrss,mysql_res);

   /***** Free structure that stores the query result *****/
   DB_FreeMySQLResult (&mysql_res);
  }

/*****************************************************************************/
/*************** Get parameter with the number of indicators *****************/
/*****************************************************************************/

static void Ind_GetParamNumIndicators (void)
  {
   unsigned Ind;
   const char *Ptr;
   char LongStr[Cns_MAX_DECIMAL_DIGITS_LONG + 1];
   long Indicator;

   /***** Get parameter multiple with list of indicators selected *****/
   Par_GetParMultiToText ("Indicators",Gbl.Stat.StrIndicatorsSelected,Ind_MAX_SIZE_INDICATORS_SELECTED);

   /***** Set which indicators have been selected (checkboxes on) *****/
   if (Gbl.Stat.StrIndicatorsSelected[0])
     {
      /* Reset all indicators */
      for (Ind = 0;
	   Ind <= Ind_NUM_INDICATORS;
	   Ind++)
	 Gbl.Stat.IndicatorsSelected[Ind] = false;

      /* Set indicators selected */
      for (Ptr = Gbl.Stat.StrIndicatorsSelected;
	   *Ptr;
	   )
	{
	 /* Get next indicator selected */
	 Par_GetNextStrUntilSeparParamMult (&Ptr,LongStr,Cns_MAX_DECIMAL_DIGITS_LONG);
	 Indicator = Str_ConvertStrCodToLongCod (LongStr);

	 /* Set each indicator in list StrIndicatorsSelected as selected */
	 for (Ind = 0;
	      Ind <= Ind_NUM_INDICATORS;
	      Ind++)
	    if ((long) Ind == Indicator)
	       Gbl.Stat.IndicatorsSelected[Ind] = true;
	}
     }
   else
      /* Set all indicators */
      for (Ind = 0;
	   Ind <= Ind_NUM_INDICATORS;
	   Ind++)
	 Gbl.Stat.IndicatorsSelected[Ind] = true;
  }

/*****************************************************************************/
/******************* Build query to get table of courses *********************/
/*****************************************************************************/
// Return the number of courses found

static unsigned Ind_GetTableOfCourses (MYSQL_RES **mysql_res)
  {
   unsigned NumCrss = 0;	// Initialized to avoid warning

   switch (Gbl.Scope.Current)
     {
      case Hie_SYS:
         if (Gbl.Stat.DptCod >= 0)	// 0 means another department
           {
            if (Gbl.Stat.DegTypCod > 0)
               NumCrss =
               (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
					  "SELECT DISTINCTROW degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
					  " FROM degrees,courses,crs_usr,usr_data"
					  " WHERE degrees.DegTypCod=%ld"
					  " AND degrees.DegCod=courses.DegCod"
					  " AND courses.CrsCod=crs_usr.CrsCod"
					  " AND crs_usr.Role=%u"
					  " AND crs_usr.UsrCod=usr_data.UsrCod"
					  " AND usr_data.DptCod=%ld"
					  " ORDER BY degrees.FullName,courses.FullName",
					  Gbl.Stat.DegTypCod,
					  (unsigned) Rol_TCH,
					  Gbl.Stat.DptCod);
            else
               NumCrss =
               (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
					  "SELECT DISTINCTROW degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
					  " FROM degrees,courses,crs_usr,usr_data"
					  " WHERE degrees.DegCod=courses.DegCod"
					  " AND courses.CrsCod=crs_usr.CrsCod"
					  " AND crs_usr.Role=%u"
					  " AND crs_usr.UsrCod=usr_data.UsrCod"
					  " AND usr_data.DptCod=%ld"
					  " ORDER BY degrees.FullName,courses.FullName",
					  (unsigned) Rol_TCH,
					  Gbl.Stat.DptCod);
           }
         else
           {
            if (Gbl.Stat.DegTypCod > 0)
               NumCrss =
               (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
					  "SELECT degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
					  " FROM degrees,courses"
					  " WHERE degrees.DegTypCod=%ld"
					  " AND degrees.DegCod=courses.DegCod"
					  " ORDER BY degrees.FullName,courses.FullName",
					  Gbl.Stat.DegTypCod);
            else
               NumCrss =
               (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
					  "SELECT degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
					  " FROM degrees,courses"
					  " WHERE degrees.DegCod=courses.DegCod"
					  " ORDER BY degrees.FullName,courses.FullName");
           }
         break;
      case Hie_CTY:
         if (Gbl.Stat.DptCod >= 0)	// 0 means another department
            NumCrss =
            (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
				       "SELECT DISTINCTROW degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
				       " FROM institutions,centres,degrees,courses,crs_usr,usr_data"
				       " WHERE institutions.CtyCod=%ld"
				       " AND institutions.InsCod=centres.InsCod"
				       " AND centres.CtrCod=degrees.CtrCod"
				       " AND degrees.DegCod=courses.DegCod"
				       " AND courses.CrsCod=crs_usr.CrsCod"
				       " AND crs_usr.Role=%u"
				       " AND crs_usr.UsrCod=usr_data.UsrCod"
				       " AND usr_data.DptCod=%ld"
				       " ORDER BY degrees.FullName,courses.FullName",
				       Gbl.Hierarchy.Cty.CtyCod,
				       (unsigned) Rol_TCH,
				       Gbl.Stat.DptCod);
         else
            NumCrss =
            (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
				       "SELECT degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
				       " FROM institutions,centres,degrees,courses"
				       " WHERE institutions.CtyCod=%ld"
				       " AND institutions.InsCod=centres.InsCod"
				       " AND centres.CtrCod=degrees.CtrCod"
				       " AND degrees.DegCod=courses.DegCod"
				       " ORDER BY degrees.FullName,courses.FullName",
				       Gbl.Hierarchy.Cty.CtyCod);
         break;
      case Hie_INS:
         if (Gbl.Stat.DptCod >= 0)	// 0 means another department
            NumCrss =
            (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
				       "SELECT DISTINCTROW degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
				       " FROM centres,degrees,courses,crs_usr,usr_data"
				       " WHERE centres.InsCod=%ld"
				       " AND centres.CtrCod=degrees.CtrCod"
				       " AND degrees.DegCod=courses.DegCod"
				       " AND courses.CrsCod=crs_usr.CrsCod"
				       " AND crs_usr.Role=%u"
				       " AND crs_usr.UsrCod=usr_data.UsrCod"
				       " AND usr_data.DptCod=%ld"
				       " ORDER BY degrees.FullName,courses.FullName",
				       Gbl.Hierarchy.Ins.InsCod,
				       (unsigned) Rol_TCH,
				       Gbl.Stat.DptCod);
         else
            NumCrss =
            (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
				       "SELECT degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
				       " FROM centres,degrees,courses"
				       " WHERE centres.InsCod=%ld"
				       " AND centres.CtrCod=degrees.CtrCod"
				       " AND degrees.DegCod=courses.DegCod"
				       " ORDER BY degrees.FullName,courses.FullName",
				       Gbl.Hierarchy.Ins.InsCod);
         break;
      case Hie_CTR:
         if (Gbl.Stat.DptCod >= 0)	// 0 means another department
            NumCrss =
            (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
				       "SELECT DISTINCTROW degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
				       " FROM degrees,courses,crs_usr,usr_data"
				       " WHERE degrees.CtrCod=%ld"
				       " AND degrees.DegCod=courses.DegCod"
				       " AND courses.CrsCod=crs_usr.CrsCod"
				       " AND crs_usr.Role=%u"
				       " AND crs_usr.UsrCod=usr_data.UsrCod"
				       " AND usr_data.DptCod=%ld"
				       " ORDER BY degrees.FullName,courses.FullName",
				       Gbl.Hierarchy.Ctr.CtrCod,
				       (unsigned) Rol_TCH,
				       Gbl.Stat.DptCod);
         else
            NumCrss =
            (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
				       "SELECT degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
				       " FROM degrees,courses"
				       " WHERE degrees.CtrCod=%ld"
				       " AND degrees.DegCod=courses.DegCod"
				       " ORDER BY degrees.FullName,courses.FullName",
				       Gbl.Hierarchy.Ctr.CtrCod);
         break;
      case Hie_DEG:
         if (Gbl.Stat.DptCod >= 0)	// 0 means another department
            NumCrss =
            (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
				       "SELECT DISTINCTROW degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
				       " FROM degrees,courses,crs_usr,usr_data"
				       " WHERE degrees.DegCod=%ld"
				       " AND degrees.DegCod=courses.DegCod"
				       " AND courses.CrsCod=crs_usr.CrsCod"
				       " AND crs_usr.Role=%u"
				       " AND crs_usr.UsrCod=usr_data.UsrCod"
				       " AND usr_data.DptCod=%ld"
				       " ORDER BY degrees.FullName,courses.FullName",
				       Gbl.Hierarchy.Deg.DegCod,
				       (unsigned) Rol_TCH,
				       Gbl.Stat.DptCod);
         else
            NumCrss =
            (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
				       "SELECT degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
				       " FROM degrees,courses"
				       " WHERE degrees.DegCod=%ld"
				       " AND degrees.DegCod=courses.DegCod"
				       " ORDER BY degrees.FullName,courses.FullName",
				       Gbl.Hierarchy.Deg.DegCod);
         break;
      case Hie_CRS:
         if (Gbl.Stat.DptCod >= 0)	// 0 means another department
            NumCrss =
            (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
				       "SELECT DISTINCTROW degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
				       " FROM degrees,courses,crs_usr,usr_data"
				       " WHERE courses.CrsCod=%ld"
				       " AND degrees.DegCod=courses.DegCod"
				       " AND courses.CrsCod=crs_usr.CrsCod"
				       " AND crs_usr.CrsCod=%ld"
				       " AND crs_usr.Role=%u"
				       " AND crs_usr.UsrCod=usr_data.UsrCod"
				       " AND usr_data.DptCod=%ld"
				       " ORDER BY degrees.FullName,courses.FullName",
				       Gbl.Hierarchy.Crs.CrsCod,
				       Gbl.Hierarchy.Crs.CrsCod,
				       (unsigned) Rol_TCH,
				       Gbl.Stat.DptCod);
         else
            NumCrss =
            (unsigned) DB_QuerySELECT (mysql_res,"can not get courses",
				       "SELECT degrees.FullName,courses.FullName,courses.CrsCod,courses.InsCrsCod"
				       " FROM degrees,courses"
				       " WHERE courses.CrsCod=%ld"
				       " AND degrees.DegCod=courses.DegCod"
				       " ORDER BY degrees.FullName,courses.FullName",
				       Gbl.Hierarchy.Crs.CrsCod);
         break;
      default:
	 Lay_WrongScopeExit ();
	 break;
     }

   return NumCrss;
  }

/*****************************************************************************/
/******* Show form to confirm that I want to see a big list of courses *******/
/*****************************************************************************/

static bool Ind_GetIfShowBigList (unsigned NumCrss)
  {
   bool ShowBigList;

   /***** If list of courses is too big... *****/
   if (NumCrss <= Cfg_MIN_NUM_COURSES_TO_CONFIRM_SHOW_BIG_LIST)
      return true;	// List is not too big ==> show it

   /***** Get parameter with user's confirmation to see a big list of courses *****/
   if (!(ShowBigList = Par_GetParToBool ("ShowBigList")))
      Ind_PutButtonToConfirmIWantToSeeBigList (NumCrss);

   return ShowBigList;
  }

/*****************************************************************************/
/****** Show form to confirm that I want to see a big list of courses ********/
/*****************************************************************************/

static void Ind_PutButtonToConfirmIWantToSeeBigList (unsigned NumCrss)
  {
   extern const char *Txt_The_list_of_X_courses_is_too_large_to_be_displayed;
   extern const char *Txt_Show_anyway;

   /***** Show alert and button to confirm that I want to see the big list *****/
   Ale_ShowAlertAndButton (Gbl.Action.Act,NULL,NULL,
                           Ind_PutParamsConfirmIWantToSeeBigList,
                           Btn_CONFIRM_BUTTON,Txt_Show_anyway,
			   Ale_WARNING,Txt_The_list_of_X_courses_is_too_large_to_be_displayed,
                           NumCrss);
  }

static void Ind_PutParamsConfirmIWantToSeeBigList (void)
  {
   Sco_PutParamScope ("ScopeInd",Gbl.Scope.Current);
   Par_PutHiddenParamLong (NULL,"OthDegTypCod",Gbl.Stat.DegTypCod);
   Par_PutHiddenParamLong (NULL,Dpt_PARAM_DPT_COD_NAME,Gbl.Stat.DptCod);
   if (Gbl.Stat.StrIndicatorsSelected[0])
      Par_PutHiddenParamString (NULL,"Indicators",Gbl.Stat.StrIndicatorsSelected);
   Par_PutHiddenParamChar ("ShowBigList",'Y');
  }

/*****************************************************************************/
/** Get vector with numbers of courses with 0, 1, 2... indicators set to yes */
/*****************************************************************************/

static void Ind_GetNumCoursesWithIndicators (unsigned NumCrssWithIndicatorYes[1 + Ind_NUM_INDICATORS],
                                             unsigned NumCrss,MYSQL_RES *mysql_res)
  {
   MYSQL_ROW row;
   unsigned NumCrs;
   long CrsCod;
   unsigned Ind;
   unsigned NumIndicators;

   /***** Reset counters of courses with each number of indicators *****/
   for (Ind = 0;
	Ind <= Ind_NUM_INDICATORS;
	Ind++)
      NumCrssWithIndicatorYes[Ind] = 0;

   /***** List courses *****/
   for (Gbl.RowEvenOdd = 1, NumCrs = 0;
	NumCrs < NumCrss;
	NumCrs++, Gbl.RowEvenOdd = 1 - Gbl.RowEvenOdd)
     {
      /* Get next course */
      row = mysql_fetch_row (mysql_res);

      /* Get course code (row[2]) */
      if ((CrsCod = Str_ConvertStrCodToLongCod (row[2])) < 0)
         Lay_ShowErrorAndExit ("Wrong code of course.");

      /* Get stored number of indicators of this course */
      NumIndicators = Ind_GetAndUpdateNumIndicatorsCrs (CrsCod);
      NumCrssWithIndicatorYes[NumIndicators]++;
     }
  }

/*****************************************************************************/
/** Show table with numbers of courses with 0, 1, 2... indicators set to yes */
/*****************************************************************************/

static void Ind_ShowNumCoursesWithIndicators (unsigned NumCrssWithIndicatorYes[1 + Ind_NUM_INDICATORS],
                                              unsigned NumCrss,bool PutForm)
  {
   extern const char *Txt_Indicators;
   extern const char *Txt_Courses;
   extern const char *Txt_Total;
   unsigned Ind;
   const char *Class;
   const char *ClassNormal = "DAT_LIGHT RM";
   const char *ClassHighlight = "DAT RM LIGHT_BLUE";

   /***** Write number of courses with each number of indicators valid *****/
   HTM_TABLE_BeginPadding (2);

   HTM_TR_Begin (NULL);

   if (PutForm)
      HTM_TH_Empty (1);
   HTM_TH (1,1,"RM",Txt_Indicators);
   HTM_TH (1,2,"RM",Txt_Courses);

   HTM_TR_End ();

   for (Ind = 0;
	Ind <= Ind_NUM_INDICATORS;
	Ind++)
     {
      Class = Gbl.Stat.IndicatorsSelected[Ind] ? ClassHighlight :
                                                 ClassNormal;
      HTM_TR_Begin (NULL);

      if (PutForm)
	{
	 HTM_TD_Begin ("class=\"%s\"",Class);
	 HTM_INPUT_CHECKBOX ("Indicators",HTM_SUBMIT_ON_CHANGE,
			     "id=\"Indicators%u\" value=\"%u\"%s",
			     Ind,Ind,
			     Gbl.Stat.IndicatorsSelected[Ind] ? " checked=\"checked\"" : "");
	 HTM_TD_End ();
	}

      HTM_TD_Begin ("class=\"%s\"",Class);
      HTM_LABEL_Begin ("for=\"Indicators%u\"",Ind);
      HTM_Unsigned (Ind);
      HTM_LABEL_End ();
      HTM_TD_End ();

      HTM_TD_Begin ("class=\"%s\"",Class);
      HTM_Unsigned (NumCrssWithIndicatorYes[Ind]);
      HTM_TD_End ();

      HTM_TD_Begin ("class=\"%s\"",Class);
      HTM_TxtF ("(%.1f%%)",
                NumCrss ? (double) NumCrssWithIndicatorYes[Ind] * 100.0 /
                          (double) NumCrss :
        	          0.0);
      HTM_TD_End ();

      HTM_TR_End ();
     }

   /***** Write total of courses *****/
   HTM_TR_Begin (NULL);

   if (PutForm)
      HTM_TD_Empty (1);

   HTM_TD_Begin ("class=\"DAT_N_LINE_TOP RM\"");
   HTM_Txt (Txt_Total);
   HTM_TD_End ();

   HTM_TD_Begin ("class=\"DAT_N_LINE_TOP RM\"");
   HTM_Unsigned (NumCrss);
   HTM_TD_End ();

   HTM_TD_Begin ("class=\"DAT_N_LINE_TOP RM\"");
   HTM_TxtF ("(%.1f%%)",100.0);
   HTM_TD_End ();

   HTM_TR_End ();

   HTM_TABLE_End ();
  }

/*****************************************************************************/
/****************** Get and show total number of courses *********************/
/*****************************************************************************/

static void Ind_ShowTableOfCoursesWithIndicators (Ind_IndicatorsLayout_t IndicatorsLayout,
                                                  unsigned NumCrss,MYSQL_RES *mysql_res)
  {
   extern const char *Txt_Degree;
   extern const char *Txt_Course;
   extern const char *Txt_Institutional_BR_code;
   extern const char *Txt_Web_page_of_the_course;
   extern const char *Txt_ROLES_PLURAL_BRIEF_Abc[Rol_NUM_ROLES];
   extern const char *Txt_Indicators;
   extern const char *Txt_No_INDEX;
   extern const char *Txt_Syllabus_of_the_course;
   extern const char *Txt_INFO_TITLE[Inf_NUM_INFO_TYPES];
   extern const char *Txt_No_of_files_in_SHARE_zones;
   extern const char *Txt_No_of_files_in_DOCUM_zones;
   extern const char *Txt_Guided_academic_assignments;
   extern const char *Txt_Assignments;
   extern const char *Txt_Files_assignments;
   extern const char *Txt_Files_works;
   extern const char *Txt_Online_tutoring;
   extern const char *Txt_Forum_threads;
   extern const char *Txt_Forum_posts;
   extern const char *Txt_Messages_sent_by_teachers;
   extern const char *Txt_Materials;
   extern const char *Txt_Assessment_criteria;
   extern const char *Txt_YES;
   extern const char *Txt_NO;
   extern const char *Txt_INFO_SRC_SHORT_TEXT[Inf_NUM_INFO_SOURCES];
   extern const char *Txt_Courses;
   MYSQL_ROW row;
   unsigned NumCrs;
   long CrsCod;
   unsigned NumTchs;
   unsigned NumStds;
   unsigned NumIndicators;
   struct Ind_IndicatorsCrs Indicators;
   long ActCod;

   /***** Begin table *****/
   HTM_TABLE_Begin ("INDICATORS");

   /***** Write table heading *****/
   switch (IndicatorsLayout)
     {
      case Ind_INDICATORS_BRIEF:
         HTM_TR_Begin (NULL);

         HTM_TH (3,1,"LM COLOR0",Txt_Degree);
         HTM_TH (3,1,"LM COLOR0",Txt_Course);
         HTM_TH (3,1,"LM COLOR0",Txt_Institutional_BR_code);
         HTM_TH (3,1,"LM COLOR0",Txt_Web_page_of_the_course);
         HTM_TH (1,11,"CM COLOR0",Txt_Indicators);

         HTM_TR_End ();

         HTM_TR_Begin (NULL);

         HTM_TH (2,1,"CT COLOR0",Txt_No_INDEX);
         HTM_TH_Begin (1,2,"CT COLOR0");
         HTM_TxtF ("(A) %s",Txt_Syllabus_of_the_course);
         HTM_TH_End ();
         HTM_TH_Begin (1,2,"CT COLOR0");
         HTM_TxtF ("(B) %s",Txt_Guided_academic_assignments);
         HTM_TH_End ();
         HTM_TH_Begin (1,2,"CT COLOR0");
         HTM_TxtF ("(C) %s",Txt_Online_tutoring);
         HTM_TH_End ();
         HTM_TH_Begin (1,2,"CT COLOR0");
         HTM_TxtF ("(D) %s",Txt_Materials);
         HTM_TH_End ();
         HTM_TH_Begin (1,2,"CT COLOR0");
         HTM_TxtF ("(E) %s",Txt_Assessment_criteria);
         HTM_TH_End ();

         HTM_TR_End ();

         HTM_TR_Begin (NULL);

         HTM_TH (1,1,"CM COLOR0",Txt_YES);
         HTM_TH (1,1,"CM COLOR0",Txt_NO);
         HTM_TH (1,1,"CM COLOR0",Txt_YES);
         HTM_TH (1,1,"CM COLOR0",Txt_NO);
         HTM_TH (1,1,"CM COLOR0",Txt_YES);
         HTM_TH (1,1,"CM COLOR0",Txt_NO);
         HTM_TH (1,1,"CM COLOR0",Txt_YES);
         HTM_TH (1,1,"CM COLOR0",Txt_NO);
         HTM_TH (1,1,"CM COLOR0",Txt_YES);
         HTM_TH (1,1,"CM COLOR0",Txt_NO);

         HTM_TR_End ();
         break;
      case Ind_INDICATORS_FULL:
         HTM_TR_Begin (NULL);

         HTM_TH (3,1,"LM COLOR0",Txt_Degree);
         HTM_TH (3,1,"LM COLOR0",Txt_Course);
         HTM_TH (3,1,"LM COLOR0",Txt_Institutional_BR_code);
         HTM_TH (3,1,"LM COLOR0",Txt_Web_page_of_the_course);
         HTM_TH (3,1,"LM COLOR0",Txt_ROLES_PLURAL_BRIEF_Abc[Rol_TCH]);
         HTM_TH (3,1,"LM COLOR0",Txt_ROLES_PLURAL_BRIEF_Abc[Rol_STD]);
         HTM_TH (1,24,"CM COLOR0",Txt_Indicators);

         HTM_TR_End ();

         HTM_TR_Begin (NULL);

         HTM_TH (2,1,"CT COLOR0",Txt_No_INDEX);
         HTM_TH_Begin (1,5,"CT COLOR0");
         HTM_TxtF ("(A) %s",Txt_Syllabus_of_the_course);
         HTM_TH_End ();
         HTM_TH_Begin (1,5,"CT COLOR0");
         HTM_TxtF ("(B) %s",Txt_Guided_academic_assignments);
         HTM_TH_End ();
         HTM_TH_Begin (1,5,"CT COLOR0");
         HTM_TxtF ("(C) %s",Txt_Online_tutoring);
         HTM_TH_End ();
         HTM_TH_Begin (1,4,"CT COLOR0");
         HTM_TxtF ("(D) %s",Txt_Materials);
         HTM_TH_End ();
         HTM_TH_Begin (1,4,"CT COLOR0");
         HTM_TxtF ("(E) %s",Txt_Assessment_criteria);
         HTM_TH_End ();

         HTM_TR_End ();

         HTM_TR_Begin (NULL);

         HTM_TH (1,1,"CM COLOR0",Txt_YES);
         HTM_TH (1,1,"CM COLOR0",Txt_NO);
         HTM_TH (1,1,"LM COLOR0",Txt_INFO_TITLE[Inf_LECTURES]);
         HTM_TH (1,1,"LM COLOR0",Txt_INFO_TITLE[Inf_PRACTICALS]);
         HTM_TH (1,1,"LM COLOR0",Txt_INFO_TITLE[Inf_TEACHING_GUIDE]);
         HTM_TH (1,1,"CM COLOR0",Txt_YES);
         HTM_TH (1,1,"CM COLOR0",Txt_NO);
         HTM_TH (1,1,"RM COLOR0",Txt_Assignments);
         HTM_TH (1,1,"RM COLOR0",Txt_Files_assignments);
         HTM_TH (1,1,"RM COLOR0",Txt_Files_works);
         HTM_TH (1,1,"CM COLOR0",Txt_YES);
         HTM_TH (1,1,"CM COLOR0",Txt_NO);
         HTM_TH (1,1,"RM COLOR0",Txt_Forum_threads);
         HTM_TH (1,1,"RM COLOR0",Txt_Forum_posts);
         HTM_TH (1,1,"RM COLOR0",Txt_Messages_sent_by_teachers);
         HTM_TH (1,1,"CM COLOR0",Txt_YES);
         HTM_TH (1,1,"CM COLOR0",Txt_NO);
         HTM_TH (1,1,"RM COLOR0",Txt_No_of_files_in_DOCUM_zones);
         HTM_TH (1,1,"RM COLOR0",Txt_No_of_files_in_SHARE_zones);
         HTM_TH (1,1,"CM COLOR0",Txt_YES);
         HTM_TH (1,1,"CM COLOR0",Txt_NO);
         HTM_TH (1,1,"LM COLOR0",Txt_INFO_TITLE[Inf_ASSESSMENT]);
         HTM_TH (1,1,"LM COLOR0",Txt_INFO_TITLE[Inf_TEACHING_GUIDE]);

         HTM_TR_End ();
      break;
     }

   /***** List courses *****/
   mysql_data_seek (mysql_res,0);
   for (Gbl.RowEvenOdd = 1, NumCrs = 0;
	NumCrs < NumCrss;
	NumCrs++, Gbl.RowEvenOdd = 1 - Gbl.RowEvenOdd)
     {
      /* Get next course */
      row = mysql_fetch_row (mysql_res);

      /* Get course code (row[2]) */
      if ((CrsCod = Str_ConvertStrCodToLongCod (row[2])) < 0)
         Lay_ShowErrorAndExit ("Wrong code of course.");

      /* Get stored number of indicators of this course */
      NumIndicators = Ind_GetAndUpdateNumIndicatorsCrs (CrsCod);
      if (Gbl.Stat.IndicatorsSelected[NumIndicators])
	{
	 /* Compute and store indicators */
	 Ind_ComputeAndStoreIndicatorsCrs (CrsCod,(int) NumIndicators,&Indicators);

	 /* The number of indicators may have changed */
	 if (Gbl.Stat.IndicatorsSelected[Indicators.NumIndicators])
	   {
            ActCod = Act_GetActCod (ActReqStaCrs);

	    /* Write a row for this course */
	    switch (IndicatorsLayout)
	      {
	       case Ind_INDICATORS_BRIEF:
		  HTM_TR_Begin (NULL);

		  HTM_TD_Begin ("class=\"%s LM COLOR%u\"",
			        Indicators.CourseAllOK ? "DAT_SMALL_GREEN" :
			        (Indicators.CoursePartiallyOK ? "DAT_SMALL" :
							        "DAT_SMALL_RED"),
			        Gbl.RowEvenOdd);
		  HTM_Txt (row[0]);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s LM COLOR%u\"",
			        Indicators.CourseAllOK ? "DAT_SMALL_GREEN" :
			        (Indicators.CoursePartiallyOK ? "DAT_SMALL" :
							        "DAT_SMALL_RED"),
			        Gbl.RowEvenOdd);
		  HTM_Txt (row[1]);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s LM COLOR%u\"",
			        Indicators.CourseAllOK ? "DAT_SMALL_GREEN" :
			        (Indicators.CoursePartiallyOK ? "DAT_SMALL" :
							        "DAT_SMALL_RED"),
			        Gbl.RowEvenOdd);
		  HTM_Txt (row[3]);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL LM COLOR%u\"",Gbl.RowEvenOdd);
		  HTM_A_Begin ("href=\"%s/?crs=%ld&amp;act=%ld\" target=\"_blank\"",
			       Cfg_URL_SWAD_CGI,CrsCod,ActCod);
		  HTM_TxtF ("%s/?crs=%ld&amp;act=%ld",
			    Cfg_URL_SWAD_CGI,CrsCod,ActCod);
		  HTM_A_End ();
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        Indicators.CourseAllOK ? "DAT_SMALL_GREEN" :
			        (Indicators.CoursePartiallyOK ? "DAT_SMALL" :
							        "DAT_SMALL_RED"),
			        Gbl.RowEvenOdd);
		  HTM_Unsigned (Indicators.NumIndicators);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_GREEN CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (Indicators.ThereIsSyllabus)
		     HTM_Txt (Txt_YES);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_RED CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (!Indicators.ThereIsSyllabus)
		     HTM_Txt (Txt_NO);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_GREEN CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (Indicators.ThereAreAssignments)
		     HTM_Txt (Txt_YES);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_RED CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (!Indicators.ThereAreAssignments)
		     HTM_Txt (Txt_NO);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_GREEN CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (Indicators.ThereIsOnlineTutoring)
		     HTM_Txt (Txt_YES);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_RED CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (!Indicators.ThereIsOnlineTutoring)
		     HTM_Txt (Txt_NO);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_GREEN CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (Indicators.ThereAreMaterials)
		     HTM_Txt (Txt_YES);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_RED CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (!Indicators.ThereAreMaterials)
		     HTM_Txt (Txt_NO);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_GREEN CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (Indicators.ThereIsAssessment)
		     HTM_Txt (Txt_YES);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_RED CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (!Indicators.ThereIsAssessment)
		     HTM_Txt (Txt_NO);
		  HTM_TD_End ();

		  HTM_TR_End ();
		  break;
	       case Ind_INDICATORS_FULL:
		  /* Get number of users */
		  NumTchs = Usr_GetNumUsrsInCrss (Hie_CRS,CrsCod,
				                  1 << Rol_NET |	// Non-editing teachers
						  1 << Rol_TCH);	// Teachers
		  NumStds = Usr_GetNumUsrsInCrss (Hie_CRS,CrsCod,
				                  1 << Rol_STD);	// Students

		  HTM_TR_Begin (NULL);

		  HTM_TD_Begin ("class=\"%s LM COLOR%u\"",
			        Indicators.CourseAllOK ? "DAT_SMALL_GREEN" :
			        (Indicators.CoursePartiallyOK ? "DAT_SMALL" :
							        "DAT_SMALL_RED"),
			        Gbl.RowEvenOdd);
		  HTM_Txt (row[0]);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s LM COLOR%u\"",
			        Indicators.CourseAllOK ? "DAT_SMALL_GREEN" :
			        (Indicators.CoursePartiallyOK ? "DAT_SMALL" :
							        "DAT_SMALL_RED"),
			        Gbl.RowEvenOdd);
		  HTM_Txt (row[1]);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s LM COLOR%u\"",
			        Indicators.CourseAllOK ? "DAT_SMALL_GREEN" :
			        (Indicators.CoursePartiallyOK ? "DAT_SMALL" :
							        "DAT_SMALL_RED"),
			        Gbl.RowEvenOdd);
		  HTM_Txt (row[3]);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL LM COLOR%u\"",Gbl.RowEvenOdd);
		  HTM_A_Begin ("href=\"%s/?crs=%ld&amp;act=%ld\" target=\"_blank\"",
			       Cfg_URL_SWAD_CGI,CrsCod,ActCod);
		  HTM_TxtF ("%s/?crs=%ld&amp;act=%ld",
			    Cfg_URL_SWAD_CGI,CrsCod,ActCod);
		  HTM_A_End ();
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        NumTchs != 0 ? "DAT_SMALL_GREEN" :
					       "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_Unsigned (NumTchs);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        NumStds != 0 ? "DAT_SMALL_GREEN" :
					       "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_Unsigned (NumStds);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        Indicators.CourseAllOK ? "DAT_SMALL_GREEN" :
			        (Indicators.CoursePartiallyOK ? "DAT_SMALL" :
							        "DAT_SMALL_RED"),
			        Gbl.RowEvenOdd);
		  HTM_Unsigned (Indicators.NumIndicators);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_GREEN CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (Indicators.ThereIsSyllabus)
		     HTM_Txt (Txt_YES);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_RED CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (!Indicators.ThereIsSyllabus)
		     HTM_Txt (Txt_NO);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s LM COLOR%u\"",
			        (Indicators.SyllabusLecSrc != Inf_INFO_SRC_NONE) ? "DAT_SMALL_GREEN" :
										   "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_Txt (Txt_INFO_SRC_SHORT_TEXT[Indicators.SyllabusLecSrc]);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s LM COLOR%u\"",
			        (Indicators.SyllabusPraSrc != Inf_INFO_SRC_NONE) ? "DAT_SMALL_GREEN" :
										   "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_Txt (Txt_INFO_SRC_SHORT_TEXT[Indicators.SyllabusPraSrc]);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s LM COLOR%u\">",
			        (Indicators.TeachingGuideSrc != Inf_INFO_SRC_NONE) ? "DAT_SMALL_GREEN" :
										     "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_Txt (Txt_INFO_SRC_SHORT_TEXT[Indicators.TeachingGuideSrc]);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_GREEN CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (Indicators.ThereAreAssignments)
		     HTM_Txt (Txt_YES);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_RED CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (!Indicators.ThereAreAssignments)
		     HTM_Txt (Txt_NO);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        (Indicators.NumAssignments != 0) ? "DAT_SMALL_GREEN" :
								   "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_Unsigned (Indicators.NumAssignments);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        (Indicators.NumFilesAssignments != 0) ? "DAT_SMALL_GREEN" :
								        "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_UnsignedLong (Indicators.NumFilesAssignments);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        (Indicators.NumFilesWorks != 0) ? "DAT_SMALL_GREEN" :
								  "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_UnsignedLong (Indicators.NumFilesWorks);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_GREEN CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (Indicators.ThereIsOnlineTutoring)
		     HTM_Txt (Txt_YES);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_RED CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (!Indicators.ThereIsOnlineTutoring)
		     HTM_Txt (Txt_NO);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        (Indicators.NumThreads != 0) ? "DAT_SMALL_GREEN" :
							       "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_Unsigned (Indicators.NumThreads);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        (Indicators.NumPosts != 0) ? "DAT_SMALL_GREEN" :
							     "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_Unsigned (Indicators.NumPosts);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        (Indicators.NumMsgsSentByTchs != 0) ? "DAT_SMALL_GREEN" :
								      "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_Unsigned (Indicators.NumMsgsSentByTchs);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_GREEN CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (Indicators.ThereAreMaterials)
		     HTM_Txt (Txt_YES);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_RED CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (!Indicators.ThereAreMaterials)
		     HTM_Txt (Txt_NO);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        (Indicators.NumFilesInDocumentZones != 0) ? "DAT_SMALL_GREEN" :
									    "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_UnsignedLong (Indicators.NumFilesInDocumentZones);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s RM COLOR%u\"",
			        (Indicators.NumFilesInSharedZones != 0) ? "DAT_SMALL_GREEN" :
									  "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_UnsignedLong (Indicators.NumFilesInSharedZones);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_GREEN CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (Indicators.ThereIsAssessment)
		     HTM_Txt (Txt_YES);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"DAT_SMALL_RED CM COLOR%u\"",
			        Gbl.RowEvenOdd);
		  if (!Indicators.ThereIsAssessment)
		     HTM_Txt (Txt_NO);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s LM COLOR%u\"",
			        (Indicators.AssessmentSrc != Inf_INFO_SRC_NONE) ? "DAT_SMALL_GREEN" :
										  "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_Txt (Txt_INFO_SRC_SHORT_TEXT[Indicators.AssessmentSrc]);
		  HTM_TD_End ();

		  HTM_TD_Begin ("class=\"%s LM COLOR%u\"",
			        (Indicators.TeachingGuideSrc != Inf_INFO_SRC_NONE) ? "DAT_SMALL_GREEN" :
										     "DAT_SMALL_RED",
			        Gbl.RowEvenOdd);
		  HTM_Txt (Txt_INFO_SRC_SHORT_TEXT[Indicators.TeachingGuideSrc]);
		  HTM_TD_End ();

		  HTM_TR_End ();
		  break;
		 }
	   }
	}
     }

   /***** End table *****/
   HTM_TABLE_End ();
  }

/*****************************************************************************/
/************ Get number of indicators of a course from database *************/
/************ If not stored ==> compute and store it             *************/
/*****************************************************************************/

static unsigned Ind_GetAndUpdateNumIndicatorsCrs (long CrsCod)
  {
   unsigned NumIndicators;
   struct Ind_IndicatorsCrs Indicators;
   int NumIndicatorsFromDB = Ind_GetNumIndicatorsCrsFromDB (CrsCod);

   /***** If number of indicators is not already computed ==> compute it! *****/
   if (NumIndicatorsFromDB >= 0)
      NumIndicators = (unsigned) NumIndicatorsFromDB;
   else	// Number of indicators is not already computed
     {
      /***** Compute and store number of indicators *****/
      Ind_ComputeAndStoreIndicatorsCrs (CrsCod,NumIndicatorsFromDB,&Indicators);
      NumIndicators = Indicators.NumIndicators;
     }
   return NumIndicators;
  }

/*****************************************************************************/
/************ Get number of indicators of a course from database *************/
/*****************************************************************************/
// This function returns -1 if number of indicators is not yet calculated

int Ind_GetNumIndicatorsCrsFromDB (long CrsCod)
  {
   MYSQL_RES *mysql_res;
   MYSQL_ROW row;
   int NumIndicatorsFromDB = -1;	// -1 means not yet calculated

   /***** Get number of indicators of a course from database *****/
   if (DB_QuerySELECT (&mysql_res,"can not get number of indicators",
	               "SELECT NumIndicators FROM courses"
	               " WHERE CrsCod=%ld",
		       CrsCod))
     {
      /***** Get row *****/
      row = mysql_fetch_row (mysql_res);

      /***** Get number of indicators (row[0]) *****/
      if (sscanf (row[0],"%d",&NumIndicatorsFromDB) != 1)
	 Lay_ShowErrorAndExit ("Error when getting number of indicators.");
     }

   /***** Free structure that stores the query result *****/
   DB_FreeMySQLResult (&mysql_res);

   return NumIndicatorsFromDB;
  }

/*****************************************************************************/
/************ Store number of indicators of a course in database *************/
/*****************************************************************************/

static void Ind_StoreIndicatorsCrsIntoDB (long CrsCod,unsigned NumIndicators)
  {
   /***** Store number of indicators of a course in database *****/
   DB_QueryUPDATE ("can not store number of indicators of a course",
		   "UPDATE courses SET NumIndicators=%u WHERE CrsCod=%ld",
                   NumIndicators,CrsCod);
  }

/*****************************************************************************/
/********************* Compute indicators of a course ************************/
/*****************************************************************************/
/* NumIndicatorsFromDB (number of indicators stored in database)
   must be retrieved before calling this function.
   If NumIndicatorsFromDB is different from number of indicators just computed
   ==> update it into database */

void Ind_ComputeAndStoreIndicatorsCrs (long CrsCod,int NumIndicatorsFromDB,
                                       struct Ind_IndicatorsCrs *Indicators)
  {
   /***** Initialize number of indicators *****/
   Indicators->NumIndicators = 0;

   /***** Get whether download zones are empty or not *****/
   Indicators->NumFilesInDocumentZones = Ind_GetNumFilesInDocumZonesOfCrsFromDB (CrsCod);
   Indicators->NumFilesInSharedZones   = Ind_GetNumFilesInShareZonesOfCrsFromDB (CrsCod);

   /***** Indicator #1: information about syllabus *****/
   Indicators->SyllabusLecSrc   = Inf_GetInfoSrcFromDB (CrsCod,Inf_LECTURES);
   Indicators->SyllabusPraSrc   = Inf_GetInfoSrcFromDB (CrsCod,Inf_PRACTICALS);
   Indicators->TeachingGuideSrc = Inf_GetInfoSrcFromDB (CrsCod,Inf_TEACHING_GUIDE);
   Indicators->ThereIsSyllabus = (Indicators->SyllabusLecSrc   != Inf_INFO_SRC_NONE) ||
                                 (Indicators->SyllabusPraSrc   != Inf_INFO_SRC_NONE) ||
                                 (Indicators->TeachingGuideSrc != Inf_INFO_SRC_NONE);
   if (Indicators->ThereIsSyllabus)
      Indicators->NumIndicators++;

   /***** Indicator #2: information about assignments *****/
   Indicators->NumAssignments = Asg_GetNumAssignmentsInCrs (CrsCod);
   Indicators->NumFilesAssignments = Ind_GetNumFilesInAssigZonesOfCrsFromDB (CrsCod);
   Indicators->NumFilesWorks       = Ind_GetNumFilesInWorksZonesOfCrsFromDB (CrsCod);
   Indicators->ThereAreAssignments = (Indicators->NumAssignments      != 0) ||
                                     (Indicators->NumFilesAssignments != 0) ||
                                     (Indicators->NumFilesWorks       != 0);
   if (Indicators->ThereAreAssignments)
      Indicators->NumIndicators++;

   /***** Indicator #3: information about online tutoring *****/
   Indicators->NumThreads = For_GetNumTotalThrsInForumsOfType (For_FORUM_COURSE_USRS,-1L,-1L,-1L,-1L,CrsCod);
   Indicators->NumPosts   = For_GetNumTotalPstsInForumsOfType (For_FORUM_COURSE_USRS,-1L,-1L,-1L,-1L,CrsCod,&(Indicators->NumUsrsToBeNotifiedByEMail));
   Indicators->NumMsgsSentByTchs = Msg_GetNumMsgsSentByTchsCrs (CrsCod);
   Indicators->ThereIsOnlineTutoring = (Indicators->NumThreads        != 0) ||
	                               (Indicators->NumPosts          != 0) ||
	                               (Indicators->NumMsgsSentByTchs != 0);
   if (Indicators->ThereIsOnlineTutoring)
      Indicators->NumIndicators++;

   /***** Indicator #4: information about materials *****/
   Indicators->ThereAreMaterials = (Indicators->NumFilesInDocumentZones != 0) ||
                                   (Indicators->NumFilesInSharedZones   != 0);
   if (Indicators->ThereAreMaterials)
      Indicators->NumIndicators++;

   /***** Indicator #5: information about assessment *****/
   Indicators->AssessmentSrc = Inf_GetInfoSrcFromDB (CrsCod,Inf_ASSESSMENT);
   Indicators->ThereIsAssessment = (Indicators->AssessmentSrc    != Inf_INFO_SRC_NONE) ||
                                   (Indicators->TeachingGuideSrc != Inf_INFO_SRC_NONE);
   if (Indicators->ThereIsAssessment)
      Indicators->NumIndicators++;

   /***** All the indicators are OK? *****/
   Indicators->CoursePartiallyOK = Indicators->NumIndicators >= 1 &&
	                           Indicators->NumIndicators < Ind_NUM_INDICATORS;
   Indicators->CourseAllOK       = Indicators->NumIndicators == Ind_NUM_INDICATORS;

   /***** Update number of indicators into database
          if different to the stored one *****/
   if (NumIndicatorsFromDB != (int) Indicators->NumIndicators)
      Ind_StoreIndicatorsCrsIntoDB (CrsCod,Indicators->NumIndicators);
  }

/*****************************************************************************/
/*********** Get the number of files in document zones of a course ***********/
/*****************************************************************************/

static unsigned long Ind_GetNumFilesInDocumZonesOfCrsFromDB (long CrsCod)
  {
   extern const Brw_FileBrowser_t Brw_FileBrowserForDB_files[Brw_NUM_TYPES_FILE_BROWSER];
   MYSQL_RES *mysql_res;
   MYSQL_ROW row;
   unsigned long NumFiles;

   /***** Get number of files in document zones of a course from database *****/
   DB_QuerySELECT (&mysql_res,"can not get the number of files",
		   "SELECT"
		   " (SELECT COALESCE(SUM(NumFiles),0)"
		   " FROM file_browser_size"
		   " WHERE FileBrowser=%u AND Cod=%ld) +"
		   " (SELECT COALESCE(SUM(file_browser_size.NumFiles),0)"
		   " FROM crs_grp_types,crs_grp,file_browser_size"
		   " WHERE crs_grp_types.CrsCod=%ld"
		   " AND crs_grp_types.GrpTypCod=crs_grp.GrpTypCod"
		   " AND file_browser_size.FileBrowser=%u"
		   " AND file_browser_size.Cod=crs_grp.GrpCod)",
		   (unsigned) Brw_FileBrowserForDB_files[Brw_ADMI_DOC_CRS],
		   CrsCod,
		   CrsCod,
		   (unsigned) Brw_FileBrowserForDB_files[Brw_ADMI_DOC_GRP]);

   /***** Get row *****/
   row = mysql_fetch_row (mysql_res);

   /***** Get number of files (row[0]) *****/
   if (sscanf (row[0],"%lu",&NumFiles) != 1)
      Lay_ShowErrorAndExit ("Error when getting the number of files.");

   /***** Free structure that stores the query result *****/
   DB_FreeMySQLResult (&mysql_res);

   return NumFiles;
  }

/*****************************************************************************/
/*********** Get the number of files in shared zones of a course ***********/
/*****************************************************************************/

static unsigned long Ind_GetNumFilesInShareZonesOfCrsFromDB (long CrsCod)
  {
   extern const Brw_FileBrowser_t Brw_FileBrowserForDB_files[Brw_NUM_TYPES_FILE_BROWSER];
   MYSQL_RES *mysql_res;
   MYSQL_ROW row;
   unsigned long NumFiles;

   /***** Get number of files in document zones of a course from database *****/
   DB_QuerySELECT (&mysql_res,"can not get the number of files",
		   "SELECT"
		   " (SELECT COALESCE(SUM(NumFiles),0)"
		   " FROM file_browser_size"
		   " WHERE FileBrowser=%u AND Cod=%ld) +"
		   " (SELECT COALESCE(SUM(file_browser_size.NumFiles),0)"
		   " FROM crs_grp_types,crs_grp,file_browser_size"
		   " WHERE crs_grp_types.CrsCod=%ld"
		   " AND crs_grp_types.GrpTypCod=crs_grp.GrpTypCod"
		   " AND file_browser_size.FileBrowser=%u"
		   " AND file_browser_size.Cod=crs_grp.GrpCod)",
	           (unsigned) Brw_FileBrowserForDB_files[Brw_ADMI_SHR_CRS],
	           CrsCod,
	           CrsCod,
	           (unsigned) Brw_FileBrowserForDB_files[Brw_ADMI_SHR_GRP]);

   /***** Get row *****/
   row = mysql_fetch_row (mysql_res);

   /***** Get number of files (row[0]) *****/
   if (sscanf (row[0],"%lu",&NumFiles) != 1)
      Lay_ShowErrorAndExit ("Error when getting the number of files.");

   /***** Free structure that stores the query result *****/
   DB_FreeMySQLResult (&mysql_res);

   return NumFiles;
  }

/*****************************************************************************/
/********* Get the number of files in assignment zones of a course ***********/
/*****************************************************************************/

static unsigned long Ind_GetNumFilesInAssigZonesOfCrsFromDB (long CrsCod)
  {
   extern const Brw_FileBrowser_t Brw_FileBrowserForDB_files[Brw_NUM_TYPES_FILE_BROWSER];
   MYSQL_RES *mysql_res;
   MYSQL_ROW row;
   unsigned long NumFiles;

   /***** Get number of files in document zones of a course from database *****/
   DB_QuerySELECT (&mysql_res,"can not get the number of files",
		   "SELECT COALESCE(SUM(NumFiles),0)"
		   " FROM file_browser_size"
		   " WHERE FileBrowser=%u AND Cod=%ld",
	           (unsigned) Brw_FileBrowserForDB_files[Brw_ADMI_ASG_USR],
	           CrsCod);

   /***** Get row *****/
   row = mysql_fetch_row (mysql_res);

   /***** Get number of files (row[0]) *****/
   if (sscanf (row[0],"%lu",&NumFiles) != 1)
      Lay_ShowErrorAndExit ("Error when getting the number of files.");

   /***** Free structure that stores the query result *****/
   DB_FreeMySQLResult (&mysql_res);

   return NumFiles;
  }

/*****************************************************************************/
/************* Get the number of files in works zones of a course ************/
/*****************************************************************************/

static unsigned long Ind_GetNumFilesInWorksZonesOfCrsFromDB (long CrsCod)
  {
   extern const Brw_FileBrowser_t Brw_FileBrowserForDB_files[Brw_NUM_TYPES_FILE_BROWSER];
   MYSQL_RES *mysql_res;
   MYSQL_ROW row;
   unsigned long NumFiles;

   /***** Get number of files in document zones of a course from database *****/
   DB_QuerySELECT (&mysql_res,"can not get the number of files",
		   "SELECT COALESCE(SUM(NumFiles),0)"
		   " FROM file_browser_size"
		   " WHERE FileBrowser=%u AND Cod=%ld",
	           (unsigned) Brw_FileBrowserForDB_files[Brw_ADMI_WRK_USR],
	           CrsCod);

   /***** Get row *****/
   row = mysql_fetch_row (mysql_res);

   /***** Get number of files (row[0]) *****/
   if (sscanf (row[0],"%lu",&NumFiles) != 1)
      Lay_ShowErrorAndExit ("Error when getting the number of files.");

   /***** Free structure that stores the query result *****/
   DB_FreeMySQLResult (&mysql_res);

   return NumFiles;
  }