swad-core/swad_enrolment.c

// swad_enrolment.c: enrolment (registration) or removing of users

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

    This file is part of SWAD core.
    Copyright (C) 1999-2021 Antonio Ca<EFBFBD>as Vargas

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

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

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

#define _GNU_SOURCE 		// For asprintf
#include <stdio.h>		// For asprintf
#include <stdlib.h>		// For exit, system, malloc, free, rand, etc.
#include <string.h>		// For string functions

#include "swad_account.h"
#include "swad_announcement.h"
#include "swad_attendance.h"
#include "swad_box.h"
#include "swad_database.h"
#include "swad_duplicate.h"
#include "swad_enrolment.h"
#include "swad_error.h"
#include "swad_exam_print.h"
#include "swad_form.h"
#include "swad_global.h"
#include "swad_hierarchy.h"
#include "swad_HTML.h"
#include "swad_ID.h"
#include "swad_match.h"
#include "swad_message.h"
#include "swad_notification.h"
#include "swad_parameter.h"
#include "swad_photo.h"
#include "swad_role.h"
#include "swad_test_print.h"
#include "swad_user.h"

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

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

static const bool Enr_ICanAdminOtherUsrs[Rol_NUM_ROLES] =
  {
   /* Users who can not admin */
   [Rol_UNK    ] = false,
   [Rol_GST    ] = false,
   [Rol_USR    ] = false,
   [Rol_STD    ] = false,
   [Rol_NET    ] = false,
   /* Users who can admin */
   [Rol_TCH    ] = true,
   [Rol_DEG_ADM] = true,
   [Rol_CTR_ADM] = true,
   [Rol_INS_ADM] = true,
   [Rol_SYS_ADM] = true,
  };

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

#define Enr_NUM_REG_REM_USRS_ACTIONS 6
typedef enum
  {
   Enr_REG_REM_USRS_UNKNOWN_ACTION     	  = 0,
   Enr_REGISTER_SPECIFIED_USRS_IN_CRS     = 1,
   Enr_REMOVE_SPECIFIED_USRS_FROM_CRS     = 2,
   Enr_REMOVE_NOT_SPECIFIED_USRS_FROM_CRS = 3,
   Enr_UPDATE_USRS_IN_CRS                 = 4,
   Enr_ELIMINATE_USRS_FROM_PLATFORM       = 5,
  } Enr_RegRemUsrsAction_t;

typedef enum
  {
   Enr_REQUEST_REMOVE_USR,
   Enr_REMOVE_USR,
  } Enr_ReqDelOrDelUsr_t;

/* Remove important user production (works and match results)? */
typedef enum
  {
   Enr_DO_NOT_REMOVE_USR_PRODUCTION,
   Enr_REMOVE_USR_PRODUCTION,
  } Enr_RemoveUsrProduction_t;

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

extern struct Globals Gbl;

/*****************************************************************************/
/************************** Private global variables *************************/
/*****************************************************************************/

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

static void Enr_NotifyAfterEnrolment (struct UsrData *UsrDat,Rol_Role_t NewRole);

static void Enr_ReqAdminUsrs (Rol_Role_t Role);
static void Enr_ShowFormRegRemSeveralUsrs (Rol_Role_t Role);
static void Enr_PutAreaToEnterUsrsIDs (void);
static void Enr_PutActionsRegRemSeveralUsrs (void);

static void Enr_ReceiveFormUsrsCrs (Rol_Role_t Role);

static void Enr_PutActionModifyOneUsr (bool *OptionChecked,
                                       bool UsrBelongsToCrs,bool ItsMe);
static void Enr_PutActionRegOneDegAdm (bool *OptionChecked);
static void Enr_PutActionRegOneCtrAdm (bool *OptionChecked);
static void Enr_PutActionRegOneInsAdm (bool *OptionChecked);
static void Enr_PutActionRepUsrAsDup (bool *OptionChecked);
static void Enr_PutActionRemUsrFromCrs (bool *OptionChecked,bool ItsMe);
static void Enr_PutActionRemUsrAsDegAdm (bool *OptionChecked,bool ItsMe);
static void Enr_PutActionRemUsrAsCtrAdm (bool *OptionChecked,bool ItsMe);
static void Enr_PutActionRemUsrAsInsAdm (bool *OptionChecked,bool ItsMe);
static void Enr_PutActionRemUsrAcc (bool *OptionChecked,bool ItsMe);
static void Enr_StartRegRemOneUsrAction (Enr_RegRemOneUsrAction_t RegRemOneUsrAction,
                                         bool *OptionChecked);
static void Enr_EndRegRemOneUsrAction (void);

static void Enr_RegisterUsr (struct UsrData *UsrDat,Rol_Role_t RegRemRole,
                             struct ListCodGrps *LstGrps,unsigned *NumUsrsRegistered);

static void Enr_PutLinkToRemAllStdsThisCrs (void);

static void Enr_ShowEnrolmentRequestsGivenRoles (unsigned RolesSelected);

static void Enr_RemoveEnrolmentRequest (long CrsCod,long UsrCod);
static void Enr_RemoveExpiredEnrolmentRequests (void);

static void Enr_ReqRegRemUsr (Rol_Role_t Role);
static void Enr_ReqAnotherUsrIDToRegisterRemove (Rol_Role_t Role);
static void Enr_AskIfRegRemMe (Rol_Role_t Role);
static void Enr_AskIfRegRemAnotherUsr (Rol_Role_t Role);
static void Enr_AskIfRegRemUsr (struct ListUsrCods *ListUsrCods,Rol_Role_t Role);

static void Enr_ShowFormToEditOtherUsr (void);

static void Enr_AddAdm (Hie_Lvl_Level_t Scope,long Cod,const char *InsCtrDegName);
static void Enr_RegisterAdmin (struct UsrData *UsrDat,Hie_Lvl_Level_t Scope,
                               long Cod,const char *InsCtrDegName);

static bool Enr_CheckIfICanRemUsrFromCrs (void);

static void Enr_ReqRemAdmOfDeg (void);
static void Enr_ReqRemOrRemAdm (Enr_ReqDelOrDelUsr_t ReqDelOrDelUsr,Hie_Lvl_Level_t Scope,
                                long Cod,const char *InsCtrDegName);

static void Enr_ReqAddAdm (Hie_Lvl_Level_t Scope,long Cod,const char *InsCtrDegName);
static void Enr_AskIfRemoveUsrFromCrs (struct UsrData *UsrDat);
static void Enr_EffectivelyRemUsrFromCrs (struct UsrData *UsrDat,
					  struct Crs_Course *Crs,
                                          Enr_RemoveUsrProduction_t RemoveUsrWorks,
					  Cns_QuietOrVerbose_t QuietOrVerbose);

static void Enr_AskIfRemAdm (bool ItsMe,Hie_Lvl_Level_t Scope,
			     const char *InsCtrDegName);
static void Enr_EffectivelyRemAdm (struct UsrData *UsrDat,Hie_Lvl_Level_t Scope,
                                   long Cod,const char *InsCtrDegName);

/*****************************************************************************/
/** Check if current course has students and show warning no students found **/
/*****************************************************************************/

void Enr_CheckStdsAndPutButtonToRegisterStdsInCurrentCrs (void)
  {
   /***** Put link to register students *****/
   if (Gbl.Usrs.Me.Role.Logged == Rol_TCH)	// Course selected and I am logged as teacher
      if (!Usr_GetNumUsrsInCrss (Hie_Lvl_CRS,Gbl.Hierarchy.Crs.CrsCod,
				 1 << Rol_STD))	// No students in course
         Usr_ShowWarningNoUsersFound (Rol_STD);
  }

/*****************************************************************************/
/****************** Put inline button to register students *******************/
/*****************************************************************************/

void Enr_PutButtonInlineToRegisterStds (long CrsCod)
  {
   extern const char *Txt_Register_students;

   if (Gbl.Usrs.Me.Role.Logged == Rol_TCH)	// Course selected and I am logged as teacher
      if (!Usr_GetNumUsrsInCrss (Hie_Lvl_CRS,CrsCod,
				 1 << Rol_STD))	// No students in course
	{
	 Frm_BeginForm (ActReqEnrSevStd);
	 Crs_PutParamCrsCod (CrsCod);
	 Btn_PutCreateButtonInline (Txt_Register_students);
	 Frm_EndForm ();
	}
  }

/*****************************************************************************/
/************ Show form to request sign up in the current course *************/
/*****************************************************************************/

void Enr_PutLinkToRequestSignUp (void)
  {
   extern const char *Txt_Sign_up;

   /***** Show the form *****/
   Lay_PutContextualLinkIconText (ActReqSignUp,NULL,
                                  NULL,NULL,
				  "hand-point-up.svg",
				  Txt_Sign_up);
  }

/*****************************************************************************/
/***************** Modify the role of a user in a course *********************/
/*****************************************************************************/

void Enr_ModifyRoleInCurrentCrs (struct UsrData *UsrDat,Rol_Role_t NewRole)
  {
   /***** Check if user's role is allowed *****/
   switch (NewRole)
     {
      case Rol_STD:
      case Rol_NET:
      case Rol_TCH:
	 break;
      default:
	 Err_WrongRoleExit ();
     }

   /***** Update the role of a user in a course *****/
   DB_QueryUPDATE ("can not modify user's role in course",
		   "UPDATE crs_users"
		     " SET Role=%u"
		   " WHERE CrsCod=%ld"
		     " AND UsrCod=%ld",
	           (unsigned) NewRole,
	           Gbl.Hierarchy.Crs.CrsCod,
	           UsrDat->UsrCod);

   /***** Flush caches *****/
   Usr_FlushCachesUsr ();

   /***** Set user's roles *****/
   UsrDat->Roles.InCurrentCrs = NewRole;
   UsrDat->Roles.InCrss = -1;	// Force roles to be got from database
   Rol_GetRolesInAllCrss (UsrDat);	// Get roles

   /***** Create notification for this user.
	  If this user wants to receive notifications by email,
	  activate the sending of a notification *****/
   Enr_NotifyAfterEnrolment (UsrDat,NewRole);
  }

/*****************************************************************************/
/*********************** Register user in current course *********************/
/*****************************************************************************/
// Before calling this function, you must be sure that
// the user does not belong to the current course

void Enr_RegisterUsrInCurrentCrs (struct UsrData *UsrDat,Rol_Role_t NewRole,
                                  Enr_KeepOrSetAccepted_t KeepOrSetAccepted)
  {
   extern const char *Usr_StringsUsrListTypeInDB[Usr_NUM_USR_LIST_TYPES];

   /***** Check if user's role is allowed *****/
   switch (NewRole)
     {
      case Rol_STD:
      case Rol_NET:
      case Rol_TCH:
	 break;
      default:
         Err_WrongRoleExit ();
     }

   /***** Register user in current course in database *****/
   DB_QueryINSERT ("can not register user in course",
		   "INSERT INTO crs_users"
		   " (CrsCod,UsrCod,Role,Accepted)"
		   " VALUES"
		   " (%ld,%ld,%u,'%c')",
	           Gbl.Hierarchy.Crs.CrsCod,
	           UsrDat->UsrCod,
	           (unsigned) NewRole,
	           KeepOrSetAccepted == Enr_SET_ACCEPTED_TO_TRUE ? 'Y' :
							           'N');

   /***** Register last prefs in current course in database *****/
   DB_QueryINSERT ("can not register user in course",
		   "INSERT INTO crs_user_settings"
		   " (UsrCod,CrsCod,"
		     "LastDowGrpCod,LastComGrpCod,LastAssGrpCod,"
		     "NumAccTst,LastAccTst,NumQstsLastTst,"
		     "UsrListType,ColsClassPhoto,ListWithPhotos)"
		   " VALUES"
		   " (%ld,%ld,"
		     "-1,-1,-1,"
		     "0,FROM_UNIXTIME(%ld),0,"
		     "'%s',%u,'%c')",
	           UsrDat->UsrCod,
	           Gbl.Hierarchy.Crs.CrsCod,
	           (long) (time_t) 0,	// The user never accessed to tests in this course
	           Usr_StringsUsrListTypeInDB[Usr_SHOW_USRS_TYPE_DEFAULT],
	           Usr_CLASS_PHOTO_COLS_DEF,
	           Usr_LIST_WITH_PHOTOS_DEF ? 'Y' :
					      'N');

   /***** Flush caches *****/
   Usr_FlushCachesUsr ();

   /***** Set roles *****/
   UsrDat->Roles.InCurrentCrs = NewRole;
   UsrDat->Roles.InCrss = -1;	// Force roles to be got from database
   Rol_GetRolesInAllCrss (UsrDat);	// Get roles

   /***** Create notification for this user.
	  If this user wants to receive notifications by email,
	  activate the sending of a notification *****/
   Enr_NotifyAfterEnrolment (UsrDat,NewRole);
  }

/*****************************************************************************/
/********* Create notification after register user in current course *********/
/*****************************************************************************/

static void Enr_NotifyAfterEnrolment (struct UsrData *UsrDat,Rol_Role_t NewRole)
  {
   bool CreateNotif;
   bool NotifyByEmail;
   Ntf_NotifyEvent_t NotifyEvent;
   bool ItsMe = Usr_ItsMe (UsrDat->UsrCod);

   /***** Check if user's role is allowed *****/
   switch (NewRole)
     {
      case Rol_STD:
	 NotifyEvent = Ntf_EVENT_ENROLMENT_STD;
	 break;
      case Rol_NET:
	 NotifyEvent = Ntf_EVENT_ENROLMENT_NET;
	 break;
      case Rol_TCH:
	 NotifyEvent = Ntf_EVENT_ENROLMENT_TCH;
	 break;
      default:
	 NotifyEvent = Ntf_EVENT_UNKNOWN;
         Err_WrongRoleExit ();
     }

   /***** Remove possible enrolment request ******/
   Enr_RemoveEnrolmentRequest (Gbl.Hierarchy.Crs.CrsCod,UsrDat->UsrCod);

   /***** Remove old enrolment notifications before inserting the new one ******/
   Ntf_MarkNotifToOneUsrAsRemoved (Ntf_EVENT_ENROLMENT_STD,-1,UsrDat->UsrCod);
   Ntf_MarkNotifToOneUsrAsRemoved (Ntf_EVENT_ENROLMENT_NET,-1,UsrDat->UsrCod);
   Ntf_MarkNotifToOneUsrAsRemoved (Ntf_EVENT_ENROLMENT_TCH,-1,UsrDat->UsrCod);

   /***** Create new notification ******/
   CreateNotif = (UsrDat->NtfEvents.CreateNotif & (1 << NotifyEvent));
   NotifyByEmail = CreateNotif && !ItsMe &&
		   (UsrDat->NtfEvents.SendEmail & (1 << NotifyEvent));
   if (CreateNotif)
      Ntf_StoreNotifyEventToOneUser (NotifyEvent,UsrDat,-1L,
				     (Ntf_Status_t) (NotifyByEmail ? Ntf_STATUS_BIT_EMAIL :
					                             0),
				     Gbl.Hierarchy.Ins.InsCod,
				     Gbl.Hierarchy.Ctr.CtrCod,
				     Gbl.Hierarchy.Deg.DegCod,
				     Gbl.Hierarchy.Crs.CrsCod);
  }

/*****************************************************************************/
/****** Write a form to request another user's ID, @nickname or email ********/
/*****************************************************************************/

void Enr_WriteFormToReqAnotherUsrID (Act_Action_t NextAction,void (*FuncParams) (void))
  {
   extern const char *The_ClassFormInBox[The_NUM_THEMES];
   extern const char *Txt_nick_email_or_ID;
   extern const char *Txt_Continue;

   /***** Form to request user's ID, @nickname or email address *****/
   Frm_BeginForm (NextAction);
   if (FuncParams)
      FuncParams ();
   HTM_LABEL_Begin ("for=\"OtherUsrIDNickOrEMail\" class=\"%s RM\"",
                    The_ClassFormInBox[Gbl.Prefs.Theme]);
   HTM_TxtColonNBSP (Txt_nick_email_or_ID);
   HTM_LABEL_End ();

   HTM_INPUT_TEXT ("OtherUsrIDNickOrEMail",Cns_MAX_CHARS_EMAIL_ADDRESS,"",
                   HTM_DONT_SUBMIT_ON_CHANGE,
		   "id=\"OtherUsrIDNickOrEMail\" size=\"18\" required=\"required\"");

   /***** Send button*****/
   Btn_PutConfirmButton (Txt_Continue);
   Frm_EndForm ();
  }

/*****************************************************************************/
/****** Request acceptation / refusion of register in current course *********/
/*****************************************************************************/

void Enr_ReqAcceptRegisterInCrs (void)
  {
   extern const char *Hlp_USERS_SignUp_confirm_enrolment;
   extern const char *Txt_Enrolment;
   extern const char *Txt_A_teacher_or_administrator_has_enroled_you_as_X_into_the_course_Y;
   extern const char *Txt_ROLES_SINGUL_abc[Rol_NUM_ROLES][Usr_NUM_SEXS];
   extern const char *Txt_Confirm_my_enrolment;
   extern const char *Txt_Remove_me_from_this_course;
   Ntf_NotifyEvent_t NotifyEvent;

   /***** Begin box *****/
   Box_BoxBegin (NULL,Txt_Enrolment,
                 NULL,NULL,
                 Hlp_USERS_SignUp_confirm_enrolment,Box_NOT_CLOSABLE);

   /***** Show message *****/
   Ale_ShowAlert (Ale_INFO,Txt_A_teacher_or_administrator_has_enroled_you_as_X_into_the_course_Y,
                  Txt_ROLES_SINGUL_abc[Gbl.Usrs.Me.UsrDat.Roles.InCurrentCrs][Gbl.Usrs.Me.UsrDat.Sex],
                  Gbl.Hierarchy.Crs.FullName);

   /***** Send button to accept register in the current course *****/
   switch (Gbl.Usrs.Me.UsrDat.Roles.InCurrentCrs)
     {
      case Rol_STD:
	 Frm_BeginForm (ActAccEnrStd);
	 break;
      case Rol_NET:
	 Frm_BeginForm (ActAccEnrNET);
	 break;
      case Rol_TCH:
	 Frm_BeginForm (ActAccEnrTch);
	 break;
      default:
	 Err_WrongRoleExit ();
     }
   Btn_PutCreateButtonInline (Txt_Confirm_my_enrolment);
   Frm_EndForm ();

   /***** Send button to refuse register in the current course *****/
   switch (Gbl.Usrs.Me.UsrDat.Roles.InCurrentCrs)
     {
      case Rol_STD:
	 Frm_BeginForm (ActRemMe_Std);
	 break;
      case Rol_NET:
	 Frm_BeginForm (ActRemMe_NET);
	 break;
      case Rol_TCH:
	 Frm_BeginForm (ActRemMe_Tch);
	 break;
      default:
	 Err_WrongRoleExit ();
     }
   Btn_PutRemoveButtonInline (Txt_Remove_me_from_this_course);
   Frm_EndForm ();

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

   /***** Mark possible notification as seen *****/
   switch (Gbl.Usrs.Me.UsrDat.Roles.InCurrentCrs)
     {
      case Rol_STD:
	 NotifyEvent = Ntf_EVENT_ENROLMENT_STD;
	 break;
      case Rol_NET:
	 NotifyEvent = Ntf_EVENT_ENROLMENT_NET;
	 break;
      case Rol_TCH:
	 NotifyEvent = Ntf_EVENT_ENROLMENT_TCH;
	 break;
      default:
	 NotifyEvent = Ntf_EVENT_UNKNOWN;
	 Err_WrongRoleExit ();
	 break;
     }
   Ntf_MarkNotifAsSeen (NotifyEvent,-1L,Gbl.Hierarchy.Crs.CrsCod,
                        Gbl.Usrs.Me.UsrDat.UsrCod);
  }

/*****************************************************************************/
/****************** Put an enrolment into a notification ********************/
/*****************************************************************************/

