// swad_center_config.c: configuration of current center

/*
    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-2023 Antonio Caņas Vargas

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

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

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

#define _GNU_SOURCE 		// For asprintf
#include <stdbool.h>		// For boolean type
#include <stddef.h>		// For NULL
#include <stdio.h>		// For asprintf
#include <stdlib.h>		// For free
#include <string.h>		// For string functions
#include <unistd.h>		// For unlink

#include "swad_action_list.h"
#include "swad_alert.h"
#include "swad_box.h"
#include "swad_center.h"
#include "swad_center_database.h"
#include "swad_database.h"
#include "swad_error.h"
#include "swad_figure_cache.h"
#include "swad_form.h"
#include "swad_global.h"
#include "swad_help.h"
#include "swad_hierarchy.h"
#include "swad_hierarchy_config.h"
#include "swad_hierarchy_level.h"
#include "swad_HTML.h"
#include "swad_logo.h"
#include "swad_parameter.h"
#include "swad_place.h"

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

extern struct Globals Gbl;

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

// Center photo will be saved with:
// - maximum width of Ctr_PHOTO_SAVED_MAX_HEIGHT
// - maximum height of Ctr_PHOTO_SAVED_MAX_HEIGHT
// - maintaining the original aspect ratio (aspect ratio recommended: 3:2)
#define Ctr_RECOMMENDED_ASPECT_RATIO	"3:2"
#define Ctr_PHOTO_SAVED_MAX_WIDTH	768
#define Ctr_PHOTO_SAVED_MAX_HEIGHT	768
#define Ctr_PHOTO_SAVED_QUALITY		 90	// 1 to 100

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

static void CtrCfg_Configuration (bool PrintView);
static void CtrCfg_PutIconsCtrConfig (__attribute__((unused)) void *Args);
static void CtrCfg_PutIconToChangePhoto (void);
static void CtrCfg_Title (bool PutLink);
static void CtrCfg_Map (void);
static void CtrCfg_Latitude (void);
static void CtrCfg_Longitude (void);
static void CtrCfg_Altitude (void);
static void CtrCfg_Photo (bool PrintView,bool PutForm,bool PutLink,
			  const char PathPhoto[PATH_MAX + 1]);
static void CtrCfg_GetPhotoAttr (long CtrCod,char **PhotoAttribution);
static void CtrCfg_FreePhotoAttr (char **PhotoAttribution);
static void CtrCfg_Institution (bool PrintView,bool PutForm);
static void CtrCfg_FullName (bool PutForm);
static void CtrCfg_ShrtName (bool PutForm);
static void CtrCfg_Place (bool PutForm);
static void CtrCfg_WWW (bool PrintView,bool PutForm);
static void CtrCfg_Shortcut (bool PrintView);
static void CtrCfg_QR (void);
static void CtrCfg_NumUsrs (void);
static void CtrCfg_NumDegs (void);
static void CtrCfg_NumCrss (void);

/*****************************************************************************/
/****************** Show information of the current center *******************/
/*****************************************************************************/

void CtrCfg_ShowConfiguration (void)
  {
   CtrCfg_Configuration (false);

   /***** Show help to enrol me *****/
   Hlp_ShowHelpWhatWouldYouLikeToDo ();
  }

/*****************************************************************************/
/****************** Print information of the current center ******************/
/*****************************************************************************/

void CtrCfg_PrintConfiguration (void)
  {
   CtrCfg_Configuration (true);
  }

/*****************************************************************************/
/******************* Information of the current center ***********************/
/*****************************************************************************/