void Enr_GetNotifEnrolment (char SummaryStr[Ntf_MAX_BYTES_SUMMARY + 1],
                            long CrsCod,long UsrCod)
  {
   extern const char *Txt_ROLES_SINGUL_Abc[Rol_NUM_ROLES][Usr_NUM_SEXS];
   MYSQL_RES *mysql_res;
   MYSQL_ROW row;
   struct UsrData UsrDat;
   Rol_Role_t Role;

   SummaryStr[0] = '\0';        // Return nothing on error

   /***** Get user's role in course from database *****/
   if (DB_QuerySELECT (&mysql_res,"can not get user's role in course",
		       "SELECT Role"		// row[0]
		        " FROM crs_users"
		       " WHERE CrsCod=%ld"
		         " AND UsrCod=%ld",
		       CrsCod,UsrCod) == 1)	// Result should have a unique row
     {
      /***** Get user's role in course *****/
      row = mysql_fetch_row (mysql_res);

      /* Initialize structure with user's data */
      Usr_UsrDataConstructor (&UsrDat);

      /* Get user's data */
      UsrDat.UsrCod = UsrCod;
      Usr_ChkUsrCodAndGetAllUsrDataFromUsrCod (&UsrDat,
                                               Usr_DONT_GET_PREFS,
                                               Usr_DONT_GET_ROLE_IN_CURRENT_CRS);

      /* Role (row[0]) */
      Role = Rol_ConvertUnsignedStrToRole (row[0]);
      Str_Copy (SummaryStr,Txt_ROLES_SINGUL_Abc[Role][UsrDat.Sex],
		Ntf_MAX_BYTES_SUMMARY);

      /* Free memory used for user's data */
      Usr_UsrDataDestructor (&UsrDat);
     }

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

/*****************************************************************************/
/***************************** Update user's data ****************************/
/*****************************************************************************/
// UsrDat->UsrCod must be > 0

void Enr_UpdateUsrData (struct UsrData *UsrDat)
  {
   extern const char *Usr_StringsSexDB[Usr_NUM_SEXS];
   char BirthdayStrDB[Usr_BIRTHDAY_STR_DB_LENGTH + 1];

   /***** Check if user's code is initialized *****/
   if (UsrDat->UsrCod <= 0)
      Err_ShowErrorAndExit ("Can not update user's data. Wrong user's code.");

   /***** Filter some user's data before updating */
   Enr_FilterUsrDat (UsrDat);

   /***** Update user's common data *****/
   Usr_CreateBirthdayStrDB (UsrDat,BirthdayStrDB);	// It can include start and ending apostrophes
   DB_QueryUPDATE ("can not update user's data",
		   "UPDATE usr_data"
		     " SET Password='%s',"
		          "Surname1='%s',"
		          "Surname2='%s',"
		          "FirstName='%s',"
		          "Sex='%s',"
		          "CtyCod=%ld,"
		          "LocalPhone='%s',"
		          "FamilyPhone='%s',"
		          "Birthday=%s,"
		          "Comments='%s'"
		   " WHERE UsrCod=%ld",
	           UsrDat->Password,
	           UsrDat->Surname1,
	           UsrDat->Surname2,
	           UsrDat->FrstName,
	           Usr_StringsSexDB[UsrDat->Sex],
	           UsrDat->CtyCod,
	           UsrDat->Phone[0],
	           UsrDat->Phone[1],
	           BirthdayStrDB,
	           UsrDat->Comments ? UsrDat->Comments :
				      "",
	           UsrDat->UsrCod);
  }

/*****************************************************************************/
/************************* Filter some user's data ***************************/
/*****************************************************************************/

void Enr_FilterUsrDat (struct UsrData *UsrDat)
  {
   /***** Fix birthday *****/
   if (UsrDat->Birthday.Year < Gbl.Now.Date.Year-99 ||
       UsrDat->Birthday.Year > Gbl.Now.Date.Year-16)
      UsrDat->Birthday.Year  =
      UsrDat->Birthday.Month =
      UsrDat->Birthday.Day   = 0;
  }

/*****************************************************************************/
/**************** Update institution, center and department ******************/
/*****************************************************************************/

void Enr_UpdateInstitutionCenterDepartment (void)
  {
   DB_QueryUPDATE ("can not update institution, center and department",
		   "UPDATE usr_data"
		     " SET InsCtyCod=%ld,"
		          "InsCod=%ld,"
		          "CtrCod=%ld,"
		          "DptCod=%ld"
		   " WHERE UsrCod=%ld",
	           Gbl.Usrs.Me.UsrDat.InsCtyCod,
	           Gbl.Usrs.Me.UsrDat.InsCod,
	           Gbl.Usrs.Me.UsrDat.Tch.CtrCod,
	           Gbl.Usrs.Me.UsrDat.Tch.DptCod,
	           Gbl.Usrs.Me.UsrDat.UsrCod);
  }

/*****************************************************************************/
/************** Form to request the user's ID of another user ****************/
/*****************************************************************************/

void Enr_ReqAdminStds (void)
  {
   Enr_ReqAdminUsrs (Rol_STD);
  }

void Enr_ReqAdminNonEditingTchs (void)
  {
   Enr_ReqAdminUsrs (Rol_NET);
  }

void Enr_ReqAdminTchs (void)
  {
   Enr_ReqAdminUsrs (Rol_TCH);
  }

static void Enr_ReqAdminUsrs (Rol_Role_t Role)
  {
   switch (Gbl.Usrs.Me.Role.Logged)
     {
      case Rol_GST:
      case Rol_STD:
      case Rol_NET:
	 Enr_AskIfRegRemMe (Role);
	 break;
      case Rol_TCH:
	 if (Gbl.Hierarchy.Level == Hie_Lvl_CRS && Role == Rol_STD)
	    Enr_ShowFormRegRemSeveralUsrs (Rol_STD);
	 else
	    Enr_AskIfRegRemMe (Rol_TCH);
	 break;
      case Rol_DEG_ADM:
      case Rol_CTR_ADM:
      case Rol_INS_ADM:
      case Rol_SYS_ADM:
	 if (Gbl.Hierarchy.Level == Hie_Lvl_CRS)
	    Enr_ShowFormRegRemSeveralUsrs (Role);
	 else
	    Enr_ReqAnotherUsrIDToRegisterRemove (Role);
	 break;
      default:
	 Err_NoPermissionExit ();
	 break;
     }
  }

/*****************************************************************************/
/***** Register/remove users (taken from a list) in/from current course ******/
/*****************************************************************************/

static void Enr_ShowFormRegRemSeveralUsrs (Rol_Role_t Role)
  {
   extern const char *Hlp_USERS_Administration_administer_multiple_users;
   extern const char *The_ClassTitle[The_NUM_THEMES];
   extern const char *Txt_Administer_multiple_students;
   extern const char *Txt_Administer_multiple_non_editing_teachers;
   extern const char *Txt_Administer_multiple_teachers;
   extern const char *Txt_Step_1_Provide_a_list_of_users;
   extern const char *Txt_Type_or_paste_a_list_of_IDs_nicks_or_emails_;
   extern const char *Txt_Step_2_Select_the_desired_action;
   extern const char *Txt_Step_3_Optionally_select_groups;
   extern const char *Txt_Select_the_groups_in_from_which_you_want_to_register_remove_users_;
   extern const char *Txt_No_groups_have_been_created_in_the_course_X_Therefore_;
   extern const char *Txt_Step_4_Confirm_the_enrolment_removing;
   extern const char *Txt_Confirm;
   Act_Action_t NextAction;
   const char *Title;

   /***** Contextual menu *****/
   if (Gbl.Hierarchy.Level == Hie_Lvl_CRS)	 	// Course selected
     {
      Mnu_ContextMenuBegin ();

      switch (Role)
	{
	 case Rol_STD:
            /* Put link to go to admin student */
            Enr_PutLinkToAdminOneUsr (ActReqMdfOneStd);

            /* Put link to remove all the students in the current course */
            if (Usr_GetNumUsrsInCrss (Hie_Lvl_CRS,Gbl.Hierarchy.Crs.CrsCod,
				      1 << Rol_STD))	// This course has students
               Enr_PutLinkToRemAllStdsThisCrs ();
	    break;
	 case Rol_NET:
            /* Put link to go to admin teacher */
            Enr_PutLinkToAdminOneUsr (ActReqMdfOneTch);
	    break;
	 case Rol_TCH:
            /* Put link to go to admin teacher */
            Enr_PutLinkToAdminOneUsr (ActReqMdfOneTch);
	    break;
	 default:
	    NextAction = ActUnk;
	    Title = NULL;
	    Err_WrongRoleExit ();
	    break;
	}

      Mnu_ContextMenuEnd ();
     }

   /***** Form to send students to be enroled / removed *****/
   switch (Role)
     {
      case Rol_STD:
	 NextAction = ActRcvFrmEnrSevStd;
	 Title = Txt_Administer_multiple_students;
	 break;
      case Rol_NET:
	 NextAction = ActRcvFrmEnrSevNET;
	 Title = Txt_Administer_multiple_non_editing_teachers;
	 break;
      case Rol_TCH:
	 NextAction = ActRcvFrmEnrSevTch;
	 Title = Txt_Administer_multiple_teachers;
	 break;
      default:
	 NextAction = ActUnk;
	 Title = NULL;
	 Err_WrongRoleExit ();
	 break;
     }
   Frm_BeginForm (NextAction);

   /***** Begin box *****/
   Box_BoxBegin (NULL,Title,
                 NULL,NULL,
	         Hlp_USERS_Administration_administer_multiple_users,Box_NOT_CLOSABLE);

   /***** Step 1: List of students to be enroled / removed *****/
   HTM_DIV_Begin ("class=\"%s LM\"",The_ClassTitle[Gbl.Prefs.Theme]);
   HTM_Txt (Txt_Step_1_Provide_a_list_of_users);
   HTM_DIV_End ();

   Ale_ShowAlert (Ale_INFO,Txt_Type_or_paste_a_list_of_IDs_nicks_or_emails_);
   Enr_PutAreaToEnterUsrsIDs ();

   /***** Step 2: Put different actions to register/remove users to/from current course *****/
   HTM_DIV_Begin ("class=\"%s LM\"",The_ClassTitle[Gbl.Prefs.Theme]);
   HTM_Txt (Txt_Step_2_Select_the_desired_action);
   HTM_DIV_End ();
   Enr_PutActionsRegRemSeveralUsrs ();

   /***** Step 3: Select groups in which register / remove users *****/
   HTM_DIV_Begin ("class=\"%s LM\"",The_ClassTitle[Gbl.Prefs.Theme]);
   HTM_Txt (Txt_Step_3_Optionally_select_groups);
   HTM_DIV_End ();
   if (Gbl.Hierarchy.Level == Hie_Lvl_CRS)	// Course selected
     {
      if (Gbl.Crs.Grps.NumGrps)	// This course has groups?
	{
	 Ale_ShowAlert (Ale_INFO,Txt_Select_the_groups_in_from_which_you_want_to_register_remove_users_);
	 Grp_ShowLstGrpsToChgOtherUsrsGrps (-1L);
	}
      else
	 /* Write help message */
	 Ale_ShowAlert (Ale_INFO,Txt_No_groups_have_been_created_in_the_course_X_Therefore_,
		        Gbl.Hierarchy.Crs.FullName);
     }

   /***** Step 4: Confirm register / remove students *****/
   HTM_DIV_Begin ("class=\"%s LM\"",The_ClassTitle[Gbl.Prefs.Theme]);
   HTM_Txt (Txt_Step_4_Confirm_the_enrolment_removing);
   HTM_DIV_End ();
   Pwd_AskForConfirmationOnDangerousAction ();

   /***** Send button and end box *****/
   Box_BoxWithButtonEnd (Btn_CONFIRM_BUTTON,Txt_Confirm);

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

/*****************************************************************************/
/******************** Put a link (form) to remove old users ******************/
/*****************************************************************************/

void Enr_PutLinkToRemOldUsrs (void)
  {
   extern const char *Txt_Eliminate_old_users;

   /***** Put form to remove old users *****/
   Lay_PutContextualLinkIconText (ActReqRemOldUsr,NULL,
                                  NULL,NULL,
				  "trash.svg",
				  Txt_Eliminate_old_users);
  }

/*****************************************************************************/
/*********************** Write form to remove old users **********************/
/*****************************************************************************/

void Enr_AskRemoveOldUsrs (void)
  {
   extern const char *The_ClassFormInBox[The_NUM_THEMES];
   extern const char *Txt_Eliminate_old_users;
   extern const char *Txt_Eliminate_all_users_who_are_not_enroled_on_any_courses_PART_1_OF_2;
   extern const char *Txt_Eliminate_all_users_who_are_not_enroled_on_any_courses_PART_2_OF_2;
   extern const char *Txt_Eliminate;
   unsigned Months;

   /***** Begin form *****/
   Frm_BeginForm (ActRemOldUsr);

   /***** Begin box *****/
   Box_BoxBegin (NULL,Txt_Eliminate_old_users,
                 NULL,NULL,
                 NULL,Box_NOT_CLOSABLE);

   /***** Form to request number of months without clicks *****/
   HTM_LABEL_Begin ("class=\"%s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);
   HTM_TxtF ("%s&nbsp;",Txt_Eliminate_all_users_who_are_not_enroled_on_any_courses_PART_1_OF_2);
   HTM_SELECT_Begin (HTM_DONT_SUBMIT_ON_CHANGE,
		     "name=\"Months\"");
   for (Months  = Usr_MIN_MONTHS_WITHOUT_ACCESS_TO_REMOVE_OLD_USRS;
        Months <= Usr_MAX_MONTHS_WITHOUT_ACCESS_TO_REMOVE_OLD_USRS;
        Months++)
      HTM_OPTION (HTM_Type_UNSIGNED,&Months,
		  Months == Usr_DEF_MONTHS_WITHOUT_ACCESS_TO_REMOVE_OLD_USRS,false,
		  "%u",Months);
   HTM_SELECT_End ();
   HTM_NBSP ();
   HTM_TxtF (Txt_Eliminate_all_users_who_are_not_enroled_on_any_courses_PART_2_OF_2,
             Cfg_PLATFORM_SHORT_NAME);
   HTM_LABEL_End ();

   /***** Send button and end box *****/
   Box_BoxWithButtonEnd (Btn_REMOVE_BUTTON,Txt_Eliminate);

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

/*****************************************************************************/
/******************************* Remove old users ****************************/
/*****************************************************************************/

void Enr_RemoveOldUsrs (void)
  {
   extern const char *Txt_Eliminating_X_users_who_were_not_enroled_in_any_course_and_with_more_than_Y_months_without_access_to_Z;
   extern const char *Txt_X_users_have_been_eliminated;
   unsigned MonthsWithoutAccess;
   time_t SecondsWithoutAccess;
   MYSQL_RES *mysql_res;
   unsigned NumUsr;
   unsigned NumUsrs;
   unsigned NumUsrsEliminated = 0;
   struct UsrData UsrDat;

   /***** Get parameter with number of months without access *****/
   MonthsWithoutAccess = (unsigned)
	                 Par_GetParToUnsignedLong ("Months",
                                                   Usr_MIN_MONTHS_WITHOUT_ACCESS_TO_REMOVE_OLD_USRS,
                                                   Usr_MAX_MONTHS_WITHOUT_ACCESS_TO_REMOVE_OLD_USRS,
                                                   (unsigned long) UINT_MAX);
   if (MonthsWithoutAccess == UINT_MAX)
      Err_ShowErrorAndExit ("Wrong number of months.");
   SecondsWithoutAccess = (time_t) MonthsWithoutAccess * Dat_SECONDS_IN_ONE_MONTH;

   /***** Get old users from database *****/
   NumUsrs = (unsigned)
   DB_QuerySELECT (&mysql_res,"can not get old users",
		   "SELECT UsrCod"
		    " FROM (SELECT UsrCod"
			    " FROM usr_last"
			   " WHERE LastTime<FROM_UNIXTIME(UNIX_TIMESTAMP()-%lu)"
			   " UNION "
			   "SELECT UsrCod"
			    " FROM usr_data"
			   " WHERE UsrCod NOT IN"
			         " (SELECT UsrCod"
				    " FROM usr_last)"
			  ") AS candidate_usrs"
		   " WHERE UsrCod NOT IN"
		         " (SELECT DISTINCT UsrCod"
			    " FROM crs_users)",
		   (unsigned long) SecondsWithoutAccess);
   if (NumUsrs)
     {
      Ale_ShowAlert (Ale_INFO,Txt_Eliminating_X_users_who_were_not_enroled_in_any_course_and_with_more_than_Y_months_without_access_to_Z,
                     NumUsrs,
                     MonthsWithoutAccess,
                     Cfg_PLATFORM_SHORT_NAME);

      /***** Initialize structure with user's data *****/
      Usr_UsrDataConstructor (&UsrDat);

      /***** Remove users *****/
      for (NumUsr = 0;
           NumUsr < NumUsrs;
           NumUsr++)
        {
         UsrDat.UsrCod = DB_GetNextCode (mysql_res);
         if (Usr_ChkUsrCodAndGetAllUsrDataFromUsrCod (&UsrDat,
                                                      Usr_DONT_GET_PREFS,
                                                      Usr_DONT_GET_ROLE_IN_CURRENT_CRS))
           {
            // User's data exist...
            Acc_CompletelyEliminateAccount (&UsrDat,Cns_QUIET);
            NumUsrsEliminated++;
           }
        }

      /***** Free memory used for user's data *****/
      Usr_UsrDataDestructor (&UsrDat);

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

      /***** Move unused contents of messages to table of deleted contents of messages *****/
      Msg_MoveUnusedMsgsContentToDeleted ();
     }

   /***** Write end message *****/
   Ale_ShowAlert (Ale_SUCCESS,Txt_X_users_have_been_eliminated,
                  NumUsrsEliminated);
  }

/*****************************************************************************/
/***** Put text area to enter/paste IDs of users to be enroled/removed ******/
/*****************************************************************************/

static void Enr_PutAreaToEnterUsrsIDs (void)
  {
   extern const char *The_ClassFormInBox[The_NUM_THEMES];
   extern const char *Txt_List_of_nicks_emails_or_IDs;

   /***** Text area for users' IDs *****/
   HTM_TABLE_BeginCenterPadding (2);
   HTM_TR_Begin (NULL);

   /* Label */
   Frm_LabelColumn ("RT","UsrsIDs",Txt_List_of_nicks_emails_or_IDs);

   /* Data */
   HTM_TD_Begin ("class=\"LT\"");
   HTM_TEXTAREA_Begin ("id=\"UsrsIDs\" name=\"UsrsIDs\" cols=\"60\" rows=\"10\"");
   HTM_TEXTAREA_End ();
   HTM_TD_End ();

   HTM_TR_End ();
   HTM_TABLE_End ();
  }

/*****************************************************************************/
/*** Put different actions to register/remove users to/from current course ***/
/*****************************************************************************/

static void Enr_PutActionsRegRemSeveralUsrs (void)
  {
   extern const char *The_ClassFormInBox[The_NUM_THEMES];
   extern const char *Txt_Register_the_users_indicated_in_step_1;
   extern const char *Txt_Remove_the_users_indicated_in_step_1;
   extern const char *Txt_Remove_the_users_not_indicated_in_step_1;
   extern const char *Txt_Register_the_users_indicated_in_step_1_and_remove_the_users_not_indicated;
   extern const char *Txt_Eliminate_from_the_platform_the_users_indicated_in_step_1;

   /***** Start list of options *****/
   HTM_UL_Begin ("class=\"LIST_LEFT %s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);

   /***** Register / remove users listed or not listed *****/
   if (Gbl.Hierarchy.Level == Hie_Lvl_CRS)	// Course selected
     {
      HTM_LI_Begin (NULL);
      HTM_LABEL_Begin (NULL);
      HTM_INPUT_RADIO ("RegRemAction",false,
		       " value=\"%u\" checked=\"checked\"",
		       (unsigned) Enr_REGISTER_SPECIFIED_USRS_IN_CRS);
      HTM_Txt (Txt_Register_the_users_indicated_in_step_1);
      HTM_LABEL_End ();
      HTM_LI_End ();

      HTM_LI_Begin (NULL);
      HTM_LABEL_Begin (NULL);
      HTM_INPUT_RADIO ("RegRemAction",false,
		       " value=\"%u\"",
		       (unsigned) Enr_REMOVE_SPECIFIED_USRS_FROM_CRS);
      HTM_Txt (Txt_Remove_the_users_indicated_in_step_1);
      HTM_LABEL_End ();
      HTM_LI_End ();

      HTM_LI_Begin (NULL);
      HTM_LABEL_Begin (NULL);
      HTM_INPUT_RADIO ("RegRemAction",false,
		       " value=\"%u\"",
		       (unsigned) Enr_REMOVE_NOT_SPECIFIED_USRS_FROM_CRS);
      HTM_Txt (Txt_Remove_the_users_not_indicated_in_step_1);
      HTM_LABEL_End ();
      HTM_LI_End ();

      HTM_LI_Begin (NULL);
      HTM_LABEL_Begin (NULL);
      HTM_INPUT_RADIO ("RegRemAction",false,
		       " value=\"%u\"",
		       (unsigned) Enr_UPDATE_USRS_IN_CRS);
      HTM_Txt (Txt_Register_the_users_indicated_in_step_1_and_remove_the_users_not_indicated);
      HTM_LABEL_End ();
      HTM_LI_End ();
     }

   /***** Only for superusers *****/
   if (Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM)
     {
      HTM_LI_Begin (NULL);
      HTM_LABEL_Begin (NULL);
      HTM_INPUT_RADIO ("RegRemAction",false,
		       " value=\"%u\"",
		       (unsigned) Enr_ELIMINATE_USRS_FROM_PLATFORM);
      HTM_Txt (Txt_Eliminate_from_the_platform_the_users_indicated_in_step_1);
      HTM_LABEL_End ();
      HTM_LI_End ();
     }

   /***** End list of options *****/
   HTM_UL_End ();
  }

/*****************************************************************************/
/******* Receive the list of users of the course to register/remove **********/
/*****************************************************************************/

void Enr_ReceiveFormAdminStds (void)
  {
   Enr_ReceiveFormUsrsCrs (Rol_STD);
  }

void Enr_ReceiveFormAdminNonEditTchs (void)
  {
   Enr_ReceiveFormUsrsCrs (Rol_NET);
  }

void Enr_ReceiveFormAdminTchs (void)
  {
   Enr_ReceiveFormUsrsCrs (Rol_TCH);
  }

static void Enr_ReceiveFormUsrsCrs (Rol_Role_t Role)
  {
   extern const char *Txt_In_a_type_of_group_with_single_enrolment_students_can_not_be_registered_in_more_than_one_group;
   extern const char *Txt_No_user_has_been_eliminated;
   extern const char *Txt_One_user_has_been_eliminated;
   extern const char *Txt_No_user_has_been_removed;
   extern const char *Txt_One_user_has_been_removed;
   extern const char *Txt_X_users_have_been_eliminated;
   extern const char *Txt_X_users_have_been_removed;
   extern const char *Txt_No_user_has_been_enroled;
   extern const char *Txt_One_user_has_been_enroled;
   extern const char *Txt_X_users_have_been_enroled_including_possible_repetitions;
   struct
     {
      bool RemoveUsrs;
      bool RemoveSpecifiedUsrs;
      bool EliminateUsrs;
      bool RegisterUsrs;
     } WhatToDo;
   char *ListUsrsIDs;
   struct ListUsrCods ListUsrCods;	// List with users' codes for a given user's ID
   unsigned NumUsrFound;
   const char *Ptr;
   unsigned NumCurrentUsr;
   unsigned NumUsrsRegistered = 0;
   unsigned NumUsrsRemoved = 0;
   unsigned NumUsrsEliminated = 0;
   struct ListCodGrps LstGrps;
   struct UsrData UsrDat;
   bool ItLooksLikeAUsrID;
   Enr_RegRemUsrsAction_t RegRemUsrsAction;

   /***** Check the role of users to register / remove *****/
   switch (Role)
     {
      case Rol_STD:
	 if (Gbl.Usrs.Me.Role.Logged < Rol_TCH)		// Can I register/remove students?
	    // No, I can not
	    Err_NoPermissionExit ();
	 break;
      case Rol_NET:
      case Rol_TCH:
	 if (Gbl.Usrs.Me.Role.Logged < Rol_DEG_ADM)	// Can I register/remove teachers?
	    // No, I can not
	    Err_NoPermissionExit ();
	 break;
      default:
	 Err_WrongRoleExit ();
	 break;
     }

   /***** Get confirmation *****/
   if (!Pwd_GetConfirmationOnDangerousAction ())
      return;

   /***** Get the action to do *****/
   WhatToDo.RemoveUsrs = false;
   WhatToDo.RemoveSpecifiedUsrs = false;
   WhatToDo.EliminateUsrs = false;
   WhatToDo.RegisterUsrs = false;

   RegRemUsrsAction = (Enr_RegRemUsrsAction_t)
	              Par_GetParToUnsignedLong ("RegRemAction",
                                                0,
                                                Enr_NUM_REG_REM_USRS_ACTIONS - 1,
                                                (unsigned long) Enr_REG_REM_USRS_UNKNOWN_ACTION);
   switch (RegRemUsrsAction)
     {
      case Enr_REGISTER_SPECIFIED_USRS_IN_CRS:
	 WhatToDo.RemoveUsrs = false;
	 WhatToDo.RemoveSpecifiedUsrs = false;	// Ignored
	 WhatToDo.EliminateUsrs = false;		// Ignored
	 WhatToDo.RegisterUsrs = true;
	 break;
      case Enr_REMOVE_SPECIFIED_USRS_FROM_CRS:
	 WhatToDo.RemoveUsrs = true;
	 WhatToDo.RemoveSpecifiedUsrs = true;
	 WhatToDo.EliminateUsrs = false;
	 WhatToDo.RegisterUsrs = false;
	 break;
      case Enr_REMOVE_NOT_SPECIFIED_USRS_FROM_CRS:
	 WhatToDo.RemoveUsrs = true;
	 WhatToDo.RemoveSpecifiedUsrs = false;
	 WhatToDo.EliminateUsrs = false;
	 WhatToDo.RegisterUsrs = false;
	 break;
      case Enr_UPDATE_USRS_IN_CRS:
	 WhatToDo.RemoveUsrs = true;
	 WhatToDo.RemoveSpecifiedUsrs = false;
	 WhatToDo.EliminateUsrs = false;
	 WhatToDo.RegisterUsrs = true;
	 break;
      case Enr_ELIMINATE_USRS_FROM_PLATFORM:
	 if (Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM)
	   {
	    WhatToDo.RemoveUsrs = true;
	    WhatToDo.RemoveSpecifiedUsrs = true;
	    WhatToDo.EliminateUsrs = true;
	    WhatToDo.RegisterUsrs = false;
	   }
	 else
	    Err_NoPermissionExit ();
	 break;
      default:
	 Err_ShowErrorAndExit ("Wrong registering / removing specification.");
	 break;
     }

   /***** Get groups to which register/remove users *****/
   LstGrps.NumGrps = 0;
   if (Gbl.Crs.Grps.NumGrps) // This course has groups?
     {
      /***** Get list of groups types and groups in current course *****/
      Grp_GetListGrpTypesAndGrpsInThisCrs (Grp_ONLY_GROUP_TYPES_WITH_GROUPS);

      /***** Get the list of groups to which register/remove students *****/
      LstGrps.GrpCods = NULL;	// Initialized to avoid bug reported by Coverity
      LstGrps.NumGrps = 0;	// Initialized to avoid bug reported by Coverity
      Grp_GetLstCodsGrpWanted (&LstGrps);

      /***** A student can't belong to more than one group
             when the type of group only allows to register in one group *****/
      if (WhatToDo.RegisterUsrs)
	 /* Check if I have selected more than one group of single enrolment */
	 if (!Grp_CheckIfSelectionGrpsSingleEnrolmentIsValid (Role,&LstGrps))
	   {
	    /* Show warning message and exit */
	    Ale_ShowAlert (Ale_WARNING,Txt_In_a_type_of_group_with_single_enrolment_students_can_not_be_registered_in_more_than_one_group);

	    /* Free memory used by lists of groups and abort */
	    Grp_FreeListCodGrp (&LstGrps);
	    Grp_FreeListGrpTypesAndGrps ();
	    return;
	   }
     }

   /***** Get list of users' IDs *****/
   if ((ListUsrsIDs = malloc (ID_MAX_BYTES_LIST_USRS_IDS + 1)) == NULL)
      Err_NotEnoughMemoryExit ();
   Par_GetParToText ("UsrsIDs",ListUsrsIDs,ID_MAX_BYTES_LIST_USRS_IDS);

   /***** Initialize structure with user's data *****/
   Usr_UsrDataConstructor (&UsrDat);

   /***** Remove users *****/
   if (WhatToDo.RemoveUsrs)
     {
      /***** Get list of users in current course *****/
      Usr_GetListUsrs (Hie_Lvl_CRS,Role);

      if (Gbl.Usrs.LstUsrs[Role].NumUsrs)
	{
	 /***** Initialize list of users to remove *****/
	 for (NumCurrentUsr = 0;
	      NumCurrentUsr < Gbl.Usrs.LstUsrs[Role].NumUsrs;
	      NumCurrentUsr++)
	    Gbl.Usrs.LstUsrs[Role].Lst[NumCurrentUsr].Remove = !WhatToDo.RemoveSpecifiedUsrs;

	 /***** Loop 1: go through form list setting if a student must be removed *****/
	 /* Get users from a list of users' IDs */
	 Ptr = ListUsrsIDs;
	 while (*Ptr)
	   {
	    /* Reset user */
	    UsrDat.UsrCod = -1L;

	    /* Find next string in text */
	    Str_GetNextStringUntilSeparator (&Ptr,UsrDat.UsrIDNickOrEmail,
	                                     Cns_MAX_BYTES_EMAIL_ADDRESS);

	    /* Reset default list of users' codes */
	    ListUsrCods.NumUsrs = 0;
	    ListUsrCods.Lst = NULL;

	    /* Check if string is a user's ID, user's nickname or user's email address */
	    if (Nck_CheckIfNickWithArrIsValid (UsrDat.UsrIDNickOrEmail))	// 1: It's a nickname
	      {
	       if ((UsrDat.UsrCod = Nck_GetUsrCodFromNickname (UsrDat.UsrIDNickOrEmail)) > 0)
		 {
		  ListUsrCods.NumUsrs = 1;
		  Usr_AllocateListUsrCods (&ListUsrCods);
		  ListUsrCods.Lst[0] = UsrDat.UsrCod;
		 }
	      }
	    else if (Mai_CheckIfEmailIsValid (UsrDat.UsrIDNickOrEmail))	// 2: It's an email
	      {
	       if ((UsrDat.UsrCod = Mai_GetUsrCodFromEmail (UsrDat.UsrIDNickOrEmail)) > 0)
		 {
		  ListUsrCods.NumUsrs = 1;
		  Usr_AllocateListUsrCods (&ListUsrCods);
		  ListUsrCods.Lst[0] = UsrDat.UsrCod;
		 }
	      }
	    else								// 3: It looks like a user's ID
	      {
	       // Users' IDs are always stored internally in capitals and without leading zeros
	       Str_RemoveLeadingZeros (UsrDat.UsrIDNickOrEmail);
	       if (ID_CheckIfUsrIDSeemsAValidID (UsrDat.UsrIDNickOrEmail))
		 {
		  /***** Find users for this user's ID *****/
		  ID_ReallocateListIDs (&UsrDat,1);	// Only one user's ID
		  Str_Copy (UsrDat.IDs.List[0].ID,UsrDat.UsrIDNickOrEmail,
			    sizeof (UsrDat.IDs.List[0].ID) - 1);
		  Str_ConvertToUpperText (UsrDat.IDs.List[0].ID);
		  ID_GetListUsrCodsFromUsrID (&UsrDat,NULL,&ListUsrCods,false);
		 }
	      }

	    if (WhatToDo.RemoveSpecifiedUsrs)	// Remove the specified users (of the role)
	      {
	       if (ListUsrCods.NumUsrs == 1)		// If more than one user found ==> do not remove
		  for (NumCurrentUsr = 0;
		       NumCurrentUsr < Gbl.Usrs.LstUsrs[Role].NumUsrs;
		       NumCurrentUsr++)
		     if (Gbl.Usrs.LstUsrs[Role].Lst[NumCurrentUsr].UsrCod == ListUsrCods.Lst[0])	// User found
			Gbl.Usrs.LstUsrs[Role].Lst[NumCurrentUsr].Remove = true;	// Mark as removable
	      }
	    else	// Remove all the users (of the role) except these specified
	      {
	       for (NumCurrentUsr = 0;
		    NumCurrentUsr < Gbl.Usrs.LstUsrs[Role].NumUsrs;
		    NumCurrentUsr++)
		  for (NumUsrFound = 0;
		       NumUsrFound < ListUsrCods.NumUsrs;
		       NumUsrFound++)
		     if (Gbl.Usrs.LstUsrs[Role].Lst[NumCurrentUsr].UsrCod == ListUsrCods.Lst[NumUsrFound])	// User found
			Gbl.Usrs.LstUsrs[Role].Lst[NumCurrentUsr].Remove = false;	// Mark as not removable
	      }

	    /* Free memory used for list of users' codes found for this ID */
	    Usr_FreeListUsrCods (&ListUsrCods);
	   }

	 /***** Loop 2: go through users list removing users *****/
	 for (NumCurrentUsr = 0;
	      NumCurrentUsr < Gbl.Usrs.LstUsrs[Role].NumUsrs;
	      NumCurrentUsr++)
	    if (Gbl.Usrs.LstUsrs[Role].Lst[NumCurrentUsr].Remove)        // If this student must be removed
	      {
	       UsrDat.UsrCod = Gbl.Usrs.LstUsrs[Role].Lst[NumCurrentUsr].UsrCod;
	       if (Usr_ChkUsrCodAndGetAllUsrDataFromUsrCod (&UsrDat,
	                                                    Usr_DONT_GET_PREFS,
	                                                    Usr_DONT_GET_ROLE_IN_CURRENT_CRS))
		 {
		  // User's data exist...
		  if (WhatToDo.EliminateUsrs)                // Eliminate user completely from the platform
		    {
		     Acc_CompletelyEliminateAccount (&UsrDat,Cns_QUIET);                // Remove definitely the user from the platform
		     NumUsrsEliminated++;
		    }
		  else
		    {
		     if (Gbl.Crs.Grps.NumGrps)        // If there are groups in the course
		       {
			if (LstGrps.NumGrps)        // If the teacher has selected groups
			  {
			   if (Grp_RemoveUsrFromGroups (&UsrDat,&LstGrps))                // Remove user from the selected groups, not from the whole course
			      NumUsrsRemoved++;
			  }
			else        // The teacher has not selected groups
			  {
			   Enr_EffectivelyRemUsrFromCrs (&UsrDat,&Gbl.Hierarchy.Crs,
							 Enr_DO_NOT_REMOVE_USR_PRODUCTION,
							 Cns_QUIET);        // Remove user from the course
			   NumUsrsRemoved++;
			  }
		       }
		     else        // No groups
		       {
			Enr_EffectivelyRemUsrFromCrs (&UsrDat,&Gbl.Hierarchy.Crs,
						      Enr_DO_NOT_REMOVE_USR_PRODUCTION,
						      Cns_QUIET);        // Remove user from the course
			NumUsrsRemoved++;
		       }
		    }
		 }
	      }
	}

      /***** Free memory for users list *****/
      Usr_FreeUsrsList (Role);
     }

   /***** Register users *****/
   if (WhatToDo.RegisterUsrs)	// TODO: !!!!! NO CAMBIAR EL ROL DE LOS USUARIOS QUE YA EST<53>N EN LA ASIGNATURA SI HAY M<>S DE UN USUARIO ENCONTRADO PARA EL MISMO DNI !!!!!!
     {
      /***** Get users from a list of users' IDs ******/
      Ptr = ListUsrsIDs;
      while (*Ptr)
	{
	 /* Reset user */
	 UsrDat.UsrCod = -1L;
	 ItLooksLikeAUsrID = false;

	 /* Find next string in text */
	 Str_GetNextStringUntilSeparator (&Ptr,UsrDat.UsrIDNickOrEmail,
	                                  Cns_MAX_BYTES_EMAIL_ADDRESS);

	 /* Reset default list of users' codes */
	 ListUsrCods.NumUsrs = 0;
	 ListUsrCods.Lst = NULL;

	 /* Check if the string is a user's ID, a user's nickname or a user's email address */
	 if (Nck_CheckIfNickWithArrIsValid (UsrDat.UsrIDNickOrEmail))	// 1: It's a nickname
	   {
	    if ((UsrDat.UsrCod = Nck_GetUsrCodFromNickname (UsrDat.UsrIDNickOrEmail)) > 0)
	      {
	       ListUsrCods.NumUsrs = 1;
	       Usr_AllocateListUsrCods (&ListUsrCods);
	       ListUsrCods.Lst[0] = UsrDat.UsrCod;
	      }
	   }
	 else if (Mai_CheckIfEmailIsValid (UsrDat.UsrIDNickOrEmail))		// 2: It's an email
	   {
	    if ((UsrDat.UsrCod = Mai_GetUsrCodFromEmail (UsrDat.UsrIDNickOrEmail)) > 0)
	      {
	       ListUsrCods.NumUsrs = 1;
	       Usr_AllocateListUsrCods (&ListUsrCods);
	       ListUsrCods.Lst[0] = UsrDat.UsrCod;
	      }
	   }
	 else								// 3: It looks like a user's ID
	   {
	    // Users' IDs are always stored internally in capitals and without leading zeros
	    Str_RemoveLeadingZeros (UsrDat.UsrIDNickOrEmail);
	    if (ID_CheckIfUsrIDSeemsAValidID (UsrDat.UsrIDNickOrEmail))
	      {
	       ItLooksLikeAUsrID = true;

	       /* Find users for this user's ID */
	       ID_ReallocateListIDs (&UsrDat,1);	// Only one user's ID
	       Str_Copy (UsrDat.IDs.List[0].ID,UsrDat.UsrIDNickOrEmail,
			 sizeof (UsrDat.IDs.List[0].ID) - 1);
	       Str_ConvertToUpperText (UsrDat.IDs.List[0].ID);
	       ID_GetListUsrCodsFromUsrID (&UsrDat,NULL,&ListUsrCods,false);
	      }
	   }

	 /* Register user(s) */
	 if (ListUsrCods.NumUsrs)	// User(s) found
	    for (NumUsrFound = 0;
		 NumUsrFound < ListUsrCods.NumUsrs;
		 NumUsrFound++)
	      {
	       UsrDat.UsrCod = ListUsrCods.Lst[NumUsrFound];
	       Enr_RegisterUsr (&UsrDat,Role,&LstGrps,&NumUsrsRegistered);
	      }
	 else if (ItLooksLikeAUsrID)	// User not found. He/she is a new user. Register him/her using ID
	    Enr_RegisterUsr (&UsrDat,Role,&LstGrps,&NumUsrsRegistered);

	 /* Free memory used for list of users' codes found for this ID */
	 Usr_FreeListUsrCods (&ListUsrCods);
	}
     }

   /***** Free memory used for user's data *****/
   Usr_UsrDataDestructor (&UsrDat);

   if (NumUsrsEliminated)
      /***** Move unused contents of messages to table of deleted contents of messages *****/
      Msg_MoveUnusedMsgsContentToDeleted ();

   /***** Write messages with the number of users enroled/removed *****/
   if (WhatToDo.RemoveUsrs)
     {
      if (WhatToDo.EliminateUsrs)        // Eliminate completely from the platform
	 switch (NumUsrsEliminated)
	   {
	    case 0:
	       Ale_ShowAlert (Ale_INFO,Txt_No_user_has_been_eliminated);
	       break;
	    case 1:
	       Ale_ShowAlert (Ale_SUCCESS,Txt_One_user_has_been_eliminated);
	       break;
	    default:
	       Ale_ShowAlert (Ale_SUCCESS,Txt_X_users_have_been_eliminated,
			      NumUsrsEliminated);
	       break;
	   }
      else                        // Only remove from course / groups
	 switch (NumUsrsRemoved)
	   {
	    case 0:
	       Ale_ShowAlert (Ale_INFO,Txt_No_user_has_been_removed);
	       break;
	    case 1:
	       Ale_ShowAlert (Ale_SUCCESS,Txt_One_user_has_been_removed);
	       break;
	    default:
	       Ale_ShowAlert (Ale_SUCCESS,Txt_X_users_have_been_removed,
			      NumUsrsRemoved);
	       break;
	   }
     }
   if (WhatToDo.RegisterUsrs)
      switch (NumUsrsRegistered)
	{
	 case 0:
	    Ale_ShowAlert (Ale_INFO,Txt_No_user_has_been_enroled);
	    break;
	 case 1:
	    Ale_ShowAlert (Ale_SUCCESS,Txt_One_user_has_been_enroled);
	    break;
	 default:
	    Ale_ShowAlert (Ale_SUCCESS,Txt_X_users_have_been_enroled_including_possible_repetitions,
		           NumUsrsRegistered);
	    break;
	}

   /***** Free memory used by the list of user's IDs *****/
   free (ListUsrsIDs);

   /***** Free memory with the list of groups to/from which register/remove users *****/
   Grp_FreeListCodGrp (&LstGrps);

   /***** Free list of groups types and groups in current course *****/
   Grp_FreeListGrpTypesAndGrps ();
  }

/*****************************************************************************/
/*** Put different actions to register/remove users to/from current course ***/
/*****************************************************************************/
// Returns true if at least one action can be shown

bool Enr_PutActionsRegRemOneUsr (bool ItsMe)
  {
   extern const char *The_ClassFormInBox[The_NUM_THEMES];
   bool OptionsShown = false;
   bool UsrBelongsToCrs = false;
   bool UsrIsDegAdmin = false;
   bool UsrIsCtrAdmin = false;
   bool UsrIsInsAdmin = false;
   bool OptionChecked = false;

   /***** Check if the other user belongs to the current course *****/
   if (Gbl.Hierarchy.Level == Hie_Lvl_CRS)
      UsrBelongsToCrs = Usr_CheckIfUsrBelongsToCurrentCrs (&Gbl.Usrs.Other.UsrDat);

   if (Gbl.Hierarchy.Ins.InsCod > 0)
     {
      /***** Check if the other user is administrator of the current institution *****/
      UsrIsInsAdmin = Usr_CheckIfUsrIsAdm (Gbl.Usrs.Other.UsrDat.UsrCod,
					   Hie_Lvl_INS,
					   Gbl.Hierarchy.Ins.InsCod);

      if (Gbl.Hierarchy.Ctr.CtrCod > 0)
	{
	 /***** Check if the other user is administrator of the current center *****/
	 UsrIsCtrAdmin = Usr_CheckIfUsrIsAdm (Gbl.Usrs.Other.UsrDat.UsrCod,
					      Hie_Lvl_CTR,
					      Gbl.Hierarchy.Ctr.CtrCod);

	 if (Gbl.Hierarchy.Deg.DegCod > 0)
	    /***** Check if the other user is administrator of the current degree *****/
	    UsrIsDegAdmin = Usr_CheckIfUsrIsAdm (Gbl.Usrs.Other.UsrDat.UsrCod,
						 Hie_Lvl_DEG,
						 Gbl.Hierarchy.Deg.DegCod);
	}
     }

   /***** Start list of options *****/
   HTM_UL_Begin ("class=\"LIST_LEFT %s\"",The_ClassFormInBox[Gbl.Prefs.Theme]);

   /***** Register user in course / Modify user's data *****/
   if (Gbl.Hierarchy.Level == Hie_Lvl_CRS && Gbl.Usrs.Me.Role.Logged >= Rol_STD)
     {
      Enr_PutActionModifyOneUsr (&OptionChecked,UsrBelongsToCrs,ItsMe);
      OptionsShown = true;
     }

   if (Gbl.Hierarchy.Ins.InsCod > 0)
     {
      if (Gbl.Hierarchy.Ctr.CtrCod > 0)
	{
	 if (Gbl.Hierarchy.Deg.DegCod > 0)
	    /***** Register user as administrator of degree *****/
	    if (!UsrIsDegAdmin && Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM)
	      {
	       Enr_PutActionRegOneDegAdm (&OptionChecked);
	       OptionsShown = true;
	      }

	 /***** Register user as administrator of center *****/
	 if (!UsrIsCtrAdmin && Gbl.Usrs.Me.Role.Logged >= Rol_INS_ADM)
	   {
	    Enr_PutActionRegOneCtrAdm (&OptionChecked);
	    OptionsShown = true;
	   }
	}

      /***** Register user as administrator of institution *****/
      if (!UsrIsInsAdmin && Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM)
	{
	 Enr_PutActionRegOneInsAdm (&OptionChecked);
	 OptionsShown = true;
	}
     }

   /***** Report user as possible duplicate *****/
   if (!ItsMe && Gbl.Usrs.Me.Role.Logged >= Rol_TCH)
     {
      Enr_PutActionRepUsrAsDup (&OptionChecked);
      OptionsShown = true;
     }

   /***** Remove user from the course *****/
   if (UsrBelongsToCrs)
     {
      Enr_PutActionRemUsrFromCrs (&OptionChecked,ItsMe);
      OptionsShown = true;
     }

   if (Gbl.Hierarchy.Ins.InsCod > 0)
     {
      if (Gbl.Hierarchy.Ctr.CtrCod > 0)
	{
	 if (Gbl.Hierarchy.Ins.InsCod > 0)
	    /***** Remove user as an administrator of the degree *****/
	    if (UsrIsDegAdmin && (ItsMe || Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM))
	      {
	       Enr_PutActionRemUsrAsDegAdm (&OptionChecked,ItsMe);
	       OptionsShown = true;
	      }

          /***** Remove user as an administrator of the center *****/
	  if (UsrIsCtrAdmin && (ItsMe || Gbl.Usrs.Me.Role.Logged >= Rol_INS_ADM))
	   {
	    Enr_PutActionRemUsrAsCtrAdm (&OptionChecked,ItsMe);
	    OptionsShown = true;
	   }
	}

      /***** Remove user as an administrator of the institution *****/
      if (UsrIsInsAdmin && (ItsMe || Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM))
	{
	 Enr_PutActionRemUsrAsInsAdm (&OptionChecked,ItsMe);
	 OptionsShown = true;
	}
     }

   /***** Eliminate user completely from platform *****/
   if (Acc_CheckIfICanEliminateAccount (Gbl.Usrs.Other.UsrDat.UsrCod))
     {
      Enr_PutActionRemUsrAcc (&OptionChecked,ItsMe);
      OptionsShown = true;
     }

   /***** End list of options *****/
   HTM_UL_End ();

   return OptionsShown;
  }

/*****************************************************************************/
/**************** Put action to modify user in current course ****************/
/*****************************************************************************/

static void Enr_PutActionModifyOneUsr (bool *OptionChecked,
                                       bool UsrBelongsToCrs,bool ItsMe)
  {
   extern const char *Txt_Modify_me_in_the_course_X;
   extern const char *Txt_Modify_user_in_the_course_X;
   extern const char *Txt_Register_me_in_X;
   extern const char *Txt_Register_USER_in_the_course_X;

   Enr_StartRegRemOneUsrAction (Enr_REGISTER_MODIFY_ONE_USR_IN_CRS,OptionChecked);
   HTM_TxtF (UsrBelongsToCrs ? (ItsMe ? Txt_Modify_me_in_the_course_X :
				        Txt_Modify_user_in_the_course_X) :
			       (ItsMe ? Txt_Register_me_in_X :
				        Txt_Register_USER_in_the_course_X),
	     Gbl.Hierarchy.Crs.ShrtName);
   Enr_EndRegRemOneUsrAction ();
  }

/*****************************************************************************/
/**************** Put action to register user as degree admin ****************/
/*****************************************************************************/

static void Enr_PutActionRegOneDegAdm (bool *OptionChecked)
  {
   extern const char *Txt_Register_USER_as_an_administrator_of_the_degree_X;

   Enr_StartRegRemOneUsrAction (Enr_REGISTER_ONE_DEGREE_ADMIN,OptionChecked);
   HTM_TxtF (Txt_Register_USER_as_an_administrator_of_the_degree_X,
	     Gbl.Hierarchy.Deg.ShrtName);
   Enr_EndRegRemOneUsrAction ();
  }

/*****************************************************************************/
/**************** Put action to register user as center admin ****************/
/*****************************************************************************/

static void Enr_PutActionRegOneCtrAdm (bool *OptionChecked)
  {
   extern const char *Txt_Register_USER_as_an_administrator_of_the_center_X;

   Enr_StartRegRemOneUsrAction (Enr_REGISTER_ONE_CENTER_ADMIN,OptionChecked);
   HTM_TxtF (Txt_Register_USER_as_an_administrator_of_the_center_X,
	     Gbl.Hierarchy.Ctr.ShrtName);
   Enr_EndRegRemOneUsrAction ();
  }

/*****************************************************************************/
/************* Put action to register user as institution admin **************/
/*****************************************************************************/

static void Enr_PutActionRegOneInsAdm (bool *OptionChecked)
  {
   extern const char *Txt_Register_USER_as_an_administrator_of_the_institution_X;

   Enr_StartRegRemOneUsrAction (Enr_REGISTER_ONE_INSTITUTION_ADMIN,OptionChecked);
   HTM_TxtF (Txt_Register_USER_as_an_administrator_of_the_institution_X,
	     Gbl.Hierarchy.Ins.ShrtName);
   Enr_EndRegRemOneUsrAction ();
  }

/*****************************************************************************/
/****************** Put action to report user as duplicate *******************/
/*****************************************************************************/

static void Enr_PutActionRepUsrAsDup (bool *OptionChecked)
  {
   extern const char *Txt_Report_possible_duplicate_user;

   Enr_StartRegRemOneUsrAction (Enr_REPORT_USR_AS_POSSIBLE_DUPLICATE,OptionChecked);
   HTM_Txt (Txt_Report_possible_duplicate_user);
   Enr_EndRegRemOneUsrAction ();
  }

/*****************************************************************************/
/****************** Put action to remove user from course ********************/
/*****************************************************************************/

static void Enr_PutActionRemUsrFromCrs (bool *OptionChecked,bool ItsMe)
  {
   extern const char *Txt_Remove_me_from_THE_COURSE_X;
   extern const char *Txt_Remove_USER_from_THE_COURSE_X;

   Enr_StartRegRemOneUsrAction (Enr_REMOVE_ONE_USR_FROM_CRS,OptionChecked);
   HTM_TxtF (ItsMe ? Txt_Remove_me_from_THE_COURSE_X :
		     Txt_Remove_USER_from_THE_COURSE_X,
	     Gbl.Hierarchy.Crs.ShrtName);
   Enr_EndRegRemOneUsrAction ();
  }

/*****************************************************************************/
/***************** Put action to remove user as degree admin *****************/
/*****************************************************************************/

static void Enr_PutActionRemUsrAsDegAdm (bool *OptionChecked,bool ItsMe)
  {
   extern const char *Txt_Remove_me_as_an_administrator_of_the_degree_X;
   extern const char *Txt_Remove_USER_as_an_administrator_of_the_degree_X;

   Enr_StartRegRemOneUsrAction (Enr_REMOVE_ONE_DEGREE_ADMIN,OptionChecked);
   HTM_TxtF (ItsMe ? Txt_Remove_me_as_an_administrator_of_the_degree_X :
		     Txt_Remove_USER_as_an_administrator_of_the_degree_X,
	     Gbl.Hierarchy.Deg.ShrtName);
   Enr_EndRegRemOneUsrAction ();
  }

/*****************************************************************************/
/***************** Put action to remove user as center admin *****************/
/*****************************************************************************/

static void Enr_PutActionRemUsrAsCtrAdm (bool *OptionChecked,bool ItsMe)
  {
   extern const char *Txt_Remove_me_as_an_administrator_of_the_center_X;
   extern const char *Txt_Remove_USER_as_an_administrator_of_the_center_X;

   Enr_StartRegRemOneUsrAction (Enr_REMOVE_ONE_CENTER_ADMIN,OptionChecked);
   HTM_TxtF (ItsMe ? Txt_Remove_me_as_an_administrator_of_the_center_X :
		     Txt_Remove_USER_as_an_administrator_of_the_center_X,
	     Gbl.Hierarchy.Ctr.ShrtName);
   Enr_EndRegRemOneUsrAction ();
  }

/*****************************************************************************/
/************** Put action to remove user as institution admin ***************/
/*****************************************************************************/

static void Enr_PutActionRemUsrAsInsAdm (bool *OptionChecked,bool ItsMe)
  {
   extern const char *Txt_Remove_me_as_an_administrator_of_the_institution_X;
   extern const char *Txt_Remove_USER_as_an_administrator_of_the_institution_X;

   Enr_StartRegRemOneUsrAction (Enr_REMOVE_ONE_INSTITUTION_ADMIN,OptionChecked);
   HTM_TxtF (ItsMe ? Txt_Remove_me_as_an_administrator_of_the_institution_X :
		     Txt_Remove_USER_as_an_administrator_of_the_institution_X,
	     Gbl.Hierarchy.Ins.ShrtName);
   Enr_EndRegRemOneUsrAction ();
  }

/*****************************************************************************/
/********************* Put action to remove user account *********************/
/*****************************************************************************/

static void Enr_PutActionRemUsrAcc (bool *OptionChecked,bool ItsMe)
  {
   extern const char *Txt_Eliminate_my_user_account;
   extern const char *Txt_Eliminate_user_account;

   Enr_StartRegRemOneUsrAction (Enr_ELIMINATE_ONE_USR_FROM_PLATFORM,OptionChecked);
   HTM_Txt (ItsMe ? Txt_Eliminate_my_user_account :
		    Txt_Eliminate_user_account);
   Enr_EndRegRemOneUsrAction ();
  }

/*****************************************************************************/
/************ Put start/end of action to register/remove one user ************/
/*****************************************************************************/

static void Enr_StartRegRemOneUsrAction (Enr_RegRemOneUsrAction_t RegRemOneUsrAction,
                                         bool *OptionChecked)
  {
   HTM_LI_Begin (NULL);
   HTM_LABEL_Begin (NULL);
   HTM_INPUT_RADIO ("RegRemAction",false,
		    "value=\"%u\"%s",
	            (unsigned) RegRemOneUsrAction,
		    *OptionChecked ? "" : " checked=\"checked\"");
   if (!*OptionChecked)
      *OptionChecked = true;
  }

static void Enr_EndRegRemOneUsrAction (void)
  {
   HTM_LABEL_End ();
   HTM_LI_End ();
  }

/*****************************************************************************/
/********************** Register a user using his/her ID *********************/
/*****************************************************************************/
// If user does not exists, UsrDat->IDs must hold the user's ID

static void Enr_RegisterUsr (struct UsrData *UsrDat,Rol_Role_t RegRemRole,
                             struct ListCodGrps *LstGrps,unsigned *NumUsrsRegistered)
  {
   /***** Check if I can register this user *****/
   if (Gbl.Usrs.Me.Role.Logged == Rol_TCH &&
       RegRemRole != Rol_STD)
      Err_ShowErrorAndExit ("A teacher only can register several users as students.");

   /***** Check if the record of the user exists and get the type of user *****/
   if (UsrDat->UsrCod > 0)	// User exists in database
      /* Get user's data */
      Usr_GetAllUsrDataFromUsrCod (UsrDat,
                                   Usr_DONT_GET_PREFS,
                                   Usr_GET_ROLE_IN_CURRENT_CRS);
   else				// User does not exist in database, create it using his/her ID!
     {
      /* Reset user's data */
      Usr_ResetUsrDataExceptUsrCodAndIDs (UsrDat);	// It's necessary, because the same struct UsrDat was used for former user

      /* User does not exist in database; list of IDs is initialized */
      UsrDat->IDs.List[0].Confirmed = true;	// If he/she is a new user ==> his/her ID will be stored as confirmed in database
      Acc_CreateNewUsr (UsrDat,
                        false);	// I am NOT creating my own account
     }

   /***** Register user in current course in database *****/
   if (Gbl.Hierarchy.Level == Hie_Lvl_CRS)	// Course selected
     {
      if (Usr_CheckIfUsrBelongsToCurrentCrs (UsrDat))
	{
	 if (RegRemRole != UsrDat->Roles.InCurrentCrs)	// The role must be updated
	    /* Modify role */
	    Enr_ModifyRoleInCurrentCrs (UsrDat,RegRemRole);
	}
      else        // User does not belong to this course
	 /* Register user */
	 Enr_RegisterUsrInCurrentCrs (UsrDat,RegRemRole,
	                              Enr_SET_ACCEPTED_TO_FALSE);

      /***** Register user in the selected groups *****/
      if (Gbl.Crs.Grps.NumGrps)	// If there are groups in the course
	 Grp_RegisterUsrIntoGroups (UsrDat,LstGrps);
     }

   (*NumUsrsRegistered)++;
  }

/*****************************************************************************/
/**** Put a link (form) to remove all the students in the current course *****/
/*****************************************************************************/

static void Enr_PutLinkToRemAllStdsThisCrs (void)
  {
   extern const char *Txt_Remove_all_students;

   /***** Put form to remove all the students in the current course *****/
   Lay_PutContextualLinkIconText (ActReqRemAllStdCrs,NULL,
                                  NULL,NULL,
				  "trash.svg",
				  Txt_Remove_all_students);
  }

/*****************************************************************************/
/********** Ask for removing all the students from current course ************/
/*****************************************************************************/

void Enr_AskRemAllStdsThisCrs (void)
  {
   extern const char *Hlp_USERS_Administration_remove_all_students;
   extern const char *Txt_Remove_all_students;
   extern const char *Txt_Do_you_really_want_to_remove_the_X_students_from_the_course_Y_;
   unsigned NumStds = Usr_GetNumUsrsInCrss (Hie_Lvl_CRS,Gbl.Hierarchy.Crs.CrsCod,
				            1 << Rol_STD);	// This course has students

   /***** Begin box *****/
   Box_BoxBegin (NULL,Txt_Remove_all_students,
                 NULL,NULL,
                 Hlp_USERS_Administration_remove_all_students,Box_NOT_CLOSABLE);

   if (NumStds)
     {
      /***** Show question and button to remove students *****/
      /* Begin alert */
      Ale_ShowAlertAndButton1 (Ale_QUESTION,Txt_Do_you_really_want_to_remove_the_X_students_from_the_course_Y_,
                               NumStds,
                               Gbl.Hierarchy.Crs.FullName);

      /* Show form to request confirmation */
      Frm_BeginForm (ActRemAllStdCrs);
      Grp_PutParamAllGroups ();
      Pwd_AskForConfirmationOnDangerousAction ();
      Btn_PutRemoveButton (Txt_Remove_all_students);
      Frm_EndForm ();

      /* End alert */
      Ale_ShowAlertAndButton2 (ActUnk,NULL,NULL,
                               NULL,NULL,
                               Btn_NO_BUTTON,NULL);
     }
   else	// Gbl.Hierarchy.Crs.NumUsrs[Rol_STD] == 0
      /***** Show warning indicating no students found *****/
      Usr_ShowWarningNoUsersFound (Rol_STD);

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

/*****************************************************************************/
/***************** Remove all the students from current course ***************/
/*****************************************************************************/

void Enr_RemAllStdsThisCrs (void)
  {
   extern const char *Txt_The_X_students_who_belonged_to_the_course_Y_have_been_removed_from_it;
   unsigned NumStdsInCrs;

   if (Pwd_GetConfirmationOnDangerousAction ())
     {
      if ((NumStdsInCrs = Enr_RemAllStdsInCrs (&Gbl.Hierarchy.Crs)))
	 Ale_ShowAlert (Ale_SUCCESS,Txt_The_X_students_who_belonged_to_the_course_Y_have_been_removed_from_it,
		        NumStdsInCrs,Gbl.Hierarchy.Crs.FullName);
      else	// NumStdsInCrs == 0
	 /***** Show warning indicating no students found *****/
	 Usr_ShowWarningNoUsersFound (Rol_STD);
     }
  }

/*****************************************************************************/
/***************** Remove all the students from a given course ***************/
/*****************************************************************************/
// Returns the numbers of students in the course before deletion

unsigned Enr_RemAllStdsInCrs (struct Crs_Course *Crs)
  {
   unsigned NumStdsInCrs;
   unsigned NumUsr;

   /***** Get list of students in current course *****/
   Gbl.Usrs.ClassPhoto.AllGroups = true;        // Get all the students of the current course
   Usr_GetListUsrs (Hie_Lvl_CRS,Rol_STD);
   NumStdsInCrs = Gbl.Usrs.LstUsrs[Rol_STD].NumUsrs;

   /***** Remove all the students *****/
   for (NumUsr = 0;
	NumUsr < NumStdsInCrs;
	NumUsr++)
     {
      Gbl.Usrs.Other.UsrDat.UsrCod = Gbl.Usrs.LstUsrs[Rol_STD].Lst[NumUsr].UsrCod;
      Enr_EffectivelyRemUsrFromCrs (&Gbl.Usrs.Other.UsrDat,Crs,
				    Enr_REMOVE_USR_PRODUCTION,
				    Cns_QUIET);
     }

   /***** Free memory for students list *****/
   Usr_FreeUsrsList (Rol_STD);

   return NumStdsInCrs;
  }

/*****************************************************************************/
/************* Form to request sign up in the current course *****************/
/*****************************************************************************/

void Enr_ReqSignUpInCrs (void)
  {
   extern const char *Txt_You_were_already_enroled_as_X_in_the_course_Y;
   extern const char *Txt_ROLES_SINGUL_abc[Rol_NUM_ROLES][Usr_NUM_SEXS];

   /***** Check if I already belong to course *****/
   if (Gbl.Usrs.Me.UsrDat.Roles.InCurrentCrs >= Rol_STD)
      Ale_ShowAlert (Ale_WARNING,Txt_You_were_already_enroled_as_X_in_the_course_Y,
                     Txt_ROLES_SINGUL_abc[Gbl.Usrs.Me.UsrDat.Roles.InCurrentCrs][Gbl.Usrs.Me.UsrDat.Sex],
                     Gbl.Hierarchy.Crs.FullName);
   else if (Gbl.Usrs.Me.Role.Logged == Rol_GST ||
	    Gbl.Usrs.Me.Role.Logged == Rol_USR)
      /***** Show form to modify only the user's role or the user's data *****/
      Rec_ShowFormSignUpInCrsWithMySharedRecord ();
   else
      Err_ShowErrorAndExit ("You must be logged to sign up in a course.");        // This never should happen
  }

/*****************************************************************************/
/*********************** Sign up in the current course ***********************/
/*****************************************************************************/

void Enr_SignUpInCrs (void)
  {
   extern const char *Txt_You_were_already_enroled_as_X_in_the_course_Y;
   extern const char *Txt_ROLES_SINGUL_abc[Rol_NUM_ROLES][Usr_NUM_SEXS];
   extern const char *Txt_Your_request_for_enrolment_as_X_in_the_course_Y_has_been_accepted_for_processing;
   Rol_Role_t RoleFromForm;
   bool Notify;
   long ReqCod = -1L;

   /***** Check if I already belong to course *****/
   if (Gbl.Usrs.Me.UsrDat.Roles.InCurrentCrs >= Rol_STD)
      Ale_ShowAlert (Ale_WARNING,Txt_You_were_already_enroled_as_X_in_the_course_Y,
                     Txt_ROLES_SINGUL_abc[Gbl.Usrs.Me.UsrDat.Roles.InCurrentCrs][Gbl.Usrs.Me.UsrDat.Sex],
                     Gbl.Hierarchy.Crs.FullName);
   else
     {
      /***** Get new role from record form *****/
      RoleFromForm = (Rol_Role_t)
	             Par_GetParToUnsignedLong ("Role",
                                               0,
                                               Rol_NUM_ROLES - 1,
                                               (unsigned long) Rol_UNK);

      /* Check if role is correct */
      if (!(RoleFromForm == Rol_STD ||
	    RoleFromForm == Rol_NET ||
            RoleFromForm == Rol_TCH))
         Err_WrongRoleExit ();

      /***** Try to get and old request of the same user in the same course from database *****/
      ReqCod = DB_QuerySELECTCode ("can not get enrolment request",
				   "SELECT ReqCod"
				    " FROM crs_requests"
				   " WHERE CrsCod=%ld"
				     " AND UsrCod=%ld",
				   Gbl.Hierarchy.Crs.CrsCod,
				   Gbl.Usrs.Me.UsrDat.UsrCod);

      /***** Request user in current course in database *****/
      if (ReqCod > 0)        // Old request exists in database
         DB_QueryUPDATE ("can not update enrolment request",
			 "UPDATE crs_requests"
			   " SET Role=%u,"
			        "RequestTime=NOW()"
			 " WHERE ReqCod=%ld"
			   " AND CrsCod=%ld"
			   " AND UsrCod=%ld",
		         (unsigned) RoleFromForm,
		         ReqCod,
		         Gbl.Hierarchy.Crs.CrsCod,
		         Gbl.Usrs.Me.UsrDat.UsrCod);
      else                // No request in database for this user in this course
         ReqCod =
         DB_QueryINSERTandReturnCode ("can not save enrolment request",
				      "INSERT INTO crs_requests"
				      " (CrsCod,UsrCod,Role,RequestTime)"
				      " VALUES"
				      " (%ld,%ld,%u,NOW())",
				      Gbl.Hierarchy.Crs.CrsCod,
				      Gbl.Usrs.Me.UsrDat.UsrCod,
				      (unsigned) RoleFromForm);

      /***** Show confirmation message *****/
      Ale_ShowAlert (Ale_SUCCESS,Txt_Your_request_for_enrolment_as_X_in_the_course_Y_has_been_accepted_for_processing,
                     Txt_ROLES_SINGUL_abc[RoleFromForm][Gbl.Usrs.Me.UsrDat.Sex],
                     Gbl.Hierarchy.Crs.FullName);

      /***** Notify teachers or admins by email about the new enrolment request *****/
      // If I want to be a teacher ==> send notification to other teachers, administrators or superusers
      // If this course has teachers ==> send notification to teachers
      if (RoleFromForm == Rol_TCH)
         Notify = true;
      else
	 Notify = (Usr_GetNumUsrsInCrss (Hie_Lvl_CRS,Gbl.Hierarchy.Crs.CrsCod,
				         1 << Rol_TCH) != 0);	// This course has teachers
      if (Notify)
         Ntf_StoreNotifyEventsToAllUsrs (Ntf_EVENT_ENROLMENT_REQUEST,ReqCod);
     }
  }

/*****************************************************************************/
/************** Put an enrolment request into a notification *****************/
/*****************************************************************************/

void Enr_GetNotifEnrolmentRequest (char SummaryStr[Ntf_MAX_BYTES_SUMMARY + 1],
                                   char **ContentStr,
                                   long ReqCod,bool GetContent)
  {
   extern const char *Txt_ROLES_SINGUL_Abc[Rol_NUM_ROLES][Usr_NUM_SEXS];
   MYSQL_RES *mysql_res;
   MYSQL_ROW row;
   struct UsrData UsrDat;
   Rol_Role_t DesiredRole;

   SummaryStr[0] = '\0';        // Return nothing on error

   /***** Get user and requested role from database *****/
   if (DB_QuerySELECT (&mysql_res,"can not get enrolment request",
		       "SELECT UsrCod,"		// row[0]
		              "Role"		// row[1]
		        " FROM crs_requests"
		       " WHERE ReqCod=%ld",
		       ReqCod) == 1)	// Result should have a unique row
     {
      /***** Get user and requested role *****/
      row = mysql_fetch_row (mysql_res);

      /* Initialize structure with user's data */
      Usr_UsrDataConstructor (&UsrDat);

      /* User's code (row[0]) */
      UsrDat.UsrCod = Str_ConvertStrCodToLongCod (row[0]);
      Usr_ChkUsrCodAndGetAllUsrDataFromUsrCod (&UsrDat,
                                               Usr_DONT_GET_PREFS,
                                               Usr_DONT_GET_ROLE_IN_CURRENT_CRS);

      /* Role (row[1]) */
      DesiredRole = Rol_ConvertUnsignedStrToRole (row[1]);
      Str_Copy (SummaryStr,Txt_ROLES_SINGUL_Abc[DesiredRole][UsrDat.Sex],
		Ntf_MAX_BYTES_SUMMARY);

      if (GetContent)
	 /* Write desired role into content */
	 if (asprintf (ContentStr,
		       "%s",	// TODO: Write more info in this content
		       Txt_ROLES_SINGUL_Abc[DesiredRole][UsrDat.Sex]) < 0)
	    Err_NotEnoughMemoryExit ();

      /* Free memory used for user's data */
      Usr_UsrDataDestructor (&UsrDat);
     }

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

/*****************************************************************************/
/******* Ask if reject the request for enrolment of a user in a course *******/
/*****************************************************************************/

void Enr_AskIfRejectSignUp (void)
  {
   extern const char *Txt_THE_USER_X_is_already_enroled_in_the_course_Y;
   extern const char *Txt_Do_you_really_want_to_reject_the_enrolment_request_;
   extern const char *Txt_ROLES_SINGUL_abc[Rol_NUM_ROLES][Usr_NUM_SEXS];
   extern const char *Txt_Reject;

   Rol_Role_t Role;

   /***** Get user's code *****/
   Usr_GetParamOtherUsrCodEncryptedAndGetListIDs ();

   if (Usr_ChkUsrCodAndGetAllUsrDataFromUsrCod (&Gbl.Usrs.Other.UsrDat,
                                                Usr_DONT_GET_PREFS,
                                                Usr_DONT_GET_ROLE_IN_CURRENT_CRS))
     {
      // User's data exist...
      if (Usr_CheckIfUsrBelongsToCurrentCrs (&Gbl.Usrs.Other.UsrDat))
        {
         /* User already belongs to this course */
         Ale_ShowAlert (Ale_WARNING,Txt_THE_USER_X_is_already_enroled_in_the_course_Y,
                        Gbl.Usrs.Other.UsrDat.FullName,Gbl.Hierarchy.Crs.FullName);
         Rec_ShowSharedRecordUnmodifiable (&Gbl.Usrs.Other.UsrDat);

         /* Remove inscription request because it has not sense */
         Enr_RemoveEnrolmentRequest (Gbl.Hierarchy.Crs.CrsCod,Gbl.Usrs.Other.UsrDat.UsrCod);
        }
      else        // User does not belong to this course
        {
         Role = Rol_GetRequestedRole (Gbl.Usrs.Other.UsrDat.UsrCod);
         if (Role == Rol_STD ||
             Role == Rol_NET ||
             Role == Rol_TCH)
           {
	    /***** Show question and button to reject user's enrolment request *****/
	    /* Begin alert */
	    Ale_ShowAlertAndButton1 (Ale_QUESTION,Txt_Do_you_really_want_to_reject_the_enrolment_request_,
				     Gbl.Usrs.Other.UsrDat.FullName,
				     Txt_ROLES_SINGUL_abc[Role][Gbl.Usrs.Other.UsrDat.Sex],
				     Gbl.Hierarchy.Crs.FullName);

	    /* Show user's record */
            Rec_ShowSharedRecordUnmodifiable (&Gbl.Usrs.Other.UsrDat);

	    /* End alert */
	    Ale_ShowAlertAndButton2 (ActRejSignUp,NULL,NULL,
	                             Usr_PutParamOtherUsrCodEncrypted,Gbl.Usrs.Other.UsrDat.EnUsrCod,
				     Btn_REMOVE_BUTTON,Txt_Reject);
           }
         else
            Err_WrongRoleExit ();
        }
     }
   else
      Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
  }

/*****************************************************************************/
/********* Reject the request for enrolment of a user in a course ***********/
/*****************************************************************************/

void Enr_RejectSignUp (void)
  {
   extern const char *Txt_THE_USER_X_is_already_enroled_in_the_course_Y;
   extern const char *Txt_Enrolment_of_X_rejected;

   /***** Get user's code *****/
   Usr_GetParamOtherUsrCodEncryptedAndGetListIDs ();

   if (Usr_ChkUsrCodAndGetAllUsrDataFromUsrCod (&Gbl.Usrs.Other.UsrDat,
                                                Usr_DONT_GET_PREFS,
                                                Usr_DONT_GET_ROLE_IN_CURRENT_CRS))
     {
      // User's data exist...
      if (Usr_CheckIfUsrBelongsToCurrentCrs (&Gbl.Usrs.Other.UsrDat))
        {
         /* User already belongs to this course */
         Ale_ShowAlert (Ale_WARNING,Txt_THE_USER_X_is_already_enroled_in_the_course_Y,
                        Gbl.Usrs.Other.UsrDat.FullName,Gbl.Hierarchy.Crs.FullName);
         Rec_ShowSharedRecordUnmodifiable (&Gbl.Usrs.Other.UsrDat);
        }

      /* Remove inscription request */
      Enr_RemoveEnrolmentRequest (Gbl.Hierarchy.Crs.CrsCod,Gbl.Usrs.Other.UsrDat.UsrCod);

      /* Confirmation message */
      Ale_ShowAlert (Ale_SUCCESS,Txt_Enrolment_of_X_rejected,
                     Gbl.Usrs.Other.UsrDat.FullName);
     }
   else
      Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();

   /* Show again the rest of registrarion requests */
   Enr_ShowEnrolmentRequests ();
  }

/*****************************************************************************/
/******** Show pending requests for enrolment in the current course *********/
/*****************************************************************************/

void Enr_ShowEnrolmentRequests (void)
  {
   /***** Show enrolment request (default roles depend on my logged role) *****/
   switch (Gbl.Usrs.Me.Role.Logged)
     {
      case Rol_TCH:
	 Enr_ShowEnrolmentRequestsGivenRoles ((1 << Rol_STD) |
	                                      (1 << Rol_NET) |
			                      (1 << Rol_TCH));
	 break;
      case Rol_DEG_ADM:
      case Rol_CTR_ADM:
      case Rol_INS_ADM:
      case Rol_SYS_ADM:
	 Enr_ShowEnrolmentRequestsGivenRoles ((1 << Rol_NET) |
			                      (1 << Rol_TCH));
	 break;
      default:
	 Err_NoPermissionExit ();
	 break;
     }
  }

/*****************************************************************************/
/******* Update pending requests for enrolment in the current course ********/
/*****************************************************************************/

void Enr_UpdateEnrolmentRequests (void)
  {
   unsigned RolesSelected;

   /***** Get selected roles *****/
   RolesSelected = Rol_GetSelectedRoles ();

   /***** Update enrolment requests *****/
   Enr_ShowEnrolmentRequestsGivenRoles (RolesSelected);
  }

/*****************************************************************************/
/************* Show pending requests for enrolment given roles **************/
/*****************************************************************************/

static void Enr_ShowEnrolmentRequestsGivenRoles (unsigned RolesSelected)
  {
   extern const char *Hlp_USERS_Requests;
   extern const char *The_ClassFormInBox[The_NUM_THEMES];
   extern const char *Txt_Enrolment_requests;
   extern const char *Txt_Scope;
   extern const char *Txt_Users;
   extern const char *Txt_Course;
   extern const char *Txt_ROLES_PLURAL_BRIEF_Abc[Rol_NUM_ROLES];
   extern const char *Txt_Requester;
   extern const char *Txt_Role;
   extern const char *Txt_Date;
   extern const char *Txt_ROLES_SINGUL_abc[Rol_NUM_ROLES][Usr_NUM_SEXS];
   extern const char *Txt_Register;
   extern const char *Txt_Reject;
   extern const char *Txt_No_enrolment_requests;
   MYSQL_RES *mysql_res;
   MYSQL_ROW row;
   unsigned NumReqs = 0;	// Initialized to avoid warning
   unsigned NumReq;
   long ReqCod;
   struct Deg_Degree Deg;
   struct Crs_Course Crs;
   struct UsrData UsrDat;
   bool UsrExists;
   bool UsrBelongsToCrs;
   Rol_Role_t DesiredRole;
   Act_Action_t NextAction;

   /***** Remove expired enrolment requests *****/
   Enr_RemoveExpiredEnrolmentRequests ();

   /***** Get scope *****/
   Gbl.Scope.Allowed = 1 << Hie_Lvl_SYS |
	               1 << Hie_Lvl_CTY |
                       1 << Hie_Lvl_INS |
                       1 << Hie_Lvl_CTR |
                       1 << Hie_Lvl_DEG |
                       1 << Hie_Lvl_CRS;
   Gbl.Scope.Default = Hie_Lvl_CRS;
   Sco_GetScope ("ScopeEnr");

   /***** Begin box *****/
   Box_BoxBegin (NULL,Txt_Enrolment_requests,
                 NULL,NULL,
                 Hlp_USERS_Requests,Box_NOT_CLOSABLE);

   /***** Selection of scope and roles *****/
   /* Begin form and table */
   Frm_BeginForm (ActUpdSignUpReq);
   HTM_TABLE_BeginWideMarginPadding (2);

   /* Scope (whole platform, current center, current degree or current course) */
   HTM_TR_Begin (NULL);

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

   /* Data */
   HTM_TD_Begin ("class=\"LM\"");
   Sco_PutSelectorScope ("ScopeEnr",HTM_SUBMIT_ON_CHANGE);
   HTM_TD_End ();

   HTM_TR_End ();

   /* Users' roles in listing */
   HTM_TR_Begin (NULL);

   Frm_LabelColumn ("RT","Role",Txt_Users);

   HTM_TD_Begin ("class=\"DAT LT\"");
   Rol_WriteSelectorRoles (1 << Rol_STD |
                           1 << Rol_NET |
                           1 << Rol_TCH,
                           RolesSelected,
                           false,true);
   HTM_TD_End ();

   HTM_TR_End ();

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

   /***** Build query *****/
   switch (Gbl.Scope.Current)
     {
      case Hie_Lvl_SYS:                // Show requesters for the whole platform
         switch (Gbl.Usrs.Me.Role.Logged)
           {
            case Rol_TCH:
               // Requests in all courses in which I am teacher
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM crs_users,"
			              "crs_requests"
			       " WHERE crs_users.UsrCod=%ld"
			         " AND crs_users.Role=%u"
			         " AND crs_users.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,
			       (unsigned) Rol_TCH,
			       RolesSelected);
               break;
            case Rol_DEG_ADM:
               // Requests in all degrees administrated by me
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM usr_admins,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE usr_admins.UsrCod=%ld"
			         " AND usr_admins.Scope='%s'"
			         " AND usr_admins.Cod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,Sco_GetDBStrFromScope (Hie_Lvl_DEG),
			       RolesSelected);
               break;
            case Rol_CTR_ADM:
               // Requests in all centers administrated by me
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM usr_admins,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE usr_admins.UsrCod=%ld"
			         " AND usr_admins.Scope='%s'"
			         " AND usr_admins.Cod=deg_degrees.CtrCod"
			         " AND deg_degrees.DegCod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,Sco_GetDBStrFromScope (Hie_Lvl_CTR),
			       RolesSelected);
               break;
            case Rol_INS_ADM:
               // Requests in all institutions administrated by me
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM usr_admins,"
			              "ctr_centers,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE usr_admins.UsrCod=%ld"
			         " AND usr_admins.Scope='%s'"
			         " AND usr_admins.Cod=ctr_centers.InsCod"
			         " AND ctr_centers.CtrCod=deg_degrees.CtrCod"
			         " AND deg_degrees.DegCod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,Sco_GetDBStrFromScope (Hie_Lvl_INS),
			       RolesSelected);
               break;
           case Rol_SYS_ADM:
               // All requests
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT ReqCod,"				// row[0]
			              "CrsCod,"				// row[1]
			              "UsrCod,"				// row[2]
			              "Role,"				// row[3]
			              "UNIX_TIMESTAMP(RequestTime)"	// row[4]
			        " FROM crs_requests"
			       " WHERE ((1<<Role)&%u)<>0"
			       " ORDER BY RequestTime DESC",
			       RolesSelected);
               break;
            default:
               Err_NoPermissionExit ();
               break;
           }
         break;
      case Hie_Lvl_CTY:                // Show requesters for the current country
         switch (Gbl.Usrs.Me.Role.Logged)
           {
            case Rol_TCH:
               // Requests in courses of this country in which I am teacher
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// roe[4]
			        " FROM crs_users,"
			              "ins_instits,"
			              "ctr_centers,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE crs_users.UsrCod=%ld"
			         " AND crs_users.Role=%u"
			         " AND crs_users.CrsCod=crs_courses.CrsCod"
			         " AND crs_courses.DegCod=deg_degrees.DegCod"
			         " AND deg_degrees.CtrCod=ctr_centers.CtrCod"
			         " AND ctr_centers.InsCod=ins_instits.InsCod"
			         " AND ins_instits.CtyCod=%ld"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,
			       (unsigned) Rol_TCH,
			       Gbl.Hierarchy.Cty.CtyCod,
			       RolesSelected);
               break;
            case Rol_DEG_ADM:
               // Requests in degrees of this country administrated by me
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM usr_admins,"
			              "ins_instits,"
			              "ctr_centers,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE usr_admins.UsrCod=%ld"
			         " AND usr_admins.Scope='%s'"
			         " AND usr_admins.Cod=deg_degrees.DegCod"
			         " AND deg_degrees.CtrCod=ctr_centers.CtrCod"
			         " AND ctr_centers.InsCod=ins_instits.InsCod"
			         " AND ins_instits.CtyCod=%ld"
			         " AND deg_degrees.DegCod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,
			       Sco_GetDBStrFromScope (Hie_Lvl_DEG),
			       Gbl.Hierarchy.Cty.CtyCod,
			       RolesSelected);
               break;
            case Rol_CTR_ADM:
               // Requests in centers of this country administrated by me
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM usr_admins,"
			              "ins_instits,"
			              "ctr_centers,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE usr_admins.UsrCod=%ld"
			         " AND usr_admins.Scope='%s'"
			         " AND usr_admins.Cod=ctr_centers.CtrCod"
			         " AND ctr_centers.InsCod=ins_instits.InsCod"
			         " AND ins_instits.CtyCod=%ld"
			         " AND ctr_centers.CtrCod=deg_degrees.CtrCod"
			         " AND deg_degrees.DegCod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,
			       Sco_GetDBStrFromScope (Hie_Lvl_CTR),
			       Gbl.Hierarchy.Cty.CtyCod,
			       RolesSelected);
               break;
            case Rol_INS_ADM:
               // Requests in institutions of this country administrated by me
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM usr_admins,"
			              "ins_instits,"
			              "ctr_centers,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE usr_admins.UsrCod=%ld"
			         " AND usr_admins.Scope='%s'"
			         " AND usr_admins.Cod=ins_instits.InsCod"
			         " AND ins_instits.CtyCod=%ld"
			         " AND ins_instits.InsCod=ctr_centers.InsCod"
			         " AND ctr_centers.CtrCod=deg_degrees.CtrCod"
			         " AND deg_degrees.DegCod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,
			       Sco_GetDBStrFromScope (Hie_Lvl_INS),
			       Gbl.Hierarchy.Cty.CtyCod,
			       RolesSelected);
               break;
            case Rol_SYS_ADM:
               // Requests in any course of this country
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM ins_instits,"
			              "ctr_centers,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE ins_instits.CtyCod=%ld"
			         " AND ins_instits.InsCod=ctr_centers.InsCod"
			         " AND ctr_centers.CtrCod=deg_degrees.CtrCod"
			         " AND deg_degrees.DegCod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Hierarchy.Cty.CtyCod,
			       RolesSelected);
               break;
            default:
               Err_NoPermissionExit ();
               break;
           }
         break;
      case Hie_Lvl_INS:                // Show requesters for the current institution
         switch (Gbl.Usrs.Me.Role.Logged)
           {
            case Rol_TCH:
               // Requests in courses of this institution in which I am teacher
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM crs_users,"
			              "ctr_centers,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE crs_users.UsrCod=%ld"
			         " AND crs_users.Role=%u"
			         " AND crs_users.CrsCod=crs_courses.CrsCod"
			         " AND crs_courses.DegCod=deg_degrees.DegCod"
			         " AND deg_degrees.CtrCod=ctr_centers.CtrCod"
			         " AND ctr_centers.InsCod=%ld"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,
			       (unsigned) Rol_TCH,
			       Gbl.Hierarchy.Ins.InsCod,
			       RolesSelected);
               break;
            case Rol_DEG_ADM:
               // Requests in degrees of this institution administrated by me
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM usr_admins,"
			              "ctr_centers,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE usr_admins.UsrCod=%ld"
			         " AND usr_admins.Scope='%s'"
			         " AND usr_admins.Cod=deg_degrees.DegCod"
			         " AND deg_degrees.CtrCod=ctr_centers.CtrCod"
			         " AND ctr_centers.InsCod=%ld"
			         " AND deg_degrees.DegCod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,
			       Sco_GetDBStrFromScope (Hie_Lvl_DEG),
			       Gbl.Hierarchy.Ins.InsCod,
			       RolesSelected);
               break;
            case Rol_CTR_ADM:
               // Requests in centers of this institution administrated by me
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM usr_admins,"
			              "ctr_centers,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE usr_admins.UsrCod=%ld"
			         " AND usr_admins.Scope='%s'"
			         " AND usr_admins.Cod=ctr_centers.CtrCod"
			         " AND ctr_centers.InsCod=%ld"
			         " AND ctr_centers.CtrCod=deg_degrees.CtrCod"
			         " AND deg_degrees.DegCod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,Sco_GetDBStrFromScope (Hie_Lvl_CTR),
			       Gbl.Hierarchy.Ins.InsCod,
			       RolesSelected);
               break;
            case Rol_INS_ADM:	// If I am logged as admin of this institution, I can view all the requesters from this institution
            case Rol_SYS_ADM:
               // Requests in any course of this institution
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM ctr_centers,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE ctr_centers.InsCod=%ld"
			         " AND ctr_centers.CtrCod=deg_degrees.CtrCod"
			         " AND deg_degrees.DegCod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Hierarchy.Ins.InsCod,
			       RolesSelected);
               break;
            default:
               Err_NoPermissionExit ();
               break;
           }
         break;
      case Hie_Lvl_CTR:                // Show requesters for the current center
         switch (Gbl.Usrs.Me.Role.Logged)
           {
            case Rol_TCH:
               // Requests in courses of this center in which I am teacher
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM crs_users,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE crs_users.UsrCod=%ld"
			         " AND crs_users.Role=%u"
			         " AND crs_users.CrsCod=crs_courses.CrsCod"
			         " AND crs_courses.DegCod=deg_degrees.DegCod"
			         " AND deg_degrees.CtrCod=%ld"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,
			       (unsigned) Rol_TCH,
			       Gbl.Hierarchy.Ctr.CtrCod,
			       RolesSelected);
               break;
            case Rol_DEG_ADM:
               // Requests in degrees of this center administrated by me
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM usr_admins,"
			              "deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE usr_admins.UsrCod=%ld"
			         " AND usr_admins.Scope='%s'"
			         " AND usr_admins.Cod=deg_degrees.DegCod"
			         " AND deg_degrees.CtrCod=%ld"
			         " AND deg_degrees.DegCod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,
			       Sco_GetDBStrFromScope (Hie_Lvl_DEG),
			       Gbl.Hierarchy.Ctr.CtrCod,
			       RolesSelected);
               break;
            case Rol_CTR_ADM:	// If I am logged as admin of this center     , I can view all the requesters from this center
            case Rol_INS_ADM:	// If I am logged as admin of this institution, I can view all the requesters from this center
            case Rol_SYS_ADM:
               // Request in any course of this center
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM deg_degrees,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE deg_degrees.CtrCod=%ld"
			         " AND deg_degrees.DegCod=crs_courses.DegCod"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Hierarchy.Ctr.CtrCod,
			       RolesSelected);
               break;
            default:
               Err_NoPermissionExit ();
               break;
           }
         break;
      case Hie_Lvl_DEG:        // Show requesters for the current degree
         switch (Gbl.Usrs.Me.Role.Logged)
           {
            case Rol_TCH:
               // Requests in courses of this degree in which I am teacher
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM crs_users,"
			              "crs_courses,"
			              "crs_requests"
			       " WHERE crs_users.UsrCod=%ld"
			         " AND crs_users.Role=%u"
			         " AND crs_users.CrsCod=crs_courses.CrsCod"
			         " AND crs_courses.DegCod=%ld"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Usrs.Me.UsrDat.UsrCod,
			       (unsigned) Rol_TCH,
			       Gbl.Hierarchy.Deg.DegCod,
			       RolesSelected);
               break;
            case Rol_DEG_ADM:	// If I am logged as admin of this degree     , I can view all the requesters from this degree
            case Rol_CTR_ADM:	// If I am logged as admin of this center     , I can view all the requesters from this degree
            case Rol_INS_ADM:	// If I am logged as admin of this institution, I can view all the requesters from this degree
            case Rol_SYS_ADM:
               // Requests in any course of this degree
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT crs_requests.ReqCod,"				// row[0]
			              "crs_requests.CrsCod,"				// row[1]
			              "crs_requests.UsrCod,"				// row[2]
			              "crs_requests.Role,"				// row[3]
			              "UNIX_TIMESTAMP(crs_requests.RequestTime)"	// row[4]
			        " FROM crs_courses,"
			              "crs_requests"
			       " WHERE crs_courses.DegCod=%ld"
			         " AND crs_courses.CrsCod=crs_requests.CrsCod"
			         " AND ((1<<crs_requests.Role)&%u)<>0"
			       " ORDER BY crs_requests.RequestTime DESC",
			       Gbl.Hierarchy.Deg.DegCod,
			       RolesSelected);
               break;
            default:
               Err_NoPermissionExit ();
               break;
           }
         break;
      case Hie_Lvl_CRS:        // Show requesters for the current course
         switch (Gbl.Usrs.Me.Role.Logged)
           {
            case Rol_TCH:	// If I am logged as teacher of this course   , I can view all the requesters from this course
            case Rol_DEG_ADM:	// If I am logged as admin of this degree     , I can view all the requesters from this course
            case Rol_CTR_ADM:	// If I am logged as admin of this center     , I can view all the requesters from this course
            case Rol_INS_ADM:	// If I am logged as admin of this institution, I can view all the requesters from this course
            case Rol_SYS_ADM:
               // Requests in this course
               NumReqs = (unsigned)
               DB_QuerySELECT (&mysql_res,"can not get requests for enrolment",
			       "SELECT ReqCod,"				// row[0]
			              "CrsCod,"				// row[1]
			              "UsrCod,"				// row[2]
			              "Role,"				// row[3]
			              "UNIX_TIMESTAMP(RequestTime)"	// row[4]
			        " FROM crs_requests"
			       " WHERE CrsCod=%ld"
			         " AND ((1<<Role)&%u)<>0"
			       " ORDER BY RequestTime DESC",
			       Gbl.Hierarchy.Crs.CrsCod,
			       RolesSelected);
               break;
            default:
               Err_NoPermissionExit ();
               break;
           }
         break;
      default:
         Err_WrongScopeExit ();
         break;
     }

   /***** List requests *****/
   if (NumReqs)
      {
      /* Initialize structure with user's data */
      Usr_UsrDataConstructor (&UsrDat);

      /* Begin table */
      HTM_TABLE_BeginCenterPadding (2);

	 /* Table heading */
	 HTM_TR_Begin (NULL);

	    HTM_TH_Empty (1);
	    HTM_TH (1,1,"LT",Txt_Course);
	    HTM_TH (1,1,"RT",Txt_ROLES_PLURAL_BRIEF_Abc[Rol_TCH]);
	    HTM_TH (1,2,"LT",Txt_Requester);
	    HTM_TH (1,1,"LT",Txt_Role);
	    HTM_TH (1,1,"CT",Txt_Date);
	    HTM_TH_Empty (2);

	 HTM_TR_End ();

	 /* List requests */
	 for (NumReq = 0;
	      NumReq < NumReqs;
	      NumReq++)
	   {
	    row = mysql_fetch_row (mysql_res);

	    /* Get request code (row[0]) */
	    ReqCod = Str_ConvertStrCodToLongCod (row[0]);

	    /* Get course code (row[1]) */
	    Crs.CrsCod = Str_ConvertStrCodToLongCod (row[1]);

	    /* Get user code (row[2]) */
	    UsrDat.UsrCod = Str_ConvertStrCodToLongCod (row[2]);
	    UsrExists = Usr_ChkUsrCodAndGetAllUsrDataFromUsrCod (&UsrDat,
								 Usr_DONT_GET_PREFS,
								 Usr_DONT_GET_ROLE_IN_CURRENT_CRS);

	    /***** Get requested role (row[3]) *****/
	    DesiredRole = Rol_ConvertUnsignedStrToRole (row[3]);

	    if (UsrExists)
	       UsrBelongsToCrs = Usr_CheckIfUsrBelongsToCrs (UsrDat.UsrCod,
							     Crs.CrsCod,
							     false);
	    else
	       UsrBelongsToCrs = false;

	    if (UsrExists &&
		!UsrBelongsToCrs &&
		(DesiredRole == Rol_STD ||
		 DesiredRole == Rol_NET ||
		 DesiredRole == Rol_TCH))
	      {
	       HTM_TR_Begin (NULL);

		  /***** Number *****/
		  HTM_TD_Begin ("class=\"DAT RT\"");
		     HTM_Unsigned (NumReqs - NumReq);
		  HTM_TD_End ();

		  /***** Link to course *****/
		  HTM_TD_Begin (NULL);

		     Crs_GetDataOfCourseByCod (&Crs);
		     Deg.DegCod = Crs.DegCod;
		     Deg_GetDataOfDegreeByCod (&Deg);

		     Frm_BeginFormGoTo (ActSeeCrsInf);
		     Crs_PutParamCrsCod (Crs.CrsCod);
			HTM_BUTTON_SUBMIT_Begin (Hie_BuildGoToMsg (Crs.FullName),
						 "BT_LINK LT DAT",NULL);
			   Hie_FreeGoToMsg ();
			   HTM_TxtF ("%s &gt; %s",Deg.ShrtName,Crs.ShrtName);
			HTM_BUTTON_End ();
		     Frm_EndForm ();

		  HTM_TD_End ();

		  /***** Number of teachers in the course *****/
		  HTM_TD_Begin ("class=\"DAT RT\"");
		     HTM_Unsigned (Usr_GetNumUsrsInCrss (Hie_Lvl_CRS,Crs.CrsCod,
							 1 << Rol_TCH));
		  HTM_TD_End ();

		  /***** User photo *****/
		  HTM_TD_Begin ("class=\"DAT CT\" style=\"width:22px;\"");
		     Pho_ShowUsrPhotoIfAllowed (&UsrDat,"PHOTO21x28",Pho_ZOOM,false);
		  HTM_TD_End ();

		  /***** User name *****/
		  HTM_TD_Begin ("class=\"DAT LT\"");
		     HTM_DIV_Begin ("class=\"REQUESTER_NAME\"");	// Limited width
			Usr_WriteFirstNameBRSurnames (&UsrDat);
		     HTM_DIV_End ();
		  HTM_TD_End ();

		  /***** Requested role (row[3]) *****/
		  HTM_TD_Begin ("class=\"DAT LT\"");
		     HTM_Txt (Txt_ROLES_SINGUL_abc[DesiredRole][UsrDat.Sex]);
		  HTM_TD_End ();

		  /***** Request time (row[4]) *****/
		  Msg_WriteMsgDate (Dat_GetUNIXTimeFromStr (row[4]),"DAT");

		  /***** Button to confirm the request *****/
		  HTM_TD_Begin ("class=\"DAT LT\"");
		     switch (DesiredRole)
		       {
			case Rol_STD:
			   NextAction = ActReqMdfStd;
			   break;
			case Rol_NET:
			   NextAction = ActReqMdfNET;
			   break;
			case Rol_TCH:
			   NextAction = ActReqMdfTch;
			   break;
			default:
			   NextAction = ActUnk;
			   Err_WrongRoleExit ();
			   break;
		       }
		     Frm_BeginForm (NextAction);
		     Crs_PutParamCrsCod (Crs.CrsCod);
		     Usr_PutParamUsrCodEncrypted (UsrDat.EnUsrCod);
			Btn_PutCreateButtonInline (Txt_Register);
		     Frm_EndForm ();
		  HTM_TD_End ();

		  /***** Button to reject the request *****/
		  HTM_TD_Begin ("class=\"DAT LT\"");
		     Frm_BeginForm (ActReqRejSignUp);
		     Crs_PutParamCrsCod (Crs.CrsCod);
		     Usr_PutParamUsrCodEncrypted (UsrDat.EnUsrCod);
			Btn_PutRemoveButtonInline (Txt_Reject);
		     Frm_EndForm ();
		  HTM_TD_End ();

	       HTM_TR_End ();

	       /***** Mark possible notification as seen *****/
	       Ntf_MarkNotifAsSeen (Ntf_EVENT_ENROLMENT_REQUEST,
				   ReqCod,Gbl.Hierarchy.Crs.CrsCod,
				   Gbl.Usrs.Me.UsrDat.UsrCod);
	      }
	    else        // User does not exists or user already belongs to course ==> remove pair from crs_requests table
	       Enr_RemoveEnrolmentRequest (Crs.CrsCod,UsrDat.UsrCod);
	   }

      /* End table */
      HTM_TABLE_End ();

      /* Free memory used for user's data */
      Usr_UsrDataDestructor (&UsrDat);
     }
   else	// There are no requests
      Ale_ShowAlert (Ale_INFO,Txt_No_enrolment_requests);

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

/*****************************************************************************/
/********************* Remove a request for enrolment ***********************/
/*****************************************************************************/

static void Enr_RemoveEnrolmentRequest (long CrsCod,long UsrCod)
  {
   long ReqCod;

   /***** Mark possible notifications as removed
          Important: do this before removing the request *****/
   /* Request request code (returns 0 or 1 rows) */
   ReqCod = DB_QuerySELECTCode ("can not get request code",
				"SELECT ReqCod"
				 " FROM crs_requests"
				" WHERE CrsCod=%ld"
				  " AND UsrCod=%ld",
				CrsCod,
				UsrCod);

   /* Mark possible notifications as removed */
   Ntf_MarkNotifAsRemoved (Ntf_EVENT_ENROLMENT_REQUEST,ReqCod);

   /***** Remove enrolment request *****/
   DB_QueryDELETE ("can not remove a request for enrolment",
		   "DELETE FROM crs_requests"
		   " WHERE CrsCod=%ld"
		     " AND UsrCod=%ld",
                   CrsCod,
                   UsrCod);
  }

/*****************************************************************************/
/******************* Remove expired requests for enrolment ******************/
/*****************************************************************************/

static void Enr_RemoveExpiredEnrolmentRequests (void)
  {
   /***** Mark possible notifications as removed
          Important: do this before removing the request *****/
   DB_QueryUPDATE ("can not set notification(s) as removed",
		   "UPDATE ntf_notifications,"
		          "crs_requests"
		     " SET ntf_notifications.Status=(ntf_notifications.Status | %u)"
		   " WHERE ntf_notifications.NotifyEvent=%u"
		     " AND ntf_notifications.Cod=crs_requests.ReqCod"
		     " AND crs_requests.RequestTime<FROM_UNIXTIME(UNIX_TIMESTAMP()-%lu)",
	           (unsigned) Ntf_STATUS_BIT_REMOVED,
	           (unsigned) Ntf_EVENT_ENROLMENT_REQUEST,
	           Cfg_TIME_TO_DELETE_ENROLMENT_REQUESTS);

   /***** Remove expired requests for enrolment *****/
   DB_QueryDELETE ("can not remove expired requests for enrolment",
		   "DELETE LOW_PRIORITY FROM crs_requests"
		   " WHERE RequestTime<FROM_UNIXTIME(UNIX_TIMESTAMP()-%lu)",
                   Cfg_TIME_TO_DELETE_ENROLMENT_REQUESTS);
  }