static void CtrCfg_Configuration (bool PrintView)
  {
   extern const char *Hlp_CENTER_Information;
   bool PutLink;
   bool PutFormIns;
   bool PutFormName;
   bool PutFormPlc;
   bool PutFormCoor;
   bool PutFormWWW;
   bool PutFormPhoto;
   bool MapIsAvailable;
   char PathPhoto[PATH_MAX + 1];
   bool PhotoExists;

   /***** Trivial check *****/
   if (Gbl.Hierarchy.Ctr.CtrCod <= 0)	// No center selected
      return;

   /***** Initializations *****/
   PutLink      = !PrintView && Gbl.Hierarchy.Ctr.WWW[0];
   PutFormIns   = !PrintView && Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM;
   PutFormName  = !PrintView && Gbl.Usrs.Me.Role.Logged >= Rol_INS_ADM;
   PutFormPlc   =
   PutFormCoor  =
   PutFormWWW   =
   PutFormPhoto = !PrintView && Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM;

   /***** Begin box *****/
   if (PrintView)
      Box_BoxBegin (NULL,NULL,
                    NULL,NULL,
		    NULL,Box_NOT_CLOSABLE);
   else
      Box_BoxBegin (NULL,NULL,
                    CtrCfg_PutIconsCtrConfig,NULL,
		    Hlp_CENTER_Information,Box_NOT_CLOSABLE);

   /***** Title *****/
   CtrCfg_Title (PutLink);

   /**************************** Left part ***********************************/
   HTM_DIV_Begin ("class=\"HIE_CFG_LEFT HIE_CFG_WIDTH\"");

      /***** Begin table *****/
      HTM_TABLE_BeginWidePadding (2);

	 /***** Institution *****/
	 CtrCfg_Institution (PrintView,PutFormIns);

	 /***** Center name *****/
	 CtrCfg_FullName (PutFormName);
	 CtrCfg_ShrtName (PutFormName);

	 /***** Place *****/
	 CtrCfg_Place (PutFormPlc);

	 /***** Coordinates *****/
	 if (PutFormCoor)
	   {
	    CtrCfg_Latitude ();
	    CtrCfg_Longitude ();
	    CtrCfg_Altitude ();
	   }

	 /***** Center WWW *****/
	 CtrCfg_WWW (PrintView,PutFormWWW);

	 /***** Shortcut to the center *****/
	 CtrCfg_Shortcut (PrintView);

	 if (PrintView)
	    /***** QR code with link to the center *****/
	    CtrCfg_QR ();
	 else
	   {
	    /***** Number of users who claim to belong to this center,
		   number of degrees,
		   number of courses *****/
	    CtrCfg_NumUsrs ();
	    CtrCfg_NumDegs ();
	    CtrCfg_NumCrss ();

	    /***** Number of users in courses of this center *****/
	    HieCfg_NumUsrsInCrss (HieLvl_CTR,Gbl.Hierarchy.Ctr.CtrCod,Rol_TCH);
	    HieCfg_NumUsrsInCrss (HieLvl_CTR,Gbl.Hierarchy.Ctr.CtrCod,Rol_NET);
	    HieCfg_NumUsrsInCrss (HieLvl_CTR,Gbl.Hierarchy.Ctr.CtrCod,Rol_STD);
	    HieCfg_NumUsrsInCrss (HieLvl_CTR,Gbl.Hierarchy.Ctr.CtrCod,Rol_UNK);
	   }

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

   /***** End of left part *****/
   HTM_DIV_End ();

   /**************************** Right part **********************************/
   /***** Check map *****/
   MapIsAvailable = Ctr_GetIfMapIsAvailable (&Gbl.Hierarchy.Ctr);

   /***** Check photo *****/
   snprintf (PathPhoto,sizeof (PathPhoto),"%s/%02u/%u/%u.jpg",
	     Cfg_PATH_CTR_PUBLIC,
	     (unsigned) (Gbl.Hierarchy.Ctr.CtrCod % 100),
	     (unsigned)  Gbl.Hierarchy.Ctr.CtrCod,
	     (unsigned)  Gbl.Hierarchy.Ctr.CtrCod);
   PhotoExists = Fil_CheckIfPathExists (PathPhoto);

   if (MapIsAvailable || PhotoExists)
     {
      HTM_DIV_Begin ("class=\"HIE_CFG_RIGHT HIE_CFG_WIDTH\"");

	 /***** Center map *****/
	 if (MapIsAvailable)
	    CtrCfg_Map ();

	 /***** Center photo *****/
	 if (PhotoExists)
	    CtrCfg_Photo (PrintView,PutFormPhoto,PutLink,PathPhoto);

      HTM_DIV_End ();
     }

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

/*****************************************************************************/
/************ Put contextual icons in configuration of a center **************/
/*****************************************************************************/

static void CtrCfg_PutIconsCtrConfig (__attribute__((unused)) void *Args)
  {
   /***** Put icon to print info about center *****/
   Ico_PutContextualIconToPrint (ActPrnCtrInf,
				 NULL,NULL);

   /***** Put icon to view places *****/
   Plc_PutIconToViewPlaces ();

   if (Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM)
      // Only center admins, institution admins and system admins
      // have permission to upload logo and photo of the center
     {
      /***** Put icon to upload logo of center *****/
      Lgo_PutIconToChangeLogo (HieLvl_CTR);

      /***** Put icon to upload photo of center *****/
      CtrCfg_PutIconToChangePhoto ();
     }
  }

/*****************************************************************************/
/************* Put contextual icons to upload photo of center ****************/
/*****************************************************************************/

static void CtrCfg_PutIconToChangePhoto (void)
  {
   Lay_PutContextualLinkOnlyIcon (ActReqCtrPho,NULL,
                                  NULL,NULL,
			          "camera.svg",Ico_BLACK);
  }

/*****************************************************************************/
/******************** Show title in center configuration *********************/
/*****************************************************************************/

static void CtrCfg_Title (bool PutLink)
  {
   HieCfg_Title (PutLink,
		 HieLvl_CTR,			// Logo scope
		 Gbl.Hierarchy.Ctr.CtrCod,	// Logo code
                 Gbl.Hierarchy.Ctr.ShrtName,	// Logo short name
		 Gbl.Hierarchy.Ctr.FullName,	// Logo full name
		 Gbl.Hierarchy.Ctr.WWW,		// Logo www
		 Gbl.Hierarchy.Ctr.FullName);	// Text full name
  }

/*****************************************************************************/
/****************************** Draw center map ******************************/
/*****************************************************************************/

#define CtrCfg_MAP_CONTAINER_ID "ctr_mapid"

static void CtrCfg_Map (void)
  {
   /***** Leaflet CSS *****/
   Map_LeafletCSS ();

   /***** Leaflet script *****/
   Map_LeafletScript ();

   /***** Container for the map *****/
   HTM_DIV_Begin ("id=\"%s\"",CtrCfg_MAP_CONTAINER_ID);
   HTM_DIV_End ();

   /***** Script to draw the map *****/
   HTM_SCRIPT_Begin (NULL,NULL);

      /* Let's create a map with pretty Mapbox Streets tiles */
      Map_CreateMap (CtrCfg_MAP_CONTAINER_ID,&Gbl.Hierarchy.Ctr.Coord,16);

      /* Add Mapbox Streets tile layer to our map */
      Map_AddTileLayer ();

      /* Add marker */
      Map_AddMarker (&Gbl.Hierarchy.Ctr.Coord);

      /* Add popup */
      Map_AddPopup (Gbl.Hierarchy.Ctr.ShrtName,Gbl.Hierarchy.Ins.ShrtName,
		    true);	// Open

   HTM_SCRIPT_End ();
  }

/*****************************************************************************/
/************************** Edit center coordinates **************************/
/*****************************************************************************/

static void CtrCfg_Latitude (void)
  {
   extern const char *Txt_Latitude;

   /***** Latitude *****/
   HTM_TR_Begin (NULL);

      /* Label */
      Frm_LabelColumn ("RT","Latitude",Txt_Latitude);

      /* Data */
      HTM_TD_Begin ("class=\"LB\"");
	 Frm_BeginForm (ActChgCtrLatCfg);
	    HTM_INPUT_FLOAT ("Latitude",
			     -90.0,	// South Pole
			     90.0,	// North Pole
			     0.0,	// step="any"
			     Gbl.Hierarchy.Ctr.Coord.Latitude,false,
			     "class=\"INPUT_COORD INPUT_%s\""
			     " required=\"required\"",
			     The_GetSuffix ());
	 Frm_EndForm ();
      HTM_TD_End ();

   HTM_TR_End ();
  }

static void CtrCfg_Longitude (void)
  {
   extern const char *Txt_Longitude;

   /***** Longitude *****/
   HTM_TR_Begin (NULL);

      /* Label */
      Frm_LabelColumn ("RT","Longitude",Txt_Longitude);

      /* Data */
      HTM_TD_Begin ("class=\"LB\"");
	 Frm_BeginForm (ActChgCtrLgtCfg);
	    HTM_INPUT_FLOAT ("Longitude",
			     -180.0,	// West
			     180.0,	// East
			     0.0,	// step="any"
			     Gbl.Hierarchy.Ctr.Coord.Longitude,false,
			     "class=\"INPUT_COORD INPUT_%s\""
			     " required=\"required\"",
			     The_GetSuffix ());
	 Frm_EndForm ();
      HTM_TD_End ();

   HTM_TR_End ();
  }

static void CtrCfg_Altitude (void)
  {
   extern const char *Txt_Altitude;

   /***** Altitude *****/
   HTM_TR_Begin (NULL);

      /* Label */
      Frm_LabelColumn ("RT","Altitude",Txt_Altitude);

      /* Data */
      HTM_TD_Begin ("class=\"LB\"");
	 Frm_BeginForm (ActChgCtrAltCfg);
	    HTM_INPUT_FLOAT ("Altitude",
			     -413.0,	// Dead Sea shore
			     8848.0,	// Mount Everest
			     0.0,	// step="any"
			     Gbl.Hierarchy.Ctr.Coord.Altitude,false,
			     "class=\"INPUT_COORD INPUT_%s\""
			     " required=\"required\"",
			     The_GetSuffix ());
	 Frm_EndForm ();
      HTM_TD_End ();

   HTM_TR_End ();
  }

/*****************************************************************************/
/***************************** Draw center photo *****************************/
/*****************************************************************************/

static void CtrCfg_Photo (bool PrintView,bool PutForm,bool PutLink,
			  const char PathPhoto[PATH_MAX + 1])
  {
   char *PhotoAttribution = NULL;
   char *URL;
   char *Icon;

   /***** Trivial checks *****/
   if (!PathPhoto)
      return;
   if (!PathPhoto[0])
      return;

   /***** Get photo attribution *****/
   CtrCfg_GetPhotoAttr (Gbl.Hierarchy.Ctr.CtrCod,&PhotoAttribution);

   /***** Photo image *****/
   HTM_DIV_Begin ("class=\"CM\"");
      if (PutLink)
	 HTM_A_Begin ("href=\"%s\" target=\"_blank\"",Gbl.Hierarchy.Ctr.WWW);
      if (asprintf (&URL,"%s/%02u/%u",
		    Cfg_URL_CTR_PUBLIC,
		    (unsigned) (Gbl.Hierarchy.Ctr.CtrCod % 100),
		    (unsigned) Gbl.Hierarchy.Ctr.CtrCod) < 0)
	 Err_NotEnoughMemoryExit ();
      if (asprintf (&Icon,"%u.jpg",
		    (unsigned) Gbl.Hierarchy.Ctr.CtrCod) < 0)
	 Err_NotEnoughMemoryExit ();
      HTM_IMG (URL,Icon,Gbl.Hierarchy.Ctr.FullName,
	       "class=\"%s\"",PrintView ? "CENTER_PHOTO_PRINT CENTER_PHOTO_WIDTH" :
					  "CENTER_PHOTO_SHOW CENTER_PHOTO_WIDTH");
      free (Icon);
      free (URL);
      if (PutLink)
	 HTM_A_End ();
   HTM_DIV_End ();

   /****** Photo attribution ******/
   if (PutForm)
     {
      HTM_DIV_Begin ("class=\"CM\"");
	 Frm_BeginForm (ActChgCtrPhoAtt);
	    HTM_TEXTAREA_Begin ("id=\"AttributionArea\" name=\"Attribution\" rows=\"3\""
				" onchange=\"this.form.submit();return false;\"");
	       if (PhotoAttribution)
		  HTM_Txt (PhotoAttribution);
	    HTM_TEXTAREA_End ();
	 Frm_EndForm ();
      HTM_DIV_End ();
     }
   else if (PhotoAttribution)
     {
      HTM_DIV_Begin ("class=\"ATTRIBUTION\"");
	 HTM_Txt (PhotoAttribution);
      HTM_DIV_End ();
     }

   /****** Free memory used for photo attribution ******/
   CtrCfg_FreePhotoAttr (&PhotoAttribution);
  }

/*****************************************************************************/
/******************* Get photo attribution from database *********************/
/*****************************************************************************/

static void CtrCfg_GetPhotoAttr (long CtrCod,char **PhotoAttribution)
  {
   MYSQL_RES *mysql_res;
   MYSQL_ROW row;
   size_t Length;

   /***** Free possible former photo attribution *****/
   CtrCfg_FreePhotoAttr (PhotoAttribution);

   /***** Get photo attribution from database *****/
   if (Ctr_DB_GetPhotoAttribution (&mysql_res,CtrCod))
     {
      /* Get row */
      row = mysql_fetch_row (mysql_res);

      /* Get the attribution of the photo of the center (row[0]) */
      if (row[0])
	 if (row[0][0])
	   {
	    Length = strlen (row[0]);
	    if (((*PhotoAttribution) = malloc (Length + 1)) == NULL)
               Err_NotEnoughMemoryExit ();
	    Str_Copy (*PhotoAttribution,row[0],Length);
	   }
     }

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

/*****************************************************************************/
/****************** Free memory used for photo attribution *******************/
/*****************************************************************************/

static void CtrCfg_FreePhotoAttr (char **PhotoAttribution)
  {
   if (*PhotoAttribution)
     {
      free (*PhotoAttribution);
      *PhotoAttribution = NULL;
     }
  }

/*****************************************************************************/
/***************** Show institution in center configuration ******************/
/*****************************************************************************/

static void CtrCfg_Institution (bool PrintView,bool PutForm)
  {
   extern const char *Par_CodeStr[];
   extern const char *Txt_Institution;
   unsigned NumIns;

   /***** Institution *****/
   HTM_TR_Begin (NULL);

      /* Label */
      Frm_LabelColumn ("RT",PutForm ? Par_CodeStr[ParCod_OthIns] :
				      NULL,
		       Txt_Institution);

      /* Data */
      HTM_TD_Begin ("class=\"LT DAT_%s\"",The_GetSuffix ());
	 if (PutForm)
	   {
	    /* Get list of institutions of the current country */
	    Ins_GetBasicListOfInstitutions (Gbl.Hierarchy.Cty.CtyCod);

	    /* Put form to select institution */
	    Frm_BeginForm (ActChgCtrInsCfg);
	       HTM_SELECT_Begin (HTM_SUBMIT_ON_CHANGE,
				 "id=\"OthInsCod\" name=\"OthInsCod\""
				 " class=\"INPUT_SHORT_NAME INPUT_%s\"",
				 The_GetSuffix ());
		  for (NumIns = 0;
		       NumIns < Gbl.Hierarchy.Inss.Num;
		       NumIns++)
		     HTM_OPTION (HTM_Type_LONG,&Gbl.Hierarchy.Inss.Lst[NumIns].InsCod,
				 Gbl.Hierarchy.Inss.Lst[NumIns].InsCod == Gbl.Hierarchy.Ins.InsCod,false,
				 "%s",Gbl.Hierarchy.Inss.Lst[NumIns].ShrtName);
	       HTM_SELECT_End ();
	    Frm_EndForm ();

	    /* Free list of institutions */
	    Ins_FreeListInstitutions ();
	   }
	 else	// I can not move center to another institution
	   {
	    if (!PrintView)
	      {
	       Frm_BeginFormGoTo (ActSeeInsInf);
		  ParCod_PutPar (ParCod_Ins,Gbl.Hierarchy.Ins.InsCod);
		  HTM_BUTTON_Submit_Begin (Str_BuildGoToTitle (Gbl.Hierarchy.Ins.ShrtName),
		                           "class=\"LT BT_LINK\"");
		  Str_FreeGoToTitle ();
	      }

	    Lgo_DrawLogo (HieLvl_INS,Gbl.Hierarchy.Ins.InsCod,Gbl.Hierarchy.Ins.ShrtName,
			  20,"LM",true);
	    HTM_NBSP ();
	    HTM_Txt (Gbl.Hierarchy.Ins.FullName);

	    if (!PrintView)
	      {
		  HTM_BUTTON_End ();
	       Frm_EndForm ();
	      }
	   }
      HTM_TD_End ();

   HTM_TR_End ();
  }

/*****************************************************************************/
/************** Show center full name in center configuration ****************/
/*****************************************************************************/

static void CtrCfg_FullName (bool PutForm)
  {
   extern const char *Txt_Center;

   HieCfg_FullName (PutForm,Txt_Center,ActRenCtrFulCfg,
		    Gbl.Hierarchy.Ctr.FullName);
  }

/*****************************************************************************/
/************** Show center short name in center configuration ***************/
/*****************************************************************************/

static void CtrCfg_ShrtName (bool PutForm)
  {
   HieCfg_ShrtName (PutForm,ActRenCtrShoCfg,Gbl.Hierarchy.Ctr.ShrtName);
  }

/*****************************************************************************/
/**************** Show center place in center configuration ******************/
/*****************************************************************************/

static void CtrCfg_Place (bool PutForm)
  {
   extern const char *Par_CodeStr[];
   extern const char *Txt_Place;
   extern const char *Txt_Another_place;
   struct Plc_Places Places;
   struct Plc_Place Plc;
   unsigned NumPlc;

   /***** Reset places context *****/
   Plc_ResetPlaces (&Places);

   /***** Get data of place *****/
   Plc.PlcCod = Gbl.Hierarchy.Ctr.PlcCod;
   Plc_GetPlaceDataByCod (&Plc);

   /***** Place *****/
   HTM_TR_Begin (NULL);

      /* Label */
      Frm_LabelColumn ("RT",PutForm ? Par_CodeStr[ParCod_Plc] :
				      NULL,
		       Txt_Place);

      /* Data */
      HTM_TD_Begin ("class=\"LB DAT_%s\"",The_GetSuffix ());
	 if (PutForm)
	   {
	    /* Get list of places of the current institution */
	    Places.SelectedOrder = Plc_ORDER_BY_PLACE;
	    Plc_GetListPlaces (&Places);

	    /* Put form to select place */
	    Frm_BeginForm (ActChgCtrPlcCfg);
	       HTM_SELECT_Begin (HTM_SUBMIT_ON_CHANGE,
				 "name=\"PlcCod\""
				 " class=\"INPUT_SHORT_NAME INPUT_%s\"",
				 The_GetSuffix ());
		  HTM_OPTION (HTM_Type_STRING,"0",
			      Gbl.Hierarchy.Ctr.PlcCod == 0,false,
			      "%s",Txt_Another_place);
		  for (NumPlc = 0;
		       NumPlc < Places.Num;
		       NumPlc++)
		     HTM_OPTION (HTM_Type_LONG,&Places.Lst[NumPlc].PlcCod,
				 Places.Lst[NumPlc].PlcCod == Gbl.Hierarchy.Ctr.PlcCod,false,
				 "%s",Places.Lst[NumPlc].ShrtName);
	       HTM_SELECT_End ();
	    Frm_EndForm ();

	    /* Free list of places */
	    Plc_FreeListPlaces (&Places);
	   }
	 else	// I can not change center place
	    HTM_Txt (Plc.FullName);
      HTM_TD_End ();

   HTM_TR_End ();
  }

/*****************************************************************************/
/***************** Show center WWW in center configuration *******************/
/*****************************************************************************/

static void CtrCfg_WWW (bool PrintView,bool PutForm)
  {
   HieCfg_WWW (PrintView,PutForm,ActChgCtrWWWCfg,Gbl.Hierarchy.Ctr.WWW);
  }

/*****************************************************************************/
/*************** Show center shortcut in center configuration ****************/
/*****************************************************************************/

static void CtrCfg_Shortcut (bool PrintView)
  {
   HieCfg_Shortcut (PrintView,ParCod_Ctr,Gbl.Hierarchy.Ctr.CtrCod);
  }

/*****************************************************************************/
/****************** Show center QR in center configuration *******************/
/*****************************************************************************/

static void CtrCfg_QR (void)
  {
   HieCfg_QR (ParCod_Ctr,Gbl.Hierarchy.Ctr.CtrCod);
  }

/*****************************************************************************/
/*** Show number of users who claim to belong to center in center config. ****/
/*****************************************************************************/

static void CtrCfg_NumUsrs (void)
  {
   extern const char *Txt_Users_of_the_center;

   /***** Number of users *****/
   HTM_TR_Begin (NULL);

      /* Label */
      Frm_LabelColumn ("RT",NULL,Txt_Users_of_the_center);

      /* Data */
      HTM_TD_Begin ("class=\"LB DAT_%s\"",The_GetSuffix ());
	 HTM_Unsigned (Ctr_GetCachedNumUsrsWhoClaimToBelongToCtr (&Gbl.Hierarchy.Ctr));
      HTM_TD_End ();

   HTM_TR_End ();
  }

/*****************************************************************************/
/************** Show number of degrees in center configuration ***************/
/*****************************************************************************/

static void CtrCfg_NumDegs (void)
  {
   extern const char *Txt_Degrees;
   extern const char *Txt_Degrees_of_CENTER_X;
   char *Title;

   /***** Number of degrees *****/
   HTM_TR_Begin (NULL);

      /* Label */
      Frm_LabelColumn ("RT",NULL,Txt_Degrees);

      /* Data */
      HTM_TD_Begin ("class=\"LB DAT_%s\"",The_GetSuffix ());
	 Frm_BeginFormGoTo (ActSeeDeg);
	    ParCod_PutPar (ParCod_Ctr,Gbl.Hierarchy.Ctr.CtrCod);
	    if (asprintf (&Title,Txt_Degrees_of_CENTER_X,Gbl.Hierarchy.Ctr.ShrtName) < 0)
	       Err_NotEnoughMemoryExit ();
	    HTM_BUTTON_Submit_Begin (Title,"class=\"LB BT_LINK\"");
	    free (Title);
	       HTM_Unsigned (Deg_GetCachedNumDegsInCtr (Gbl.Hierarchy.Ctr.CtrCod));
	    HTM_BUTTON_End ();
	 Frm_EndForm ();
      HTM_TD_End ();

   HTM_TR_End ();
  }

/*****************************************************************************/
/************** Show number of courses in center configuration ***************/
/*****************************************************************************/

static void CtrCfg_NumCrss (void)
  {
   extern const char *Txt_Courses;

   /***** Number of courses *****/
   HTM_TR_Begin (NULL);

      /* Label */
      Frm_LabelColumn ("RT",NULL,Txt_Courses);

      /* Data */
      HTM_TD_Begin ("class=\"LB DAT_%s\"",The_GetSuffix ());
	 HTM_Unsigned (Crs_GetCachedNumCrssInCtr (Gbl.Hierarchy.Ctr.CtrCod));
      HTM_TD_End ();

   HTM_TR_End ();
  }

/*****************************************************************************/
/*********** Show a form for sending a logo of the current center ************/
/*****************************************************************************/

void CtrCfg_ReqLogo (void)
  {
   Lgo_RequestLogo (HieLvl_CTR);
  }

/*****************************************************************************/
/***************** Receive the logo of the current center ********************/
/*****************************************************************************/

void CtrCfg_ReceiveLogo (void)
  {
   Lgo_ReceiveLogo (HieLvl_CTR);
  }

/*****************************************************************************/
/****************** Remove the logo of the current center ********************/
/*****************************************************************************/

void CtrCfg_RemoveLogo (void)
  {
   Lgo_RemoveLogo (HieLvl_CTR);
  }

/*****************************************************************************/
/*********** Show a form for sending a photo of the current center ***********/
/*****************************************************************************/

void CtrCfg_ReqPhoto (void)
  {
   extern const char *Txt_Photo;
   extern const char *Txt_Recommended_aspect_ratio;
   extern const char *Txt_Recommended_resolution;
   extern const char *Txt_XxY_pixels_or_higher;
   extern const char *Txt_File_with_the_photo;

   /***** Begin form to upload photo *****/
   Frm_BeginForm (ActRecCtrPho);

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

	 /***** Write help message *****/
	 Ale_ShowAlert (Ale_INFO,"%s: %s<br />"
				 "%s: %u&times;%u %s",
			Txt_Recommended_aspect_ratio,
			Ctr_RECOMMENDED_ASPECT_RATIO,
			Txt_Recommended_resolution,
			Ctr_PHOTO_SAVED_MAX_WIDTH,
			Ctr_PHOTO_SAVED_MAX_HEIGHT,
			Txt_XxY_pixels_or_higher);

	 /***** Upload photo *****/
	 HTM_LABEL_Begin ("class=\"FORM_IN_%s\"",The_GetSuffix ());
	    HTM_TxtColonNBSP (Txt_File_with_the_photo);
	    HTM_INPUT_FILE (Fil_NAME_OF_PARAM_FILENAME_ORG,"image/*",
			    HTM_SUBMIT_ON_CHANGE,
			    NULL);
	 HTM_LABEL_End ();

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

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

/*****************************************************************************/
/****************** Receive a photo of the current center ********************/
/*****************************************************************************/

void CtrCfg_ReceivePhoto (void)
  {
   extern const char *Txt_Wrong_file_type;
   char Path[PATH_MAX + 1];
   struct Par_Param *Par;
   char FileNameImgSrc[PATH_MAX + 1];
   char *PtrExtension;
   size_t LengthExtension;
   char MIMEType[Brw_MAX_BYTES_MIME_TYPE + 1];
   char PathFileImgTmp[PATH_MAX + 1];	// Full name (including path and .jpg) of the destination temporary file
   char PathFileImg[PATH_MAX + 1];	// Full name (including path and .jpg) of the destination file
   bool WrongType = false;
   char Command[1024 + PATH_MAX * 2];
   int ReturnCode;
   char ErrorMsg[256];

   /***** Copy in disk the file received *****/
   Par = Fil_StartReceptionOfFile (Fil_NAME_OF_PARAM_FILENAME_ORG,
                                   FileNameImgSrc,MIMEType);

   /* Check if the file type is image/ or application/octet-stream */
   if (strncmp (MIMEType,"image/",strlen ("image/")))
      if (strcmp (MIMEType,"application/octet-stream"))
	 if (strcmp (MIMEType,"application/octetstream"))
	    if (strcmp (MIMEType,"application/octet"))
	       WrongType = true;
   if (WrongType)
     {
      Ale_ShowAlert (Ale_WARNING,Txt_Wrong_file_type);
      return;
     }

   /***** Create private directories if not exist *****/
   /* Create private directory for images if it does not exist */
   Fil_CreateDirIfNotExists (Cfg_PATH_MEDIA_PRIVATE);

   /* Create temporary private directory for images if it does not exist */
   Fil_CreateDirIfNotExists (Cfg_PATH_MEDIA_TMP_PRIVATE);

   /* Get filename extension */
   if ((PtrExtension = strrchr (FileNameImgSrc,(int) '.')) == NULL)
     {
      Ale_ShowAlert (Ale_WARNING,Txt_Wrong_file_type);
      return;
     }
   LengthExtension = strlen (PtrExtension);
   if (LengthExtension < Fil_MIN_BYTES_FILE_EXTENSION ||
       LengthExtension > Fil_MAX_BYTES_FILE_EXTENSION)
     {
      Ale_ShowAlert (Ale_WARNING,Txt_Wrong_file_type);
      return;
     }

   /* End the reception of image in a temporary file */
   snprintf (PathFileImgTmp,sizeof (PathFileImgTmp),"%s/%s.%s",
             Cfg_PATH_MEDIA_TMP_PRIVATE,Cry_GetUniqueNameEncrypted (),PtrExtension);
   if (!Fil_EndReceptionOfFile (PathFileImgTmp,Par))
     {
      Ale_ShowAlert (Ale_WARNING,"Error copying file.");
      return;
     }

   /***** Creates public directories if not exist *****/
   Fil_CreateDirIfNotExists (Cfg_PATH_CTR_PUBLIC);
   snprintf (Path,sizeof (Path),"%s/%02u",
	     Cfg_PATH_CTR_PUBLIC,(unsigned) (Gbl.Hierarchy.Ctr.CtrCod % 100));
   Fil_CreateDirIfNotExists (Path);
   snprintf (Path,sizeof (Path),"%s/%02u/%u",
	     Cfg_PATH_CTR_PUBLIC,
	     (unsigned) (Gbl.Hierarchy.Ctr.CtrCod % 100),
	     (unsigned)  Gbl.Hierarchy.Ctr.CtrCod);
   Fil_CreateDirIfNotExists (Path);

   /***** Convert temporary file to public JPEG file *****/
   snprintf (PathFileImg,sizeof (PathFileImg),"%s/%02u/%u/%u.jpg",
	     Cfg_PATH_CTR_PUBLIC,
	     (unsigned) (Gbl.Hierarchy.Ctr.CtrCod % 100),
	     (unsigned)  Gbl.Hierarchy.Ctr.CtrCod,
	     (unsigned)  Gbl.Hierarchy.Ctr.CtrCod);

   /* Call to program that makes the conversion */
   snprintf (Command,sizeof (Command),
             "convert %s -resize '%ux%u>' -quality %u %s",
             PathFileImgTmp,
             Ctr_PHOTO_SAVED_MAX_WIDTH,
             Ctr_PHOTO_SAVED_MAX_HEIGHT,
             Ctr_PHOTO_SAVED_QUALITY,
             PathFileImg);
   ReturnCode = system (Command);
   if (ReturnCode == -1)
      Err_ShowErrorAndExit ("Error when running command to process image.");

   /***** Write message depending on return code *****/
   ReturnCode = WEXITSTATUS(ReturnCode);
   if (ReturnCode != 0)
     {
      snprintf (ErrorMsg,sizeof (ErrorMsg),
	        "Image could not be processed successfully.<br />"
		"Error code returned by the program of processing: %d",
	        ReturnCode);
      Err_ShowErrorAndExit (ErrorMsg);
     }

   /***** Remove temporary file *****/
   unlink (PathFileImgTmp);

   /***** Show the center information again *****/
   CtrCfg_ShowConfiguration ();
  }

/*****************************************************************************/
/**************** Change the attribution of a center photo *******************/
/*****************************************************************************/

void CtrCfg_ChangeCtrPhotoAttr (void)
  {
   char NewPhotoAttribution[Med_MAX_BYTES_ATTRIBUTION + 1];

   /***** Get parameters from form *****/
   /* Get the new photo attribution for the center */
   Par_GetParText ("Attribution",NewPhotoAttribution,Med_MAX_BYTES_ATTRIBUTION);

   /***** Update the table changing old attribution by new attribution *****/
   Ctr_DB_UpdateCtrPhotoAttribution (Gbl.Hierarchy.Ctr.CtrCod,NewPhotoAttribution);

   /***** Show the center information again *****/
   CtrCfg_ShowConfiguration ();
  }

/*****************************************************************************/
/********************* Change the institution of a center ********************/
/*****************************************************************************/

void CtrCfg_ChangeCtrIns (void)
  {
   extern const char *Txt_The_center_X_already_exists;
   extern const char *Txt_The_center_X_has_been_moved_to_the_institution_Y;
   struct Ins_Instit NewIns;

   /***** Get parameter with institution code *****/
   NewIns.InsCod = ParCod_GetAndCheckPar (ParCod_OthIns);

   /***** Check if institution has changed *****/
   if (NewIns.InsCod != Gbl.Hierarchy.Ctr.InsCod)
     {
      /***** Get data of new institution *****/
      Ins_GetInstitDataByCod (&NewIns);

      /***** Check if it already exists a center with the same name in the new institution *****/
      if (Ctr_DB_CheckIfCtrNameExistsInIns ("ShortName",
                                            Gbl.Hierarchy.Ctr.ShrtName,
                                            Gbl.Hierarchy.Ctr.CtrCod,
                                            NewIns.InsCod))
	 /***** Create warning message *****/
	 Ale_CreateAlert (Ale_WARNING,NULL,
	                  Txt_The_center_X_already_exists,
		          Gbl.Hierarchy.Ctr.ShrtName);
      else if (Ctr_DB_CheckIfCtrNameExistsInIns ("FullName",
                                                 Gbl.Hierarchy.Ctr.FullName,
                                                 Gbl.Hierarchy.Ctr.CtrCod,
                                                 NewIns.InsCod))
	 /***** Create warning message *****/
	 Ale_CreateAlert (Ale_WARNING,NULL,
	                  Txt_The_center_X_already_exists,
		          Gbl.Hierarchy.Ctr.FullName);
      else
	{
	 /***** Update institution in table of centers *****/
	 Ctr_DB_UpdateCtrIns (Gbl.Hierarchy.Ctr.CtrCod,NewIns.InsCod);
	 Gbl.Hierarchy.Ctr.InsCod =
	 Gbl.Hierarchy.Ins.InsCod = NewIns.InsCod;

	 /***** Initialize again current course, degree, center... *****/
	 Hie_InitHierarchy ();

	 /***** Create message to show the change made *****/
         Ale_CreateAlert (Ale_SUCCESS,NULL,
                          Txt_The_center_X_has_been_moved_to_the_institution_Y,
		          Gbl.Hierarchy.Ctr.FullName,NewIns.FullName);
	}
     }
  }

/*****************************************************************************/
/************************ Change the place of a center ***********************/
/*****************************************************************************/

void CtrCfg_ChangeCtrPlc (void)
  {
   extern const char *Txt_The_place_of_the_center_has_changed;
   long NewPlcCod;

   /***** Get parameter with place code *****/
   NewPlcCod = ParCod_GetAndCheckParMin (ParCod_Plc,0);	// 0 (another place) is allowed here

   /***** Update place in table of centers *****/
   Ctr_DB_UpdateCtrPlc (Gbl.Hierarchy.Ctr.CtrCod,NewPlcCod);
   Gbl.Hierarchy.Ctr.PlcCod = NewPlcCod;

   /***** Write message to show the change made *****/
   Ale_ShowAlert (Ale_SUCCESS,Txt_The_place_of_the_center_has_changed);

   /***** Show the form again *****/
   CtrCfg_ShowConfiguration ();
  }

/*****************************************************************************/
/*************** Change the name of a center in configuration ****************/
/*****************************************************************************/

void CtrCfg_RenameCenterShort (void)
  {
   Ctr_RenameCenter (&Gbl.Hierarchy.Ctr,Cns_SHRT_NAME);
  }

void CtrCfg_RenameCenterFull (void)
  {
   Ctr_RenameCenter (&Gbl.Hierarchy.Ctr,Cns_FULL_NAME);
  }

/*****************************************************************************/
/********************** Change the latitude of a center **********************/
/*****************************************************************************/

void CtrCfg_ChangeCtrLatitude (void)
  {
   char LatitudeStr[64];
   double NewLatitude;

   /***** Get latitude *****/
   Par_GetParText ("Latitude",LatitudeStr,sizeof (LatitudeStr) - 1);
   NewLatitude = Map_GetLatitudeFromStr (LatitudeStr);

   /***** Update database changing old latitude by new latitude *****/
   Ctr_DB_UpdateCtrCoordinate (Gbl.Hierarchy.Ctr.CtrCod,"Latitude",NewLatitude);
   Gbl.Hierarchy.Ctr.Coord.Latitude = NewLatitude;

   /***** Show the form again *****/
   CtrCfg_ShowConfiguration ();
  }

/*****************************************************************************/
/********************** Change the longitude of a center **********************/
/*****************************************************************************/

void CtrCfg_ChangeCtrLongitude (void)
  {
   char LongitudeStr[64];
   double NewLongitude;

   /***** Get longitude *****/
   Par_GetParText ("Longitude",LongitudeStr,sizeof (LongitudeStr) - 1);
   NewLongitude = Map_GetLongitudeFromStr (LongitudeStr);

   /***** Update database changing old longitude by new longitude *****/
   Ctr_DB_UpdateCtrCoordinate (Gbl.Hierarchy.Ctr.CtrCod,"Longitude",NewLongitude);
   Gbl.Hierarchy.Ctr.Coord.Longitude = NewLongitude;

   /***** Show the form again *****/
   CtrCfg_ShowConfiguration ();
  }

/*****************************************************************************/
/********************** Change the latitude of a center **********************/
/*****************************************************************************/

void CtrCfg_ChangeCtrAltitude (void)
  {
   char AltitudeStr[64];
   double NewAltitude;

   /***** Get altitude *****/
   Par_GetParText ("Altitude",AltitudeStr,sizeof (AltitudeStr) - 1);
   NewAltitude = Map_GetAltitudeFromStr (AltitudeStr);

   /***** Update database changing old altitude by new altitude *****/
   Ctr_DB_UpdateCtrCoordinate (Gbl.Hierarchy.Ctr.CtrCod,"Altitude",NewAltitude);
   Gbl.Hierarchy.Ctr.Coord.Altitude = NewAltitude;

   /***** Show the form again *****/
   CtrCfg_ShowConfiguration ();
  }

/*****************************************************************************/
/************************* Change the URL of a center ************************/
/*****************************************************************************/

void CtrCfg_ChangeCtrWWW (void)
  {
   extern const char *Txt_The_new_web_address_is_X;
   char NewWWW[Cns_MAX_BYTES_WWW + 1];

   /***** Get parameters from form *****/
   /* Get the new WWW for the center */
   Par_GetParText ("WWW",NewWWW,Cns_MAX_BYTES_WWW);

   /***** Check if new WWW is empty *****/
   if (NewWWW[0])
     {
      /***** Update database changing old WWW by new WWW *****/
      Ctr_DB_UpdateCtrWWW (Gbl.Hierarchy.Ctr.CtrCod,NewWWW);
      Str_Copy (Gbl.Hierarchy.Ctr.WWW,NewWWW,sizeof (Gbl.Hierarchy.Ctr.WWW) - 1);

      /***** Write message to show the change made *****/
      Ale_ShowAlert (Ale_SUCCESS,Txt_The_new_web_address_is_X,
		     NewWWW);
     }
   else
      Ale_CreateAlertYouCanNotLeaveFieldEmpty ();

   /***** Show the form again *****/
   CtrCfg_ShowConfiguration ();
  }

/*****************************************************************************/
/** Show message of success after changing a center in center configuration **/
/*****************************************************************************/

void CtrCfg_ContEditAfterChgCtr (void)
  {
   /***** Write error/success message *****/
   Ale_ShowAlerts (NULL);

   /***** Show the form again *****/
   CtrCfg_ShowConfiguration ();
  }