/*****************************************************************************/
/********************** Write a form to admin one user ***********************/
/*****************************************************************************/

void Enr_PutLinkToAdminOneUsr (Act_Action_t NextAction)
  {
   extern const char *Txt_Administer_me;
   extern const char *Txt_Administer_one_user;
   const char *TitleText = Enr_ICanAdminOtherUsrs[Gbl.Usrs.Me.Role.Logged] ? Txt_Administer_one_user :
                        	                                             Txt_Administer_me;

   Lay_PutContextualLinkIconText (NextAction,NULL,
                                  NULL,NULL,
				  "user-cog.svg",
				  TitleText);
  }

/*****************************************************************************/
/******************* Write a form to admin several users *********************/
/*****************************************************************************/

void Enr_PutLinkToAdminSeveralUsrs (Rol_Role_t Role)
  {
   extern const char *Txt_Administer_multiple_students;
   extern const char *Txt_Administer_multiple_non_editing_teachers;
   extern const char *Txt_Administer_multiple_teachers;
   Act_Action_t NextAction;
   const char *TitleText;

   switch (Role)
     {
      case Rol_STD:
	 NextAction = ActReqEnrSevStd;
	 TitleText = Txt_Administer_multiple_students;
	 break;
      case Rol_NET:
	 NextAction = ActReqEnrSevNET;
	 TitleText = Txt_Administer_multiple_non_editing_teachers;
	 break;
      case Rol_TCH:
	 NextAction = ActReqEnrSevTch;
	 TitleText = Txt_Administer_multiple_teachers;
	 break;
      default:
	 NextAction = ActUnk;
	 TitleText = NULL;
	 Err_WrongRoleExit ();
     }
   Lay_PutContextualLinkIconText (NextAction,NULL,
                                  NULL,NULL,
				  "users-cog.svg",
				  TitleText);
  }

/*****************************************************************************/
/************** Form to request the user's ID of another user ****************/
/*****************************************************************************/

void Enr_ReqRegRemOth (void)
  {
   /***** Form to request user to be administered *****/
   Enr_ReqRegRemUsr (Rol_GST);
  }

void Enr_ReqRegRemStd (void)
  {
   /***** Contextual menu *****/
   if (Enr_ICanAdminOtherUsrs[Gbl.Usrs.Me.Role.Logged])
     {
      Mnu_ContextMenuBegin ();
      Enr_PutLinkToAdminSeveralUsrs (Rol_STD);	// Admin several students
      Mnu_ContextMenuEnd ();
     }

   /***** Form to request user to be administered *****/
   Enr_ReqRegRemUsr (Rol_STD);
  }

void Enr_ReqRegRemTch (void)
  {
   /***** Form to request user to be administered *****/
   Enr_ReqRegRemUsr (Rol_TCH);
  }

static void Enr_ReqRegRemUsr (Rol_Role_t Role)
  {
   if (Enr_ICanAdminOtherUsrs[Gbl.Usrs.Me.Role.Logged])
      /***** Form to request the user's ID of another user *****/
      Enr_ReqAnotherUsrIDToRegisterRemove (Role);
   else
      /***** Form to request if register/remove me *****/
      Enr_AskIfRegRemMe (Role);
  }

/*****************************************************************************/
/****** Write a form to request another user's ID, @nickname or email ********/
/*****************************************************************************/

static void Enr_ReqAnotherUsrIDToRegisterRemove (Rol_Role_t Role)
  {
   extern const char *Hlp_USERS_Administration_administer_one_user;
   extern const char *Txt_Administer_one_user;
   Act_Action_t NextAction;

   /***** Begin box *****/
   Box_BoxBegin (NULL,Txt_Administer_one_user,
                 NULL,NULL,
                 Hlp_USERS_Administration_administer_one_user,Box_NOT_CLOSABLE);

   /***** Write form to request another user's ID *****/
   switch (Role)
     {
      case Rol_GST:
	 NextAction = ActReqMdfOth;
         break;
      case Rol_STD:
	 NextAction = ActReqMdfStd;
	 break;
      case Rol_NET:
	 NextAction = ActReqMdfNET;
	 break;
      case Rol_TCH:
	 NextAction = ActReqMdfTch;
	 break;
      default:
	 NextAction = ActUnk;
         Err_WrongRoleExit ();
	 break;
     }
   Enr_WriteFormToReqAnotherUsrID (NextAction,NULL);

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

/*****************************************************************************/
/********************** Ask me for register/remove me ************************/
/*****************************************************************************/

static void Enr_AskIfRegRemMe (Rol_Role_t Role)
  {
   struct ListUsrCods ListUsrCods;

   /***** I only can admin me *****/
   Gbl.Usrs.Other.UsrDat.UsrCod = Gbl.Usrs.Me.UsrDat.UsrCod;
   ListUsrCods.NumUsrs = 1;
   Usr_AllocateListUsrCods (&ListUsrCods);
   ListUsrCods.Lst[0] = Gbl.Usrs.Other.UsrDat.UsrCod;

   Enr_AskIfRegRemUsr (&ListUsrCods,Role);
  }

/*****************************************************************************/
/****************** Ask me for register/remove another user ******************/
/*****************************************************************************/

void Enr_AskIfRegRemAnotherOth (void)
  {
   Enr_AskIfRegRemAnotherUsr (Rol_GST);
  }

void Enr_AskIfRegRemAnotherStd (void)
  {
   Enr_AskIfRegRemAnotherUsr (Rol_STD);
  }

void Enr_AskIfRegRemAnotherTch (void)
  {
   Enr_AskIfRegRemAnotherUsr (Rol_TCH);
  }

static void Enr_AskIfRegRemAnotherUsr (Rol_Role_t Role)
  {
   struct ListUsrCods ListUsrCods;

   /***** Check if UsrCod is present in parameters *****/
   Usr_GetParamOtherUsrCodEncryptedAndGetListIDs ();
   if (Gbl.Usrs.Other.UsrDat.UsrCod > 0)
     {
      /***** If UsrCod is present in parameters,
	     use this parameter to identify the user to be enroled / removed *****/
      ListUsrCods.NumUsrs = 1;
      Usr_AllocateListUsrCods (&ListUsrCods);
      ListUsrCods.Lst[0] = Gbl.Usrs.Other.UsrDat.UsrCod;
     }
   else        // Parameter with user code not present
      /***** If UsrCod is not present in parameters from form,
	     use user's ID to identify the user to be enroled /removed *****/
      Usr_GetParamOtherUsrIDNickOrEMailAndGetUsrCods (&ListUsrCods);

   Enr_AskIfRegRemUsr (&ListUsrCods,Role);
  }

/*****************************************************************************/
/********************** Ask me for register/remove user **********************/
/*****************************************************************************/

static void Enr_AskIfRegRemUsr (struct ListUsrCods *ListUsrCods,Rol_Role_t Role)
  {
   extern const char *Txt_There_are_X_users_with_the_ID_Y;
   extern const char *Txt_The_user_is_new_not_yet_in_X;
   extern const char *Txt_If_this_is_a_new_user_in_X_you_should_indicate_her_his_ID;
   unsigned NumUsr;
   bool NewUsrIDValid;

   if (ListUsrCods->NumUsrs)	// User(s) found with the ID
     {
      /***** Warning if more than one user found *****/
      if (ListUsrCods->NumUsrs > 1)
	 Ale_ShowAlert (Ale_INFO,Txt_There_are_X_users_with_the_ID_Y,
		        ListUsrCods->NumUsrs,Gbl.Usrs.Other.UsrDat.UsrIDNickOrEmail);

      /***** For each user found... *****/
      for (NumUsr = 0;
	   NumUsr < ListUsrCods->NumUsrs;
	   NumUsr++)
	{
	 /* Get user's data */
         Gbl.Usrs.Other.UsrDat.UsrCod = ListUsrCods->Lst[NumUsr];
         Usr_GetAllUsrDataFromUsrCod (&Gbl.Usrs.Other.UsrDat,
                                      Usr_DONT_GET_PREFS,
                                      Usr_GET_ROLE_IN_CURRENT_CRS);

         /* Show form to edit user */
	 Enr_ShowFormToEditOtherUsr ();
	}

      /***** Free list of users' codes *****/
      Usr_FreeListUsrCods (ListUsrCods);
     }
   else	// No users found, he/she is a new user
     {
      /***** If UsrCod is not present in parameters from form,
	     use user's ID to identify the user to be enroled *****/
      if (Gbl.Usrs.Other.UsrDat.IDs.List)
         NewUsrIDValid = ID_CheckIfUsrIDIsValid (Gbl.Usrs.Other.UsrDat.IDs.List[0].ID);	// Check the first element of the list
      else
	 NewUsrIDValid = false;

      if (NewUsrIDValid)
	{
	 /***** Show form to enter the data of a new user *****/
	 Ale_ShowAlert (Ale_INFO,Txt_The_user_is_new_not_yet_in_X,
		        Cfg_PLATFORM_SHORT_NAME);
	 Rec_ShowFormOtherNewSharedRecord (&Gbl.Usrs.Other.UsrDat,Role);
	}
      else        // User's ID is not valid
	{
	 /* Write message and request a new user's ID */
	 Ale_ShowAlert (Ale_WARNING,Txt_If_this_is_a_new_user_in_X_you_should_indicate_her_his_ID,
		        Cfg_PLATFORM_SHORT_NAME);
	 Enr_ReqRegRemUsr (Role);
	}
     }
  }

/*****************************************************************************/
/********* Show other existing user's shared record to be edited *************/
/*****************************************************************************/

static void Enr_ShowFormToEditOtherUsr (void)
  {
   extern const char *Txt_THE_USER_X_is_already_enroled_in_the_course_Y;
   extern const char *Txt_THE_USER_X_is_in_the_course_Y_but_has_not_yet_accepted_the_enrolment;
   extern const char *Txt_THE_USER_X_exists_in_Y_but_is_not_enroled_in_the_course_Z;
   extern const char *Txt_THE_USER_X_already_exists_in_Y;

   /***** If user exists... *****/
   if (Usr_ChkIfUsrCodExists (Gbl.Usrs.Other.UsrDat.UsrCod))
     {
      /***** Show form to edit user *****/
      if (Gbl.Hierarchy.Level == Hie_Lvl_CRS)	// Course selected
	{
	 /* Check if this user belongs to the current course */
	 if (Usr_CheckIfUsrBelongsToCurrentCrs (&Gbl.Usrs.Other.UsrDat))
	   {
	    Gbl.Usrs.Other.UsrDat.Accepted = Usr_CheckIfUsrHasAcceptedInCurrentCrs (&Gbl.Usrs.Other.UsrDat);
	    if (Gbl.Usrs.Other.UsrDat.Accepted)
	       Ale_ShowAlert (Ale_INFO,Txt_THE_USER_X_is_already_enroled_in_the_course_Y,
			      Gbl.Usrs.Other.UsrDat.FullName,Gbl.Hierarchy.Crs.FullName);
	    else        // Enrolment not yet accepted
	       Ale_ShowAlert (Ale_INFO,Txt_THE_USER_X_is_in_the_course_Y_but_has_not_yet_accepted_the_enrolment,
			      Gbl.Usrs.Other.UsrDat.FullName,Gbl.Hierarchy.Crs.FullName);

	    Rec_ShowOtherSharedRecordEditable ();
	   }
	 else        // User does not belong to the current course
	   {
	    Ale_ShowAlert (Ale_INFO,Txt_THE_USER_X_exists_in_Y_but_is_not_enroled_in_the_course_Z,
			   Gbl.Usrs.Other.UsrDat.FullName,
			   Cfg_PLATFORM_SHORT_NAME,Gbl.Hierarchy.Crs.FullName);

	    Rec_ShowOtherSharedRecordEditable ();
	   }
	}
      else	// No course selected
	{
	 Ale_ShowAlert (Ale_INFO,Txt_THE_USER_X_already_exists_in_Y,
			Gbl.Usrs.Other.UsrDat.FullName,Cfg_PLATFORM_SHORT_NAME);

	 Rec_ShowOtherSharedRecordEditable ();
	}
     }
   else
      Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
  }

/*****************************************************************************/
/*************** Add an administrator to current institution *****************/
/*****************************************************************************/

void Enr_AddAdmToIns (void)
  {
   Enr_AddAdm (Hie_Lvl_INS,Gbl.Hierarchy.Ins.InsCod,Gbl.Hierarchy.Ins.FullName);
  }

/*****************************************************************************/
/******************* Add an administrator to current center ******************/
/*****************************************************************************/

void Enr_AddAdmToCtr (void)
  {
   Enr_AddAdm (Hie_Lvl_CTR,Gbl.Hierarchy.Ctr.CtrCod,Gbl.Hierarchy.Ctr.FullName);
  }

/*****************************************************************************/
/******************* Add an administrator to current degree ******************/
/*****************************************************************************/

void Enr_AddAdmToDeg (void)
  {
   Enr_AddAdm (Hie_Lvl_DEG,Gbl.Hierarchy.Deg.DegCod,Gbl.Hierarchy.Deg.FullName);
  }

/*****************************************************************************/
/******************* Add an administrator to current degree ******************/
/*****************************************************************************/

static void Enr_AddAdm (Hie_Lvl_Level_t Scope,long Cod,const char *InsCtrDegName)
  {
   bool ICanRegister;

   if (Cod > 0)
     {
      /***** Get plain user's ID of the user to add/modify *****/
      if (Usr_GetParamOtherUsrCodEncryptedAndGetUsrData ())
        {
         /* Check if I am allowed to register user as administrator in institution/center/degree */
	 ICanRegister = ((Scope == Hie_Lvl_DEG && Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM) ||
                         (Scope == Hie_Lvl_CTR && Gbl.Usrs.Me.Role.Logged >= Rol_INS_ADM) ||
                         (Scope == Hie_Lvl_INS && Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM));
         if (ICanRegister)
           {
            /***** Register administrator in current institution/center/degree in database *****/
            Enr_RegisterAdmin (&Gbl.Usrs.Other.UsrDat,Scope,
                               Cod,InsCtrDegName);

            /***** Show user's record *****/
            Rec_ShowSharedRecordUnmodifiable (&Gbl.Usrs.Other.UsrDat);
           }
         else
            Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
        }
      else
         Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
     }
  }

/*****************************************************************************/
/**************** Register administrator in current institution **************/
/*****************************************************************************/

static void Enr_RegisterAdmin (struct UsrData *UsrDat,Hie_Lvl_Level_t Scope,long Cod,const char *InsCtrDegName)
  {
   extern const char *Txt_THE_USER_X_is_already_an_administrator_of_Y;
   extern const char *Txt_THE_USER_X_has_been_enroled_as_administrator_of_Y;

   /***** Check if user was and administrator of current institution/center/degree *****/
   if (Usr_CheckIfUsrIsAdm (UsrDat->UsrCod,Scope,Cod))
      Ale_ShowAlert (Ale_SUCCESS,Txt_THE_USER_X_is_already_an_administrator_of_Y,
                     UsrDat->FullName,InsCtrDegName);
   else        // User was not administrator of current institution/center/degree
     {
      /***** Insert or replace administrator in current institution/center/degree *****/
      DB_QueryREPLACE ("can not create administrator",
		       "REPLACE INTO usr_admins"
		       " (UsrCod,Scope,Cod)"
		       " VALUES"
		       " (%ld,'%s',%ld)",
                       UsrDat->UsrCod,
                       Sco_GetDBStrFromScope (Scope),
                       Cod);

      Ale_ShowAlert (Ale_SUCCESS,Txt_THE_USER_X_has_been_enroled_as_administrator_of_Y,
                     UsrDat->FullName,InsCtrDegName);
     }
  }

/*****************************************************************************/
/****************** Ask for remove me from current course ********************/
/*****************************************************************************/

void Enr_ReqRemMeFromCrs (void)
  {
   Enr_AskIfRemoveUsrFromCrs (&Gbl.Usrs.Me.UsrDat);
  }

/*****************************************************************************/
/************** Ask for remove of a user from current course *****************/
/*****************************************************************************/

void Enr_ReqRemUsrFromCrs (void)
  {
   /***** Get user to be removed *****/
   if (Usr_GetParamOtherUsrCodEncryptedAndGetUsrData ())
     {
      if (Enr_CheckIfICanRemUsrFromCrs ())
	 Enr_AskIfRemoveUsrFromCrs (&Gbl.Usrs.Other.UsrDat);
      else
         Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
     }
   else
      Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
  }

/*****************************************************************************/
/********************* Remove a user from current course *********************/
/*****************************************************************************/

void Enr_RemUsrFromCrs1 (void)
  {
   if (Pwd_GetConfirmationOnDangerousAction ())
     {
      /***** Get user to be removed *****/
      if (Usr_GetParamOtherUsrCodEncryptedAndGetUsrData ())
	{
	 if (Enr_CheckIfICanRemUsrFromCrs ())
	    Enr_EffectivelyRemUsrFromCrs (&Gbl.Usrs.Other.UsrDat,&Gbl.Hierarchy.Crs,
					  Enr_DO_NOT_REMOVE_USR_PRODUCTION,
					  Cns_VERBOSE);
	 else
	    Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	}
      else
	 Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
     }
  }

void Enr_RemUsrFromCrs2 (void)
  {
   /* Show possible alerts */
   Ale_ShowAlerts (NULL);

   /* Show form to edit user again */
   Enr_ShowFormToEditOtherUsr ();
  }

/*****************************************************************************/
/*********** Check if I can remove another user in current course ************/
/*****************************************************************************/

static bool Enr_CheckIfICanRemUsrFromCrs (void)
  {
   bool ItsMe;

   /* Check if I can remove another user from current course */
   switch (Gbl.Usrs.Me.Role.Logged)
     {
      case Rol_STD:
      case Rol_NET:
	 ItsMe = Usr_ItsMe (Gbl.Usrs.Other.UsrDat.UsrCod);
	 return ItsMe;	// A student or non-editing teacher can remove herself/himself
      case Rol_TCH:
      case Rol_DEG_ADM:
      case Rol_CTR_ADM:
      case Rol_INS_ADM:
      case Rol_SYS_ADM:
	 return true;	// A teacher or administrator can remove anyone
      default:
	 return false;
     }
   return false;
  }

/*****************************************************************************/
/******* Ask for remove of an administrator from current institution *********/
/*****************************************************************************/

static void Enr_ReqRemAdmOfIns (void)
  {
   Enr_ReqRemOrRemAdm (Enr_REQUEST_REMOVE_USR,Hie_Lvl_INS,
                       Gbl.Hierarchy.Ins.InsCod,Gbl.Hierarchy.Ins.FullName);
  }

/*****************************************************************************/
/********* Ask for remove of an administrator from current center ************/
/*****************************************************************************/

static void Enr_ReqRemAdmOfCtr (void)
  {
   Enr_ReqRemOrRemAdm (Enr_REQUEST_REMOVE_USR,Hie_Lvl_CTR,
                       Gbl.Hierarchy.Ctr.CtrCod,Gbl.Hierarchy.Ctr.FullName);
  }

/*****************************************************************************/
/********* Ask for remove of an administrator from current degree ************/
/*****************************************************************************/

static void Enr_ReqRemAdmOfDeg (void)
  {
   Enr_ReqRemOrRemAdm (Enr_REQUEST_REMOVE_USR,Hie_Lvl_DEG,
                       Gbl.Hierarchy.Deg.DegCod,Gbl.Hierarchy.Deg.FullName);
  }

/*****************************************************************************/
/************ Remove an administrator from current institution ***************/
/*****************************************************************************/

void Enr_RemAdmIns (void)
  {
   Enr_ReqRemOrRemAdm (Enr_REMOVE_USR,Hie_Lvl_INS,
                       Gbl.Hierarchy.Ins.InsCod,Gbl.Hierarchy.Ins.FullName);
  }

/*****************************************************************************/
/*************** Remove an administrator from current center *****************/
/*****************************************************************************/

void Enr_RemAdmCtr (void)
  {
   Enr_ReqRemOrRemAdm (Enr_REMOVE_USR,Hie_Lvl_CTR,
                       Gbl.Hierarchy.Ctr.CtrCod,Gbl.Hierarchy.Ctr.FullName);
  }

/*****************************************************************************/
/*************** Remove an administrator from current degree *****************/
/*****************************************************************************/

void Enr_RemAdmDeg (void)
  {
   Enr_ReqRemOrRemAdm (Enr_REMOVE_USR,Hie_Lvl_DEG,
                       Gbl.Hierarchy.Deg.DegCod,Gbl.Hierarchy.Deg.FullName);
  }

/*****************************************************************************/
/***************** Remove an admin from current institution ******************/
/*****************************************************************************/

static void Enr_ReqRemOrRemAdm (Enr_ReqDelOrDelUsr_t ReqDelOrDelUsr,Hie_Lvl_Level_t Scope,
                                long Cod,const char *InsCtrDegName)
  {
   extern const char *Txt_THE_USER_X_is_not_an_administrator_of_Y;
   bool ItsMe;
   bool ICanRemove;

   if (Cod > 0)
     {
      /***** Get user to be removed *****/
      if (Usr_GetParamOtherUsrCodEncryptedAndGetUsrData ())
        {
         /* Check if it's forbidden to remove an administrator */
         ItsMe = Usr_ItsMe (Gbl.Usrs.Other.UsrDat.UsrCod);
         ICanRemove = (ItsMe ||
                       (Scope == Hie_Lvl_DEG && Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM) ||
                       (Scope == Hie_Lvl_CTR && Gbl.Usrs.Me.Role.Logged >= Rol_INS_ADM) ||
                       (Scope == Hie_Lvl_INS && Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM));
         if (ICanRemove)
           {
            /* Check if the other user is an admin of the current institution/center/degree */
            if (Usr_CheckIfUsrIsAdm (Gbl.Usrs.Other.UsrDat.UsrCod,Scope,Cod))
              {                // The other user is an administrator of current institution/center/degree ==> ask for removing or remove her/him
               switch (ReqDelOrDelUsr)
                 {
                  case Enr_REQUEST_REMOVE_USR:     // Ask if remove administrator from current institution
                     Enr_AskIfRemAdm (ItsMe,Scope,InsCtrDegName);
                     break;
                  case Enr_REMOVE_USR:             // Remove administrator from current institution
                     Enr_EffectivelyRemAdm (&Gbl.Usrs.Other.UsrDat,Scope,
                                            Cod,InsCtrDegName);
                     break;
                 }
              }
            else        // The other user is not an administrator of current institution
               Ale_ShowAlert (Ale_WARNING,Txt_THE_USER_X_is_not_an_administrator_of_Y,
                              Gbl.Usrs.Other.UsrDat.FullName,InsCtrDegName);
           }
         else
            Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
        }
      else
         Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
     }
  }

/*****************************************************************************/
/**** Ask if really wanted to add an administrator to current institution ****/
/*****************************************************************************/

static void Enr_ReqAddAdm (Hie_Lvl_Level_t Scope,long Cod,const char *InsCtrDegName)
  {
   extern const char *Txt_THE_USER_X_is_already_an_administrator_of_Y;
   extern const char *Txt_Do_you_really_want_to_register_the_following_user_as_an_administrator_of_X;
   extern const char *Txt_Register_user_IN_A_COURSE_OR_DEGREE;
   static const Act_Action_t Enr_ActNewAdm[Hie_Lvl_NUM_LEVELS] =
     {
      [Hie_Lvl_UNK] = ActUnk,
      [Hie_Lvl_SYS] = ActUnk,
      [Hie_Lvl_CTY] = ActUnk,
      [Hie_Lvl_INS] = ActNewAdmIns,
      [Hie_Lvl_CTR] = ActNewAdmCtr,
      [Hie_Lvl_DEG] = ActNewAdmDeg,
      [Hie_Lvl_CRS] = ActUnk,
     };
   bool ICanRegister;

   if (Cod > 0)
     {
      /***** Get user's identificator of the user to register as admin *****/
      if (Usr_GetParamOtherUsrCodEncryptedAndGetUsrData ())
        {
         /* Check if I am allowed to register user as administrator in institution/center/degree */
	 ICanRegister = ((Scope == Hie_Lvl_DEG && Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM) ||
                         (Scope == Hie_Lvl_CTR && Gbl.Usrs.Me.Role.Logged >= Rol_INS_ADM) ||
                         (Scope == Hie_Lvl_INS && Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM));
         if (ICanRegister)
           {
            if (Usr_CheckIfUsrIsAdm (Gbl.Usrs.Other.UsrDat.UsrCod,Scope,Cod))        // User is already an administrator of current institution/center/degree
              {
               Ale_ShowAlert (Ale_INFO,Txt_THE_USER_X_is_already_an_administrator_of_Y,
                              Gbl.Usrs.Other.UsrDat.FullName,InsCtrDegName);
               Rec_ShowSharedRecordUnmodifiable (&Gbl.Usrs.Other.UsrDat);
              }
            else
              {
	       /***** Show question and button to register user as administrator *****/
	       /* Begin alert */
	       Ale_ShowAlertAndButton1 (Ale_QUESTION,Txt_Do_you_really_want_to_register_the_following_user_as_an_administrator_of_X,
                                        InsCtrDegName);

	       /* Show user's record */
               Rec_ShowSharedRecordUnmodifiable (&Gbl.Usrs.Other.UsrDat);

	       /* End alert */
	       Ale_ShowAlertAndButton2 (Enr_ActNewAdm[Scope],NULL,NULL,
	                                Usr_PutParamOtherUsrCodEncrypted,Gbl.Usrs.Other.UsrDat.EnUsrCod,
	                                Btn_CREATE_BUTTON,Txt_Register_user_IN_A_COURSE_OR_DEGREE);
              }
           }
         else
            Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
        }
      else
         Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
     }
  }

/*****************************************************************************/
/*************** Accept my enrolment in the current course ******************/
/*****************************************************************************/

void Enr_AcceptRegisterMeInCrs (void)
  {
   extern const char *Txt_You_have_confirmed_your_enrolment_in_the_course_X;

   /***** Confirm my enrolment *****/
   Enr_AcceptUsrInCrs (Gbl.Usrs.Me.UsrDat.UsrCod);

   /***** Mark all notifications about enrolment (as student or as teacher)
          in current course as removed *****/
   Ntf_MarkNotifToOneUsrAsRemoved (Ntf_EVENT_ENROLMENT_STD,-1L,
                                  Gbl.Usrs.Me.UsrDat.UsrCod);
   Ntf_MarkNotifToOneUsrAsRemoved (Ntf_EVENT_ENROLMENT_TCH,-1L,
                                  Gbl.Usrs.Me.UsrDat.UsrCod);

   /***** Confirmation message *****/
   Ale_ShowAlert (Ale_SUCCESS,Txt_You_have_confirmed_your_enrolment_in_the_course_X,
                  Gbl.Hierarchy.Crs.FullName);
  }

/*****************************************************************************/
/******************* Create and show data from other user ********************/
/*****************************************************************************/

void Enr_CreateNewUsr1 (void)
  {
   extern const char *Txt_The_role_of_THE_USER_X_in_the_course_Y_has_changed_from_A_to_B;
   extern const char *Txt_ROLES_SINGUL_abc[Rol_NUM_ROLES][Usr_NUM_SEXS];
   extern const char *Txt_THE_USER_X_has_been_enroled_in_the_course_Y;
   extern const char *Txt_The_ID_X_is_not_valid;
   Rol_Role_t OldRole;
   Rol_Role_t NewRole;

   /***** Get user's ID from form *****/
   ID_GetParamOtherUsrIDPlain ();	// User's ID was already modified and passed as a hidden parameter

   if (ID_CheckIfUsrIDIsValid (Gbl.Usrs.Other.UsrDat.IDs.List[0].ID))        // User's ID valid
     {
      Gbl.Usrs.Other.UsrDat.UsrCod = -1L;

      /***** Get new role *****/
      NewRole = Rec_GetRoleFromRecordForm ();

      /***** Get user's name from form *****/
      Rec_GetUsrNameFromRecordForm (&Gbl.Usrs.Other.UsrDat);

      /***** Create user *****/
      Gbl.Usrs.Other.UsrDat.IDs.List[0].Confirmed = true;	// User's ID will be stored as confirmed
      Acc_CreateNewUsr (&Gbl.Usrs.Other.UsrDat,
                        false);	// I am NOT creating my own account

      /***** Register user in current course in database *****/
      if (Gbl.Hierarchy.Level == Hie_Lvl_CRS)	// Course selected
	{
	 if (Usr_CheckIfUsrBelongsToCurrentCrs (&Gbl.Usrs.Other.UsrDat))
	   {
	    OldRole = Gbl.Usrs.Other.UsrDat.Roles.InCurrentCrs;	// Remember old role before changing it
	    if (NewRole != OldRole)	// The role must be updated
	      {
	       /* Modify role */
	       Enr_ModifyRoleInCurrentCrs (&Gbl.Usrs.Other.UsrDat,NewRole);

	       /* Success message */
               Ale_CreateAlert (Ale_SUCCESS,NULL,
        	                Txt_The_role_of_THE_USER_X_in_the_course_Y_has_changed_from_A_to_B,
				Gbl.Usrs.Other.UsrDat.FullName,
				Gbl.Hierarchy.Crs.FullName,
				Txt_ROLES_SINGUL_abc[OldRole][Gbl.Usrs.Other.UsrDat.Sex],
				Txt_ROLES_SINGUL_abc[NewRole][Gbl.Usrs.Other.UsrDat.Sex]);
	      }
	   }
	 else      // User does not belong to current course
	   {
	    /* Register user */
	    Enr_RegisterUsrInCurrentCrs (&Gbl.Usrs.Other.UsrDat,NewRole,
	                                 Enr_SET_ACCEPTED_TO_FALSE);

	    /* Success message */
            Ale_CreateAlert (Ale_SUCCESS,NULL,
        	             Txt_THE_USER_X_has_been_enroled_in_the_course_Y,
		             Gbl.Usrs.Other.UsrDat.FullName,
		             Gbl.Hierarchy.Crs.FullName);
	   }

	 /***** Change user's groups *****/
	 if (Gbl.Crs.Grps.NumGrps)	// This course has groups?
	    Grp_ChangeOtherUsrGrps ();
	}

      /***** Change current action *****/
      switch (NewRole)
        {
	 case Rol_GST:
	    Gbl.Action.Act = ActCreOth;
	    break;
	 case Rol_STD:
	    Gbl.Action.Act = ActCreStd;
	    break;
	 case Rol_NET:
	    Gbl.Action.Act = ActCreNET;
	    break;
	 case Rol_TCH:
	    Gbl.Action.Act = ActCreTch;
	    break;
	 default:
	    Err_WrongRoleExit ();
	    break;
        }
      Tab_SetCurrentTab ();
     }
   else        // User's ID not valid
      /***** Error message *****/
      Ale_CreateAlert (Ale_ERROR,NULL,
	               Txt_The_ID_X_is_not_valid,
                       Gbl.Usrs.Other.UsrDat.IDs.List[0].ID);
  }

void Enr_CreateNewUsr2 (void)
  {
   if (Ale_GetTypeOfLastAlert () == Ale_ERROR)	// User's ID not valid
      Ale_ShowAlerts (NULL);
   else						// User's ID valid
     {
      /***** Show possible alerts *****/
      Ale_ShowAlerts (NULL);

      /***** Show user's record *****/
      Rec_ShowSharedRecordUnmodifiable (&Gbl.Usrs.Other.UsrDat);
     }
  }

/*****************************************************************************/
/**** Modify other user's data and register her/him in course and groups *****/
/*****************************************************************************/

void Enr_ModifyUsr1 (void)
  {
   extern const char *Txt_The_role_of_THE_USER_X_in_the_course_Y_has_changed_from_A_to_B;
   extern const char *Txt_ROLES_SINGUL_abc[Rol_NUM_ROLES][Usr_NUM_SEXS];
   extern const char *Txt_THE_USER_X_has_been_enroled_in_the_course_Y;
   bool ItsMe;
   Rol_Role_t OldRole;
   Rol_Role_t NewRole;

   /***** Get user from form *****/
   if (Usr_GetParamOtherUsrCodEncryptedAndGetUsrData ())
     {
      ItsMe = Usr_ItsMe (Gbl.Usrs.Other.UsrDat.UsrCod);

      /***** Get the action to do *****/
      Gbl.Usrs.RegRemAction = (Enr_RegRemOneUsrAction_t)
	                      Par_GetParToUnsignedLong ("RegRemAction",
                                                        0,
                                                        Enr_REG_REM_ONE_USR_NUM_ACTIONS - 1,
                                                        (unsigned long) Enr_REG_REM_ONE_USR_UNKNOWN_ACTION);
      switch (Gbl.Usrs.RegRemAction)
	{
	 case Enr_REGISTER_MODIFY_ONE_USR_IN_CRS:
	    if (ItsMe || Gbl.Usrs.Me.Role.Logged >= Rol_TCH)
	      {
	       /***** Get user's name from record form *****/
	       if (Usr_ICanChangeOtherUsrData (&Gbl.Usrs.Other.UsrDat))
		  Rec_GetUsrNameFromRecordForm (&Gbl.Usrs.Other.UsrDat);

	       /***** Update user's data in database *****/
	       Enr_UpdateUsrData (&Gbl.Usrs.Other.UsrDat);

	       if (Gbl.Hierarchy.Level == Hie_Lvl_CRS)	// Course selected
		 {
		  /***** Get new role from record form *****/
		  NewRole = Rec_GetRoleFromRecordForm ();

		  /***** Register user in current course in database *****/
		  if (Usr_CheckIfUsrBelongsToCurrentCrs (&Gbl.Usrs.Other.UsrDat))
		    {
		     OldRole = Gbl.Usrs.Other.UsrDat.Roles.InCurrentCrs;	// Remember old role before changing it
		     if (NewRole != OldRole)	// The role must be updated
		       {
			/* Modify role */
			Enr_ModifyRoleInCurrentCrs (&Gbl.Usrs.Other.UsrDat,NewRole);

			/* Set success message */
			Ale_CreateAlert (Ale_SUCCESS,NULL,
			                 Txt_The_role_of_THE_USER_X_in_the_course_Y_has_changed_from_A_to_B,
					 Gbl.Usrs.Other.UsrDat.FullName,
					 Gbl.Hierarchy.Crs.FullName,
					 Txt_ROLES_SINGUL_abc[OldRole][Gbl.Usrs.Other.UsrDat.Sex],
					 Txt_ROLES_SINGUL_abc[NewRole][Gbl.Usrs.Other.UsrDat.Sex]);
		       }
		    }
		  else	      // User does not belong to current course
		    {
		     /* Register user */
		     Enr_RegisterUsrInCurrentCrs (&Gbl.Usrs.Other.UsrDat,NewRole,
						  Enr_SET_ACCEPTED_TO_FALSE);

		     /* Set success message */
	             Ale_CreateAlert (Ale_SUCCESS,NULL,
	        	              Txt_THE_USER_X_has_been_enroled_in_the_course_Y,
			              Gbl.Usrs.Other.UsrDat.FullName,
				      Gbl.Hierarchy.Crs.FullName);
		    }

		  /***** Change user's groups *****/
		  if (Gbl.Crs.Grps.NumGrps)	// This course has groups?
		    {
		     if (ItsMe)
			Grp_ChangeMyGrps (Cns_QUIET);
		     else
			Grp_ChangeOtherUsrGrps ();
		    }

		  /***** If it's me, change my roles *****/
		  if (ItsMe)
		    {
		     Gbl.Usrs.Me.UsrDat.Roles.InCurrentCrs = Gbl.Usrs.Other.UsrDat.Roles.InCurrentCrs;
                     Gbl.Usrs.Me.UsrDat.Roles.InCrss = Gbl.Usrs.Other.UsrDat.Roles.InCrss;
                     Rol_SetMyRoles ();
		    }

		  /***** Change current action *****/
		  switch (NewRole)
		    {
		     case Rol_GST:
			Gbl.Action.Act = ActUpdOth;
			break;
		     case Rol_STD:
			Gbl.Action.Act = ActUpdStd;
			break;
		     case Rol_NET:
			Gbl.Action.Act = ActUpdNET;
			break;
		     case Rol_TCH:
			Gbl.Action.Act = ActUpdTch;
			break;
		     default:
			Err_WrongRoleExit ();
			break;
		    }
		  Tab_SetCurrentTab ();
		 }
	      }
	    else
	       Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	    break;
	 case Enr_REGISTER_ONE_DEGREE_ADMIN:
	    if (Gbl.Usrs.Me.Role.Logged < Rol_CTR_ADM)
	       Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	    break;
	 case Enr_REGISTER_ONE_CENTER_ADMIN:
	    if (Gbl.Usrs.Me.Role.Logged < Rol_INS_ADM)
	       Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	    break;
	 case Enr_REGISTER_ONE_INSTITUTION_ADMIN:
	    if (Gbl.Usrs.Me.Role.Logged != Rol_SYS_ADM)
	       Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	    break;
	 case Enr_REPORT_USR_AS_POSSIBLE_DUPLICATE:
	    if (ItsMe || Gbl.Usrs.Me.Role.Logged < Rol_TCH)
	       Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	    break;
	 case Enr_REMOVE_ONE_USR_FROM_CRS:
	    if (!ItsMe && Gbl.Usrs.Me.Role.Logged < Rol_TCH)
	       Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	    break;
	 case Enr_REMOVE_ONE_DEGREE_ADMIN:
	    if (!ItsMe && Gbl.Usrs.Me.Role.Logged < Rol_CTR_ADM)
	       Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	    break;
	 case Enr_REMOVE_ONE_CENTER_ADMIN:
	    if (!ItsMe && Gbl.Usrs.Me.Role.Logged < Rol_INS_ADM)
	       Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	    break;
	 case Enr_REMOVE_ONE_INSTITUTION_ADMIN:
	    if (!ItsMe && Gbl.Usrs.Me.Role.Logged != Rol_SYS_ADM)
	       Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	    break;
	 case Enr_ELIMINATE_ONE_USR_FROM_PLATFORM:
	    if (!Acc_CheckIfICanEliminateAccount (Gbl.Usrs.Other.UsrDat.UsrCod))
	       Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	    break;
	 default:
	    Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
	    break;
	}
     }
   else
      Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
  }

void Enr_ModifyUsr2 (void)
  {
   if (Ale_GetTypeOfLastAlert () == Ale_WARNING)
     {
      /***** Show possible alerts *****/
      Ale_ShowAlerts (NULL);

      /***** Show form to edit user again *****/
      Enr_ShowFormToEditOtherUsr ();
     }
   else // No error
      switch (Gbl.Usrs.RegRemAction)
	{
	 case Enr_REGISTER_MODIFY_ONE_USR_IN_CRS:
            /***** Show possible alerts *****/
            Ale_ShowAlerts (NULL);

            /***** Show form to edit user again *****/
	    Enr_ShowFormToEditOtherUsr ();
	    break;
	 case Enr_REGISTER_ONE_DEGREE_ADMIN:
	    Enr_ReqAddAdm (Hie_Lvl_DEG,Gbl.Hierarchy.Deg.DegCod,
			   Gbl.Hierarchy.Deg.FullName);
	    break;
	 case Enr_REGISTER_ONE_CENTER_ADMIN:
	    Enr_ReqAddAdm (Hie_Lvl_CTR,Gbl.Hierarchy.Ctr.CtrCod,
			   Gbl.Hierarchy.Ctr.FullName);
	    break;
	 case Enr_REGISTER_ONE_INSTITUTION_ADMIN:
	    Enr_ReqAddAdm (Hie_Lvl_INS,Gbl.Hierarchy.Ins.InsCod,
			   Gbl.Hierarchy.Ins.FullName);
	    break;
	 case Enr_REPORT_USR_AS_POSSIBLE_DUPLICATE:
	    Dup_ReportUsrAsPossibleDuplicate ();
	    break;
	 case Enr_REMOVE_ONE_USR_FROM_CRS:
            Enr_ReqRemUsrFromCrs ();
	    break;
	 case Enr_REMOVE_ONE_DEGREE_ADMIN:
            Enr_ReqRemAdmOfDeg ();
	    break;
	 case Enr_REMOVE_ONE_CENTER_ADMIN:
            Enr_ReqRemAdmOfCtr ();
	    break;
	 case Enr_REMOVE_ONE_INSTITUTION_ADMIN:
            Enr_ReqRemAdmOfIns ();
	    break;
	 case Enr_ELIMINATE_ONE_USR_FROM_PLATFORM:
	    Acc_ReqRemAccountOrRemAccount (Acc_REQUEST_REMOVE_USR);
	    break;
	 default:
	    break;
	}
  }

/*****************************************************************************/
/********* Set a user's acceptation to true in the current course ************/
/*****************************************************************************/

void Enr_AcceptUsrInCrs (long UsrCod)
  {
   /***** Set enrolment of a user to "accepted" in the current course *****/
   DB_QueryUPDATE ("can not confirm user's enrolment",
		   "UPDATE crs_users"
		     " SET Accepted='Y'"
		   " WHERE CrsCod=%ld"
		     " AND UsrCod=%ld",
                   Gbl.Hierarchy.Crs.CrsCod,
                   UsrCod);
  }

/*****************************************************************************/
/******************* Ask if really wanted to remove a user *******************/
/*****************************************************************************/

static void Enr_AskIfRemoveUsrFromCrs (struct UsrData *UsrDat)
  {
   extern const char *Txt_Do_you_really_want_to_be_removed_from_the_course_X;
   extern const char *Txt_Do_you_really_want_to_remove_the_following_user_from_the_course_X;
   extern const char *Txt_Remove_me_from_this_course;
   extern const char *Txt_Remove_user_from_this_course;
   bool ItsMe;
   Act_Action_t NextAction;

   if (Usr_CheckIfUsrBelongsToCurrentCrs (UsrDat))
     {
      ItsMe = Usr_ItsMe (Gbl.Usrs.Other.UsrDat.UsrCod);

      /***** Show question and button to remove user as administrator *****/
      /* Begin alert */
      Ale_ShowAlertAndButton1 (Ale_QUESTION,ItsMe ? Txt_Do_you_really_want_to_be_removed_from_the_course_X :
		                                    Txt_Do_you_really_want_to_remove_the_following_user_from_the_course_X,
	                       Gbl.Hierarchy.Crs.FullName);

      /* Show user's record */
      Rec_ShowSharedRecordUnmodifiable (UsrDat);

      /* Show form to request confirmation */
      switch (UsrDat->Roles.InCurrentCrs)
        {
	 case Rol_STD:
	    NextAction = ActRemStdCrs;
	    break;
	 case Rol_NET:
	    NextAction = ActRemNETCrs;
	    break;
	 case Rol_TCH:
	    NextAction = ActRemTchCrs;
	    break;
	 default:
	    NextAction = ActUnk;
	    Err_WrongRoleExit ();
	    break;
        }
      Frm_BeginForm (NextAction);
      Usr_PutParamUsrCodEncrypted (UsrDat->EnUsrCod);
      Pwd_AskForConfirmationOnDangerousAction ();
      Btn_PutRemoveButton (ItsMe ? Txt_Remove_me_from_this_course :
                                   Txt_Remove_user_from_this_course);
      Frm_EndForm ();

      /* End alert */
      Ale_ShowAlertAndButton2 (ActUnk,NULL,NULL,
                               NULL,NULL,
                               Btn_NO_BUTTON,NULL);
     }
   else	      // User does not belong to current course
      Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
  }

/*****************************************************************************/
/************************ Remove a user from a course ************************/
/*****************************************************************************/

static void Enr_EffectivelyRemUsrFromCrs (struct UsrData *UsrDat,
					  struct Crs_Course *Crs,
                                          Enr_RemoveUsrProduction_t RemoveUsrWorks,
					  Cns_QuietOrVerbose_t QuietOrVerbose)
  {
   extern const char *Txt_THE_USER_X_has_been_removed_from_the_course_Y;
   bool ItsMe = Usr_ItsMe (UsrDat->UsrCod);

   if (Usr_CheckIfUsrBelongsToCurrentCrs (UsrDat))
     {
      /***** Remove user from all the attendance events in course *****/
      Att_RemoveUsrFromCrsAttEvents (UsrDat->UsrCod,Crs->CrsCod);

      /***** Remove user from all the groups in course *****/
      Grp_RemUsrFromAllGrpsInCrs (UsrDat->UsrCod,Crs->CrsCod);

      /***** Remove user's status about reading of course information *****/
      Inf_RemoveUsrFromCrsInfoRead (UsrDat->UsrCod,Crs->CrsCod);

      /***** Remove important production of this user in course *****/
      if (RemoveUsrWorks == Enr_REMOVE_USR_PRODUCTION)
	{
	 /* Remove works zone in course */
         Brw_RemoveUsrWorksInCrs (UsrDat,Crs);

	 /* Remove tests, exams and matches results made by user in course */
	 TstPrn_RemovePrintsMadeByUsrInCrs (UsrDat->UsrCod,Crs->CrsCod);
	 ExaPrn_RemovePrintsMadeByUsrInCrs (UsrDat->UsrCod,Crs->CrsCod);
         Mch_RemoveMatchesMadeByUsrInCrs (UsrDat->UsrCod,Crs->CrsCod);
	}

      /***** Remove fields of this user in its course record *****/
      Rec_RemoveFieldsCrsRecordInCrs (UsrDat->UsrCod,Crs);

      /***** Remove some information about files in course and groups *****/
      Brw_RemoveSomeInfoAboutCrsUsrFilesFromDB (UsrDat->UsrCod,Crs->CrsCod);

      /***** Set all the notifications for this user in this course as removed,
             except notifications about new messages *****/
      Ntf_MarkNotifInCrsAsRemoved (UsrDat->UsrCod,Crs->CrsCod);

      /***** Remove user from the tables of courses-users *****/
      DB_QueryDELETE ("can not remove a user from a course",
		      "DELETE FROM crs_user_settings"
		      " WHERE UsrCod=%ld"
		        " AND CrsCod=%ld",
                      UsrDat->UsrCod,
                      Crs->CrsCod);
      DB_QueryDELETE ("can not remove a user from a course",
		      "DELETE FROM crs_users"
		      " WHERE CrsCod=%ld"
		        " AND UsrCod=%ld",
                      Crs->CrsCod,
                      UsrDat->UsrCod);

      /***** Flush caches *****/
      Usr_FlushCachesUsr ();

      /***** If it's me, change my roles *****/
      if (ItsMe)
	{
	 /* Now I don't belong to current course */
	 Gbl.Usrs.Me.IBelongToCurrentCrs =
         Gbl.Usrs.Me.UsrDat.Accepted     = false;

         /* Fill the list with the courses I belong to */
         Gbl.Usrs.Me.MyCrss.Filled = false;
         Usr_GetMyCourses ();

         /* Set my roles */
	 Gbl.Usrs.Me.Role.FromSession              =
	 Gbl.Usrs.Me.Role.Logged                   =
	 Gbl.Usrs.Me.Role.LoggedBeforeCloseSession =
	 Gbl.Usrs.Me.UsrDat.Roles.InCurrentCrs     =
	 UsrDat->Roles.InCurrentCrs                = Rol_UNK;

	 Gbl.Usrs.Me.UsrDat.Roles.InCrss =
	 UsrDat->Roles.InCrss            = -1;	// not yet filled/calculated

	 Rol_SetMyRoles ();
	}
      else	// Not me
       {
         /* Now he/she does not belong to current course */
         UsrDat->Accepted           = false;
	 UsrDat->Roles.InCurrentCrs = Rol_USR;
        }

      if (QuietOrVerbose == Cns_VERBOSE)
	 Ale_CreateAlert (Ale_SUCCESS,NULL,
	                  Txt_THE_USER_X_has_been_removed_from_the_course_Y,
                          UsrDat->FullName,Crs->FullName);
     }
   else        // User does not belong to course
      if (QuietOrVerbose == Cns_VERBOSE)
	 Ale_CreateAlertUserNotFoundOrYouDoNotHavePermission ();
  }

/*****************************************************************************/
/** Ask if really wanted to remove an administrator from current institution */
/*****************************************************************************/

static void Enr_AskIfRemAdm (bool ItsMe,Hie_Lvl_Level_t Scope,
			     const char *InsCtrDegName)
  {
   extern const char *Txt_Do_you_really_want_to_be_removed_as_an_administrator_of_X;
   extern const char *Txt_Do_you_really_want_to_remove_the_following_user_as_an_administrator_of_X;
   extern const char *Txt_Remove_me_as_an_administrator;
   extern const char *Txt_Remove_USER_as_an_administrator;
   static const Act_Action_t Enr_ActRemAdm[Hie_Lvl_NUM_LEVELS] =
     {
      [Hie_Lvl_UNK] = ActUnk,
      [Hie_Lvl_SYS] = ActUnk,
      [Hie_Lvl_CTY] = ActUnk,
      [Hie_Lvl_INS] = ActRemAdmIns,
      [Hie_Lvl_CTR] = ActRemAdmCtr,
      [Hie_Lvl_DEG] = ActRemAdmDeg,
      [Hie_Lvl_CRS] = ActUnk,
     };

   if (Usr_ChkIfUsrCodExists (Gbl.Usrs.Other.UsrDat.UsrCod))
     {
      /***** Show question and button to remove user as administrator *****/
      /* Begin alert */
      Ale_ShowAlertAndButton1 (Ale_QUESTION,ItsMe ? Txt_Do_you_really_want_to_be_removed_as_an_administrator_of_X :
                                                    Txt_Do_you_really_want_to_remove_the_following_user_as_an_administrator_of_X,
                               InsCtrDegName);

      /* Show user's record */
      Rec_ShowSharedRecordUnmodifiable (&Gbl.Usrs.Other.UsrDat);

      /* End alert */
      Ale_ShowAlertAndButton2 (Enr_ActRemAdm[Scope],NULL,NULL,
                               Usr_PutParamOtherUsrCodEncrypted,Gbl.Usrs.Other.UsrDat.EnUsrCod,
                               Btn_REMOVE_BUTTON,
                               ItsMe ? Txt_Remove_me_as_an_administrator :
                                       Txt_Remove_USER_as_an_administrator);
     }
   else
      Ale_ShowAlertUserNotFoundOrYouDoNotHavePermission ();
  }

/*****************************************************************************/
/**** Remove an administrator from current institution, center or degree *****/
/*****************************************************************************/

static void Enr_EffectivelyRemAdm (struct UsrData *UsrDat,Hie_Lvl_Level_t Scope,
                                   long Cod,const char *InsCtrDegName)
  {
   extern const char *Txt_THE_USER_X_has_been_removed_as_administrator_of_Y;
   extern const char *Txt_THE_USER_X_is_not_an_administrator_of_Y;

   if (Usr_CheckIfUsrIsAdm (UsrDat->UsrCod,Scope,Cod))        // User is administrator of current institution/center/degree
     {
      /***** Remove user from the table of admins *****/
      DB_QueryDELETE ("can not remove an administrator",
		      "DELETE FROM usr_admins"
		      " WHERE UsrCod=%ld"
		        " AND Scope='%s'"
		        " AND Cod=%ld",
                      UsrDat->UsrCod,
                      Sco_GetDBStrFromScope (Scope),
                      Cod);

      Ale_ShowAlert (Ale_SUCCESS,Txt_THE_USER_X_has_been_removed_as_administrator_of_Y,
                     UsrDat->FullName,InsCtrDegName);
     }
   else        // User is not an administrator of the current institution/center/degree
      Ale_ShowAlert (Ale_ERROR,Txt_THE_USER_X_is_not_an_administrator_of_Y,
                     UsrDat->FullName,InsCtrDegName);
  }