swad-core/swad_timetable.c

// swad_timetable.c: timetables

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

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

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

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

#define _GNU_SOURCE 		// For asprintf
#include <linux/stddef.h>	// For NULL
#include <stdio.h>		// For asprintf
#include <stdlib.h>		// For malloc, calloc, free
#include <string.h>		// For string functions

#include "swad_box.h"
#include "swad_calendar.h"
#include "swad_database.h"
#include "swad_form.h"
#include "swad_global.h"
#include "swad_language.h"
#include "swad_parameter.h"
#include "swad_setting.h"
#include "swad_table.h"
#include "swad_timetable.h"

/*****************************************************************************/
/*************************** External constants ******************************/
/*****************************************************************************/

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

extern struct Globals Gbl;

/*****************************************************************************/
/************************ Internal constants and types ***********************/
/*****************************************************************************/

#define TT_DAYS_PER_WEEK			  7	// Seven days per week

#define TT_MINUTES_PER_HOUR		         60	// Number of minutes in 1 hour
#define TT_SECONDS_PER_MINUTE		         60	// Number of seconds in 1 minute
#define TT_SECONDS_PER_HOUR 	(TT_SECONDS_PER_MINUTE * TT_MINUTES_PER_HOUR)	// Number of seconds in 1 hour

#define TT_START_HOUR			  	  6	// Day starts at this hour
#define TT_END_HOUR				 24	// Day  ends  at this hour

#define TT_MIN_MINUTES_PER_INTERVAL		  5
#define TT_MAX_MINUTES_PER_INTERVAL		 30

#define TT_MAX_COLUMNS_PER_CELL			  3	// Maximum number of items (i.e. classes) in a timetable cell (1, 2, 3 or 4)
#define TT_NUM_MINICOLUMNS_PER_DAY		  6	// Least common multiple of 1,2,3,...,TT_MAX_COLUMNS_PER_CELL

#define TT_PERCENT_WIDTH_OF_A_MINICOLUMN	  2	// Width (%) of each minicolumn
#define TT_PERCENT_WIDTH_OF_A_DAY		(TT_PERCENT_WIDTH_OF_A_MINICOLUMN * TT_NUM_MINICOLUMNS_PER_DAY)	// Width (%) of each day
#define TT_PERCENT_WIDTH_OF_ALL_DAYS		(TT_PERCENT_WIDTH_OF_A_DAY * TT_DAYS_PER_WEEK)			// Width (%) of all days
#define TT_PERCENT_WIDTH_OF_A_SEPARATION_COLUMN	  1								// Width (%) of left and right columns
#define TT_PERCENT_WIDTH_OF_AN_HOUR_COLUMN 	 ((100 - TT_PERCENT_WIDTH_OF_ALL_DAYS - TT_PERCENT_WIDTH_OF_A_SEPARATION_COLUMN * 2) / 2)	// Width (%) of the separation columns

#define TT_MAX_BYTES_STR_CLASS_TYPE		256
#define TT_MAX_BYTES_STR_DURATION		 32	// "hh:mm h"

struct TT_Column
  {
   long CrsCod;		// Course code (-1 if no course selected)
   long GrpCod;		// Group code (-1 if no group selected)
   TT_IntervalType_t IntervalType;
   TT_ClassType_t ClassType;
   unsigned DurationIntervals;
   char Info[TT_MAX_BYTES_INFO + 1];
   // char Place[TT_MAX_BYTES_PLACE + 1];
  };

struct TT_Cell
  {
   unsigned NumColumns;
   struct TT_Column Columns[TT_MAX_COLUMNS_PER_CELL];
  };

/*****************************************************************************/
/************************* Internal global variables *************************/
/*****************************************************************************/

char *TT_ClassTypeDB[TT_NUM_CLASS_TYPES] =
  {
   "free",
   "lecture",
   "practical",
   "tutoring",
  };

struct TT_Cell *TT_TimeTable[TT_DAYS_PER_WEEK];

/* Possible resolutions of the timetable in minutes */
#define TT_NUM_RESOLUTIONS 3
unsigned TT_MinutesPerInterval[TT_NUM_RESOLUTIONS] =
  {
    5,	//  5 minutes
   15,	// 15 minutes	// Use 10 or 15 minutes (15 looks better), never both together
   30,	// 30 minutes
  };

/*****************************************************************************/
/***************************** Internal prototypes **************************/
/*****************************************************************************/

static void TT_TimeTableConfigureIntervalsAndAllocateTimeTable (void);
static void TT_FreeTimeTable (void);

static void TT_ShowTimeTableGrpsSelected (void);
static void TT_GetParamsTimeTable (void);
static void TT_PutContextualIcons (void);
static void TT_PutFormToSelectWhichGroupsToShow (void);

static void TT_PutIconToViewCrsTT (void);
static void TT_PutIconToViewMyTT (void);

static void TT_WriteCrsTimeTableIntoDB (long CrsCod);
static void TT_WriteTutTimeTableIntoDB (long UsrCod);
static void TT_FillTimeTableFromDB (long UsrCod);
static void TT_CalculateRangeCell (unsigned StartTimeSeconds,
                                   unsigned EndTimeSeconds,
                                   struct TT_Range *Range);
static unsigned TT_CalculateMinutesPerInterval (unsigned Seconds);

static void TT_ModifTimeTable (void);
static void TT_DrawTimeTable (void);
static void TT_TimeTableDrawAdjustRow (void);
static void TT_TimeTableDrawDaysCells (void);
static void TT_TimeTableDrawHourCell (unsigned Hour,unsigned Min,const char *Align);
static unsigned TT_CalculateColsToDrawInCell (bool TopCall,
                                              unsigned Weekday,unsigned Interval);
static void TT_DrawCellAlignTimeTable (void);
static void TT_TimeTableDrawCell (unsigned Weekday,unsigned Interval,unsigned Column,unsigned ColSpan,
                                  long CrsCod,TT_IntervalType_t IntervalType,TT_ClassType_t ClassType,
                                  unsigned DurationNumIntervals,long GrpCod,const char *Info);

/*****************************************************************************/
/******************** Create internal timetable in memory ********************/
/*****************************************************************************/

static void TT_TimeTableConfigureIntervalsAndAllocateTimeTable (void)
  {
   unsigned Weekday;

   if (Gbl.TimeTable.Config.Range.Hours.End >
       Gbl.TimeTable.Config.Range.Hours.Start)
     {
      /***** Configuration of timetable depending on hours and resolution *****/
      Gbl.TimeTable.Config.HoursPerDay              = Gbl.TimeTable.Config.Range.Hours.End -
						      Gbl.TimeTable.Config.Range.Hours.Start;	// From start hour to end hour
      Gbl.TimeTable.Config.SecondsPerInterval       = Gbl.TimeTable.Config.Range.MinutesPerInterval *
						      TT_SECONDS_PER_MINUTE;
      Gbl.TimeTable.Config.IntervalsPerHour         = TT_MINUTES_PER_HOUR /
						      Gbl.TimeTable.Config.Range.MinutesPerInterval;
      Gbl.TimeTable.Config.IntervalsPerDay          = Gbl.TimeTable.Config.IntervalsPerHour *
						      Gbl.TimeTable.Config.HoursPerDay;
      Gbl.TimeTable.Config.IntervalsBeforeStartHour = Gbl.TimeTable.Config.IntervalsPerHour *
						      Gbl.TimeTable.Config.Range.Hours.Start;

      /***** Allocate memory for timetable *****/
      for (Weekday = 0;
	   Weekday < TT_DAYS_PER_WEEK;
	   Weekday++)
	 if ((TT_TimeTable[Weekday] = (struct TT_Cell *)
				      malloc (Gbl.TimeTable.Config.IntervalsPerDay *
					      sizeof (struct TT_Cell))) == NULL)
	    Lay_ShowErrorAndExit ("Error allocating memory for timetable.");
     }
   else
     {
      /***** Table is empty *****/
      Gbl.TimeTable.Config.HoursPerDay              = 0;
      Gbl.TimeTable.Config.SecondsPerInterval       = 0;
      Gbl.TimeTable.Config.IntervalsPerHour         = 0;
      Gbl.TimeTable.Config.IntervalsPerDay          = 0;
      Gbl.TimeTable.Config.IntervalsBeforeStartHour = 0;

      /***** Clear timetable in order to not try to free it *****/
      for (Weekday = 0;
	   Weekday < TT_DAYS_PER_WEEK;
	   Weekday++)
         TT_TimeTable[Weekday] = NULL;
     }
  }

/*****************************************************************************/
/******************** Destroy internal timetable in memory *******************/
/*****************************************************************************/

static void TT_FreeTimeTable (void)
  {
   unsigned Weekday;

   /***** Free memory for timetable *****/
   for (Weekday = 0;
	Weekday < TT_DAYS_PER_WEEK;
	Weekday++)
      if (TT_TimeTable[Weekday])
	{
         free ((void *) TT_TimeTable[Weekday]);
         TT_TimeTable[Weekday] = NULL;
	}
  }

/*****************************************************************************/
/*********** Show whether only my groups or all groups are shown *************/
/*****************************************************************************/

static void TT_ShowTimeTableGrpsSelected (void)
  {
   extern const char *Txt_Groups_OF_A_USER;
   extern const char *Txt_All_groups;

   fprintf (Gbl.F.Out,"<div class=\"CLASSPHOTO_TITLE CM\">");
   switch (Gbl.Crs.Grps.WhichGrps)
     {
      case Grp_MY_GROUPS:
        fprintf (Gbl.F.Out,Txt_Groups_OF_A_USER,
                 Gbl.Usrs.Me.UsrDat.FullName);
        break;
      case Grp_ALL_GROUPS:
        fprintf (Gbl.F.Out,"%s",Txt_All_groups);
        break;
     }
   fprintf (Gbl.F.Out,"</div>");
  }

/*****************************************************************************/
/******************** Get paramaters for timetable editing *******************/
/*****************************************************************************/

static void TT_GetParamsTimeTable (void)
  {
   char StrClassType[TT_MAX_BYTES_STR_CLASS_TYPE + 1];
   char StrDuration[TT_MAX_BYTES_STR_DURATION + 1];
   unsigned Hours;
   unsigned Minutes;

   /***** Get day (0: monday, 1: tuesday,..., 6: sunday *****/
   Gbl.TimeTable.Weekday = (unsigned)
	                   Par_GetParToUnsignedLong ("TTDay",
                                                     0,
                                                     TT_DAYS_PER_WEEK - 1,
                                                     0);

   /***** Get hour *****/
   Gbl.TimeTable.Interval = (unsigned)
	                    Par_GetParToUnsignedLong ("TTInt",
                                                      0,
                                                      Gbl.TimeTable.Config.IntervalsPerDay - 1,
                                                      0);

   /***** Get number of column *****/
   Gbl.TimeTable.Column = (unsigned)
	                  Par_GetParToUnsignedLong ("TTCol",
                                                    0,
                                                    TT_MAX_COLUMNS_PER_CELL - 1,
                                                    0);

   /***** Get class type *****/
   Par_GetParToText ("TTTyp",StrClassType,TT_MAX_BYTES_STR_CLASS_TYPE);
   for (Gbl.TimeTable.ClassType = (TT_ClassType_t) 0;
	Gbl.TimeTable.ClassType < (TT_ClassType_t) TT_NUM_CLASS_TYPES;
	Gbl.TimeTable.ClassType++)
      if (!strcmp (StrClassType,TT_ClassTypeDB[Gbl.TimeTable.ClassType]))
         break;
   if (Gbl.TimeTable.ClassType == (TT_ClassType_t) TT_NUM_CLASS_TYPES)
      Lay_ShowErrorAndExit ("Type of timetable cell is missing.");

   /***** Get class duration *****/
   Par_GetParToText ("TTDur",StrDuration,TT_MAX_BYTES_STR_DURATION);
   if (sscanf (StrDuration,"%u:%u",&Hours,&Minutes) != 2)
      Lay_ShowErrorAndExit ("Duration is missing.");
   Gbl.TimeTable.DurationIntervals = Hours * Gbl.TimeTable.Config.IntervalsPerHour +
	                             Minutes / Gbl.TimeTable.Config.Range.MinutesPerInterval;

   /***** Get group code *****/
   Gbl.TimeTable.GrpCod = Par_GetParToLong ("TTGrp");

   /***** Get info *****/
   Par_GetParToText ("TTInf",Gbl.TimeTable.Info,TT_MAX_BYTES_INFO);
  }

/*****************************************************************************/
/**************************** Show class timetable ***************************/
/*****************************************************************************/

void TT_ShowClassTimeTable (void)
  {
   extern const char *Hlp_COURSE_Timetable;
   extern const char *Hlp_PROFILE_Timetable;
   extern const char *Txt_TIMETABLE_TYPES[TT_NUM_TIMETABLE_TYPES];
   const char *Help[TT_NUM_TIMETABLE_TYPES] =
     {
      Hlp_COURSE_Timetable,	// TT_COURSE_TIMETABLE
      Hlp_PROFILE_Timetable,	// TT_MY_TIMETABLE
      NULL,			// TT_TUTORING_TIMETABLE
     };
   Act_Action_t ActChgTT1stDay[TT_NUM_TIMETABLE_TYPES] =
     {
      ActChgCrsTT1stDay,// TT_COURSE_TIMETABLE
      ActChgMyTT1stDay,	// TT_MY_TIMETABLE
      ActUnk,		// TT_TUTORING_TIMETABLE
     };
   bool PrintView = (Gbl.Action.Act == ActPrnCrsTT ||
	             Gbl.Action.Act == ActPrnMyTT);;

   /***** Initializations *****/
   switch (Gbl.Action.Act)
     {
      case ActSeeCrsTT:
      case ActPrnCrsTT:
      case ActChgCrsTT1stDay:
         Gbl.TimeTable.Type = TT_COURSE_TIMETABLE;
	 break;
      case ActSeeMyTT:
      case ActPrnMyTT:
      case ActChgMyTT1stDay:
         Gbl.TimeTable.Type = TT_MY_TIMETABLE;
         break;
      default:
	 Lay_ShowErrorAndExit ("Wrong action.");
     }

   Gbl.TimeTable.ContextualIcons.PutIconEditCrsTT = (Gbl.TimeTable.Type == TT_COURSE_TIMETABLE &&
	                                             !PrintView &&
                                                     Gbl.Usrs.Me.Role.Logged >= Rol_TCH);
   Gbl.TimeTable.ContextualIcons.PutIconEditOfficeHours = (Gbl.TimeTable.Type == TT_MY_TIMETABLE &&
	                                                   !PrintView &&
                                                           (Gbl.Usrs.Me.Role.Available & (1 << Rol_TCH)));
   Gbl.TimeTable.ContextualIcons.PutIconPrint = !PrintView;

   /***** Get whether to show only my groups or all groups *****/
   Grp_GetParamWhichGrps ();

   /***** Start box *****/
   Box_StartBox ("100%",Txt_TIMETABLE_TYPES[Gbl.TimeTable.Type],
                 (Gbl.TimeTable.ContextualIcons.PutIconEditCrsTT ||
                  Gbl.TimeTable.ContextualIcons.PutIconEditOfficeHours ||
                  Gbl.TimeTable.ContextualIcons.PutIconPrint) ? TT_PutContextualIcons :
                                                                NULL,
                 Help[Gbl.TimeTable.Type],Box_NOT_CLOSABLE);

   /***** Start time table drawing *****/
   if (Gbl.TimeTable.Type == TT_COURSE_TIMETABLE)
      Lay_WriteHeaderClassPhoto (PrintView,false,
				 Gbl.Hierarchy.Ins.InsCod,Gbl.Hierarchy.Deg.DegCod,Gbl.Hierarchy.Crs.CrsCod);

   if (PrintView)
      /***** Show whether only my groups or all groups are selected *****/
      TT_ShowTimeTableGrpsSelected ();
   else
     {
      /***** Setting selector *****/
      Set_StartSettingsHead ();

      /* Select whether show only my groups or all groups */
      if ( Gbl.TimeTable.Type == TT_MY_TIMETABLE ||
          (Gbl.TimeTable.Type == TT_COURSE_TIMETABLE &&
           Gbl.Crs.Grps.NumGrps))
         TT_PutFormToSelectWhichGroupsToShow ();

      /* Show form to change first day of week */
      Cal_ShowFormToSelFirstDayOfWeek (ActChgTT1stDay[Gbl.TimeTable.Type],
                                       Grp_PutParamWhichGrps);

      Set_EndSettingsHead ();
     }

   /***** Show the time table *****/
   TT_ShowTimeTable (Gbl.Usrs.Me.UsrDat.UsrCod);

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

/*****************************************************************************/
/***************** Put contextual icons above the time table *****************/
/*****************************************************************************/

static void TT_PutContextualIcons (void)
  {
   if (Gbl.TimeTable.ContextualIcons.PutIconEditCrsTT)
      Ico_PutContextualIconToEdit (ActEdiCrsTT,Grp_PutParamWhichGrps);

   if (Gbl.TimeTable.ContextualIcons.PutIconEditOfficeHours)
      Ico_PutContextualIconToEdit (ActEdiTut,NULL);

   if (Gbl.TimeTable.ContextualIcons.PutIconPrint)
      Ico_PutContextualIconToPrint (Gbl.TimeTable.Type == TT_COURSE_TIMETABLE ? ActPrnCrsTT :
								      ActPrnMyTT,
			  Grp_PutParamWhichGrps);
  }

/*****************************************************************************/
/***************** Put form to select which groups to show *******************/
/*****************************************************************************/

static void TT_PutFormToSelectWhichGroupsToShow (void)
  {
   Act_Action_t ActSeeTT[TT_NUM_TIMETABLE_TYPES] =
     {
      ActSeeCrsTT,	// TT_COURSE_TIMETABLE
      ActSeeMyTT,	// TT_MY_TIMETABLE
      ActUnk,		// TT_TUTORING_TIMETABLE
     };

   Grp_ShowFormToSelWhichGrps (ActSeeTT[Gbl.TimeTable.Type],NULL);
  }

/*****************************************************************************/
/********************** Show course timetable for edition ********************/
/*****************************************************************************/

void TT_EditCrsTimeTable (void)
  {
   extern const char *Hlp_COURSE_Timetable;
   extern const char *Txt_TIMETABLE_TYPES[TT_NUM_TIMETABLE_TYPES];

   /***** Editable time table *****/
   Gbl.TimeTable.Type = TT_COURSE_TIMETABLE;
   Box_StartBox ("100%",Txt_TIMETABLE_TYPES[Gbl.TimeTable.Type],TT_PutIconToViewCrsTT,
                 Hlp_COURSE_Timetable,Box_NOT_CLOSABLE);
   TT_ShowTimeTable (Gbl.Usrs.Me.UsrDat.UsrCod);
   Box_EndBox ();
  }

/*****************************************************************************/
/********************* Show tutor timetable for edition **********************/
/*****************************************************************************/

void TT_EditMyTutTimeTable (void)
  {
   extern const char *Hlp_PROFILE_Timetable;
   extern const char *Txt_TIMETABLE_TYPES[TT_NUM_TIMETABLE_TYPES];

   /***** Time table *****/
   Gbl.TimeTable.Type = TT_TUTORING_TIMETABLE;
   Box_StartBox ("100%",Txt_TIMETABLE_TYPES[Gbl.TimeTable.Type],TT_PutIconToViewMyTT,
                 Hlp_PROFILE_Timetable,Box_NOT_CLOSABLE);
   TT_ShowTimeTable (Gbl.Usrs.Me.UsrDat.UsrCod);
   Box_EndBox ();
  }

/*****************************************************************************/
/********************** Put icon to view course timetable ********************/
/*****************************************************************************/

static void TT_PutIconToViewCrsTT (void)
  {
   Ico_PutContextualIconToView (ActSeeCrsTT,NULL);
  }

/*****************************************************************************/
/************************ Put icon to view my timetable **********************/
/*****************************************************************************/

static void TT_PutIconToViewMyTT (void)
  {
   Ico_PutContextualIconToView (ActSeeMyTT,NULL);
  }

/*****************************************************************************/
/*********** Show course timetable or tutor timetable of a teacher ***********/
/*****************************************************************************/

void TT_ShowTimeTable (long UsrCod)
  {
   extern const char *Txt_The_timetable_is_empty;

   /***** Set type of view depending on current action *****/
   Gbl.TimeTable.View = TT_CRS_VIEW;
   switch (Gbl.Action.Act)
     {
      case ActSeeCrsTT:		case ActPrnCrsTT:	case ActChgCrsTT1stDay:
      case ActSeeMyTT:		case ActPrnMyTT:	case ActChgMyTT1stDay:
	 Gbl.TimeTable.View = TT_CRS_VIEW;
	 break;
      case ActSeeRecOneTch:	case ActSeeRecSevTch:
	 Gbl.TimeTable.View = TT_TUT_VIEW;
	 break;
      case ActEdiCrsTT:		case ActChgCrsTT:
	 Gbl.TimeTable.View = TT_CRS_EDIT;
	 break;
      case ActEdiTut:		case ActChgTut:
	 Gbl.TimeTable.View = TT_TUT_EDIT;
	 break;
     }

   /***** If editing ==> configure and allocate timetable *****/
   if (Gbl.TimeTable.View == TT_CRS_EDIT ||
       Gbl.TimeTable.View == TT_TUT_EDIT)
     {
      Gbl.TimeTable.Config.Range.Hours.Start          = TT_START_HOUR;		// Day starts at this hour
      Gbl.TimeTable.Config.Range.Hours.End	      = TT_END_HOUR;		// Day  ends  at this hour
      Gbl.TimeTable.Config.Range.MinutesPerInterval = TT_MinutesPerInterval[0];	// The smallest interval
      TT_TimeTableConfigureIntervalsAndAllocateTimeTable ();
     }
   /* If viewing (not editing) ==>
      configure and allocate memory when table is read from database */

   /***** Fill internal timetable with the timetable from database *****/
   TT_FillTimeTableFromDB (UsrCod);

   /***** If timetable must be modified... *****/
   if (Gbl.Action.Act == ActChgCrsTT ||
       Gbl.Action.Act == ActChgTut)
     {
      /* Get parameters for time table editing */
      TT_GetParamsTimeTable ();

      /* Modify timetable in memory */
      TT_ModifTimeTable ();

      /* Write a new timetable in database */
      switch (Gbl.TimeTable.Type)
        {
         case TT_COURSE_TIMETABLE:
            TT_WriteCrsTimeTableIntoDB (Gbl.Hierarchy.Crs.CrsCod);
	    break;
         case TT_TUTORING_TIMETABLE:
            TT_WriteTutTimeTableIntoDB (UsrCod);
            break;
         default:
            break;
        }

      /* Get a new table from database */
      TT_FillTimeTableFromDB (UsrCod);
     }

   /***** Draw timetable *****/
   if (Gbl.TimeTable.Config.HoursPerDay)
      TT_DrawTimeTable ();
   else
      Ale_ShowAlert (Ale_INFO,Txt_The_timetable_is_empty);

   /***** Free internal timetable in memory *****/
   TT_FreeTimeTable ();
  }

/*****************************************************************************/
/******************* Write course timetable into database ********************/
/*****************************************************************************/

static void TT_WriteCrsTimeTableIntoDB (long CrsCod)
  {
   unsigned Weekday;
   unsigned Interval;
   unsigned Hour;
   unsigned Min;
   unsigned Column;

   /***** Remove former timetable *****/
   DB_QueryDELETE ("can not remove former timetable",
		   "DELETE FROM timetable_crs WHERE CrsCod=%ld",
		   CrsCod);

   /***** Go across the timetable inserting classes into database *****/
   for (Weekday = 0;
	Weekday < TT_DAYS_PER_WEEK;
	Weekday++)
      for (Interval = 0, Hour = Gbl.TimeTable.Config.Range.Hours.Start, Min = 0;
	   Interval < Gbl.TimeTable.Config.IntervalsPerDay;
	   Interval++,
	   Hour += (Min + Gbl.TimeTable.Config.Range.MinutesPerInterval) / TT_SECONDS_PER_MINUTE,
	   Min   = (Min + Gbl.TimeTable.Config.Range.MinutesPerInterval) % TT_SECONDS_PER_MINUTE)
         for (Column = 0;
              Column < TT_MAX_COLUMNS_PER_CELL;
              Column++)
	    if (TT_TimeTable[Weekday][Interval].Columns[Column].IntervalType == TT_FIRST_INTERVAL &&
                TT_TimeTable[Weekday][Interval].Columns[Column].DurationIntervals)
               DB_QueryINSERT ("can not create course timetable",
        		       "INSERT INTO timetable_crs"
        	               " (CrsCod,GrpCod,Weekday,StartTime,Duration,"
        	               "ClassType,Info)"
                               " VALUES"
                               " (%ld,%ld,%u,'%02u:%02u:00',SEC_TO_TIME(%u),"
                               "'%s','%s')",
			       CrsCod,
			       TT_TimeTable[Weekday][Interval].Columns[Column].GrpCod,
			       Weekday,
			       Hour,Min,
			       TT_TimeTable[Weekday][Interval].Columns[Column].DurationIntervals *
			       Gbl.TimeTable.Config.SecondsPerInterval,
			       TT_ClassTypeDB[TT_TimeTable[Weekday][Interval].Columns[Column].ClassType],
			       TT_TimeTable[Weekday][Interval].Columns[Column].Info);
  }

/*****************************************************************************/
/********************* Write tutor timetable into database *******************/
/*****************************************************************************/

static void TT_WriteTutTimeTableIntoDB (long UsrCod)
  {
   unsigned Weekday;
   unsigned Interval;
   unsigned Hour;
   unsigned Min;
   unsigned Column;

   /***** Remove former timetable *****/
   DB_QueryDELETE ("can not remove former timetable",
		   "DELETE FROM timetable_tut WHERE UsrCod=%ld",
		   UsrCod);

   /***** Loop over timetable *****/
   for (Weekday = 0;
	Weekday < TT_DAYS_PER_WEEK;
	Weekday++)
      for (Interval = 0, Hour = Gbl.TimeTable.Config.Range.Hours.Start, Min = 0;
	   Interval < Gbl.TimeTable.Config.IntervalsPerDay;
	   Interval++,
	   Hour += (Min + Gbl.TimeTable.Config.Range.MinutesPerInterval) / TT_SECONDS_PER_MINUTE,
	   Min   = (Min + Gbl.TimeTable.Config.Range.MinutesPerInterval) % TT_SECONDS_PER_MINUTE)
	 for (Column = 0;
              Column < TT_MAX_COLUMNS_PER_CELL;
              Column++)
	    if (TT_TimeTable[Weekday][Interval].Columns[Column].IntervalType == TT_FIRST_INTERVAL &&
                TT_TimeTable[Weekday][Interval].Columns[Column].DurationIntervals)
               DB_QueryINSERT ("can not create office timetable",
        		       "INSERT INTO timetable_tut"
        	               " (UsrCod,Weekday,StartTime,Duration,Info)"
                               " VALUES"
                               " (%ld,%u,'%02u:%02u:00',SEC_TO_TIME(%u),'%s')",
			       UsrCod,
			       Weekday,
			       Hour,Min,
			       TT_TimeTable[Weekday][Interval].Columns[Column].DurationIntervals *
			       Gbl.TimeTable.Config.SecondsPerInterval,
			       TT_TimeTable[Weekday][Interval].Columns[Column].Info);
  }

/*****************************************************************************/
/********** Create an internal table with timetable from database ************/
/*****************************************************************************/

static void TT_FillTimeTableFromDB (long UsrCod)
  {
   extern const char *Txt_Incomplete_timetable_for_lack_of_space;
   MYSQL_RES *mysql_res;
   MYSQL_ROW row;
   unsigned long NumRows = 0;	// Initialized to avoid warning
   unsigned long NumRow;
   unsigned Weekday;
   unsigned Interval;
   unsigned i;	// To iterate through intervals
   unsigned DurationNumIntervals;
   unsigned Column;
   unsigned StartTimeSeconds;
   unsigned DurationSeconds;
   unsigned EndTimeSeconds;
   struct TT_Range RangeCell;
   unsigned FirstFreeColumn;
   TT_ClassType_t ClassType = TT_FREE;	// Initialized to avoid warning
   bool TimeTableIsIncomplete = false;
   bool TimeTableHasSpaceForThisClass;
   bool Found;

   /***** Get timetable from database *****/
   switch (Gbl.TimeTable.Type)
     {
      case TT_MY_TIMETABLE:
         switch (Gbl.Crs.Grps.WhichGrps)
           {
            case Grp_MY_GROUPS:
               NumRows = DB_QuerySELECT (&mysql_res,"can not get timetable",
					 "SELECT timetable_crs.Weekday,"
					        "TIME_TO_SEC(timetable_crs.StartTime) AS S,"
					        "TIME_TO_SEC(timetable_crs.Duration) AS D,"
					        "timetable_crs.Info,"
					        "timetable_crs.ClassType,"
					        "timetable_crs.GrpCod,"
					        "timetable_crs.CrsCod"
					 " FROM timetable_crs,crs_usr"
					 " WHERE crs_usr.UsrCod=%ld"
					 " AND timetable_crs.GrpCod=-1"
					 " AND timetable_crs.CrsCod=crs_usr.CrsCod"
					 " UNION DISTINCT "
					 "SELECT timetable_crs.Weekday,"
					        "TIME_TO_SEC(timetable_crs.StartTime) AS S,"
					        "TIME_TO_SEC(timetable_crs.Duration) AS D,"
					        "timetable_crs.Info,"
					        "timetable_crs.ClassType,"
					        "timetable_crs.GrpCod,"
					        "timetable_crs.CrsCod"
					 " FROM timetable_crs,crs_grp_usr"
					 " WHERE crs_grp_usr.UsrCod=%ld"
					 " AND timetable_crs.GrpCod=crs_grp_usr.GrpCod"
					 " UNION "
					 "SELECT Weekday,"
					        "TIME_TO_SEC(StartTime) AS S,"
					        "TIME_TO_SEC(Duration) AS D,"
					        "Info,"
					        "'tutoring' AS ClassType,"
					        "-1 AS GrpCod,"
					        "-1 AS CrsCod"
					 " FROM timetable_tut"
					 " WHERE UsrCod=%ld"
					 " ORDER BY Weekday,S,ClassType,"
					 "GrpCod,Info,D DESC,CrsCod",
					 UsrCod,UsrCod,UsrCod);
               break;
            case Grp_ALL_GROUPS:
               NumRows = DB_QuerySELECT (&mysql_res,"can not get timetable",
					 "SELECT timetable_crs.Weekday,"
					        "TIME_TO_SEC(timetable_crs.StartTime) AS S,"
					        "TIME_TO_SEC(timetable_crs.Duration) AS D,"
					        "timetable_crs.Info,"
					        "timetable_crs.ClassType,"
					        "timetable_crs.GrpCod,"
					        "timetable_crs.CrsCod"
					 " FROM timetable_crs,crs_usr"
					 " WHERE crs_usr.UsrCod=%ld"
					 " AND timetable_crs.CrsCod=crs_usr.CrsCod"
					 " UNION "
					 "SELECT Weekday,"
					        "TIME_TO_SEC(StartTime) AS S,"
					        "TIME_TO_SEC(Duration) AS D,"
					        "Info,"
					        "'tutoring' AS ClassType,"
					        "-1 AS GrpCod,"
					        "-1 AS CrsCod"
					 " FROM timetable_tut"
					 " WHERE UsrCod=%ld"
					 " ORDER BY Weekday,S,ClassType,"
					 "GrpCod,Info,D DESC,CrsCod",
					 UsrCod,UsrCod);
               break;
           }
	 break;
      case TT_COURSE_TIMETABLE:
         if (Gbl.Crs.Grps.WhichGrps == Grp_ALL_GROUPS ||
             Gbl.Action.Act == ActEdiCrsTT ||
             Gbl.Action.Act == ActChgCrsTT)	// If we are editing, all groups are shown
            NumRows = DB_QuerySELECT (&mysql_res,"can not get timetable",
				      "SELECT Weekday,"
					     "TIME_TO_SEC(StartTime) AS S,"
					     "TIME_TO_SEC(Duration) AS D,"
					     "Info,"
					     "ClassType,"
					     "GrpCod"
				      " FROM timetable_crs"
				      " WHERE CrsCod=%ld"
				      " ORDER BY Weekday,S,ClassType,"
				      "GrpCod,Info,D DESC",
				      Gbl.Hierarchy.Crs.CrsCod);
         else
            NumRows = DB_QuerySELECT (&mysql_res,"can not get timetable",
				      "SELECT timetable_crs.Weekday,"
					     "TIME_TO_SEC(timetable_crs.StartTime) AS S,"
					     "TIME_TO_SEC(timetable_crs.Duration) AS D,"
					     "timetable_crs.Info,"
					     "timetable_crs.ClassType,"
					     "timetable_crs.GrpCod"
				      " FROM timetable_crs,crs_usr"
				      " WHERE timetable_crs.CrsCod=%ld"
				      " AND timetable_crs.GrpCod=-1 AND crs_usr.UsrCod=%ld"
				      " AND timetable_crs.CrsCod=crs_usr.CrsCod"
				      " UNION DISTINCT "
				      "SELECT timetable_crs.Weekday,"
					     "TIME_TO_SEC(timetable_crs.StartTime) AS S,"
					     "TIME_TO_SEC(timetable_crs.Duration) AS D,"
					     "timetable_crs.Info,"
					     "timetable_crs.ClassType,"
					     "timetable_crs.GrpCod"
				      " FROM timetable_crs,crs_grp_usr"
				      " WHERE timetable_crs.CrsCod=%ld"
				      " AND crs_grp_usr.UsrCod=%ld"
				      " AND timetable_crs.GrpCod=crs_grp_usr.GrpCod"
				      " ORDER BY Weekday,S,ClassType,"
				      "GrpCod,Info,D DESC",
				      Gbl.Hierarchy.Crs.CrsCod,UsrCod,
				      Gbl.Hierarchy.Crs.CrsCod,UsrCod);
	 break;
      case TT_TUTORING_TIMETABLE:
         NumRows = DB_QuerySELECT (&mysql_res,"can not get timetable",
				   "SELECT Weekday,"
					  "TIME_TO_SEC(StartTime) AS S,"
					  "TIME_TO_SEC(Duration) AS D,"
					  "Info"
				   " FROM timetable_tut"
				   " WHERE UsrCod=%ld"
				   " ORDER BY Weekday,S,Info,D DESC",
				   UsrCod);
         break;
     }

   /***** If viewing (not editing) ==>
          calculate range of hours and resolution *****/
   if (Gbl.TimeTable.View == TT_CRS_VIEW ||
       Gbl.TimeTable.View == TT_TUT_VIEW)
     {
      /* Initialize hours and resolution for timetable */
      Gbl.TimeTable.Config.Range.Hours.Start = TT_END_HOUR;		// Initialized to maximum hour
      Gbl.TimeTable.Config.Range.Hours.End   = TT_START_HOUR;		// Initialized to minimum hour
      Gbl.TimeTable.Config.Range.MinutesPerInterval = TT_MinutesPerInterval[TT_NUM_RESOLUTIONS - 1];	// The longest interval

      for (NumRow = 0;
	   NumRow < NumRows;
	   NumRow++)
	{
	 row = mysql_fetch_row (mysql_res);

	 /* StartTime formatted as seconds (row[1]) */
	 if (sscanf (row[1],"%u",&StartTimeSeconds) != 1)
	    Lay_ShowErrorAndExit ("Wrong start time in timetable.");

	 /* Duration formatted as seconds (row[2]) */
	 if (sscanf (row[2],"%u",&DurationSeconds) != 1)
	    Lay_ShowErrorAndExit ("Wrong duration in timetable.");
	 EndTimeSeconds = StartTimeSeconds + DurationSeconds;

	 /* Compute hours and resolution */
	 TT_CalculateRangeCell (StartTimeSeconds,EndTimeSeconds,&RangeCell);
	 if (RangeCell.Hours.Start < Gbl.TimeTable.Config.Range.Hours.Start)
            Gbl.TimeTable.Config.Range.Hours.Start = RangeCell.Hours.Start;
	 if (RangeCell.Hours.End > Gbl.TimeTable.Config.Range.Hours.End)
            Gbl.TimeTable.Config.Range.Hours.End = RangeCell.Hours.End;
	 if (RangeCell.MinutesPerInterval < Gbl.TimeTable.Config.Range.MinutesPerInterval)
            Gbl.TimeTable.Config.Range.MinutesPerInterval = RangeCell.MinutesPerInterval;

	}
      mysql_data_seek (mysql_res,0);

      /***** Configure and allocate timetable *****/
      TT_TimeTableConfigureIntervalsAndAllocateTimeTable ();
     }

   /***** Build the table by filling it from database *****/
   if (Gbl.TimeTable.Config.HoursPerDay)
     {
      /***** Initialize timetable to all free *****/
      for (Weekday = 0;
	   Weekday < TT_DAYS_PER_WEEK;
	   Weekday++)
	 for (Interval = 0;
	      Interval < Gbl.TimeTable.Config.IntervalsPerDay;
	      Interval++)
	   {
	    TT_TimeTable[Weekday][Interval].NumColumns = 0;
	    for (Column = 0;
		 Column < TT_MAX_COLUMNS_PER_CELL;
		 Column++)
	      {
	       TT_TimeTable[Weekday][Interval].Columns[Column].CrsCod            = -1L;
	       TT_TimeTable[Weekday][Interval].Columns[Column].GrpCod            = -1L;
	       TT_TimeTable[Weekday][Interval].Columns[Column].IntervalType      = TT_FREE_INTERVAL;
	       TT_TimeTable[Weekday][Interval].Columns[Column].ClassType         = TT_FREE;
	       TT_TimeTable[Weekday][Interval].Columns[Column].DurationIntervals = 0;
	       TT_TimeTable[Weekday][Interval].Columns[Column].Info[0]          = '\0';
	      }
	   }

      /***** Fill data from database *****/
      for (NumRow = 0;
	   NumRow < NumRows;
	   NumRow++)
	{
	 row = mysql_fetch_row (mysql_res);

	 /* Day of week (row[0]) */
	 if (sscanf (row[0],"%u",&Weekday) != 1)
	    Lay_ShowErrorAndExit ("Wrong day of week in timetable.");
	 if (Weekday >= TT_DAYS_PER_WEEK)
	    Lay_ShowErrorAndExit ("Wrong day of week in timetable.");

	 /* StartTime formatted as seconds (row[1])
	    --> StartTime in number of intervals */
	 if (sscanf (row[1],"%u",&StartTimeSeconds) != 1)
	    Lay_ShowErrorAndExit ("Wrong start time in timetable.");
	 Interval = StartTimeSeconds /
	            Gbl.TimeTable.Config.SecondsPerInterval;
	 if (Interval < Gbl.TimeTable.Config.IntervalsBeforeStartHour)
	    Lay_ShowErrorAndExit ("Wrong start time in timetable.");
	 Interval -= Gbl.TimeTable.Config.IntervalsBeforeStartHour;

	 /* Duration formatted as seconds (row[2])
	    --> Duration in number of intervals */
	 if (sscanf (row[2],"%u",&DurationSeconds) != 1)
	    Lay_ShowErrorAndExit ("Wrong duration in timetable.");
	 DurationNumIntervals = DurationSeconds /
	                        Gbl.TimeTable.Config.SecondsPerInterval;

	 /* Type of class (row[4]) */
	 switch (Gbl.TimeTable.Type)
	   {
	    case TT_COURSE_TIMETABLE:
	    case TT_MY_TIMETABLE:
	       for (ClassType = TT_LECTURE, Found = false;
		    ClassType <= TT_TUTORING;
		    ClassType++)
		  if (!strcmp (row[4],TT_ClassTypeDB[ClassType]))
		    {
		     Found = true;
		     break;
		    }
	       if (!Found)
		  Lay_ShowErrorAndExit ("Wrong type of class in timetable.");
	       break;
	    case TT_TUTORING_TIMETABLE:
	       ClassType = TT_TUTORING;
	       break;
	   }

	 /* Cell has been read without errors */
	 if (TT_TimeTable[Weekday][Interval].NumColumns < TT_MAX_COLUMNS_PER_CELL)
	    // If there's place for another column in this cell...
	   {
	    /* Find the first free column for this day-hour */
	    FirstFreeColumn = TT_MAX_COLUMNS_PER_CELL;
	    for (Column = 0;
		 Column < TT_MAX_COLUMNS_PER_CELL;
		 Column++)
	       if (TT_TimeTable[Weekday][Interval].Columns[Column].IntervalType == TT_FREE_INTERVAL)
		 {
		  FirstFreeColumn = Column;
		  break;
		 }

	    if (FirstFreeColumn < TT_MAX_COLUMNS_PER_CELL)
	       // If there's place for another column in this cell
	      {
	       /* Check if there's place for all the rows of this class */
	       TimeTableHasSpaceForThisClass = true;
	       for (i = Interval + 1;
		    i < Interval + DurationNumIntervals &&
		    i < Gbl.TimeTable.Config.IntervalsPerDay;
		    i++)
		  if (TT_TimeTable[Weekday][i].Columns[FirstFreeColumn].IntervalType != TT_FREE_INTERVAL)
		   {
		     TimeTableIsIncomplete = true;
		     TimeTableHasSpaceForThisClass = false;
		     break;
		    }
	       if (TimeTableHasSpaceForThisClass)
		 {
		  TT_TimeTable[Weekday][Interval].Columns[FirstFreeColumn].ClassType         = ClassType;
		  TT_TimeTable[Weekday][Interval].Columns[FirstFreeColumn].DurationIntervals = DurationNumIntervals;
		  TT_TimeTable[Weekday][Interval].Columns[FirstFreeColumn].IntervalType      = TT_FIRST_INTERVAL;
		  for (i = Interval + 1;
		       i < Interval + DurationNumIntervals &&
		       i < Gbl.TimeTable.Config.IntervalsPerDay;
		       i++)
		    {
		     TT_TimeTable[Weekday][i].Columns[FirstFreeColumn].IntervalType = TT_NEXT_INTERVAL;
		     TT_TimeTable[Weekday][i].NumColumns++;
		    }

		  /* Course (row[6]) and info (row[3])*/
		  switch (Gbl.TimeTable.Type)
		    {
		     case TT_MY_TIMETABLE:
		     case TT_COURSE_TIMETABLE:
			/* Group code (row[5]) */
			if (Gbl.TimeTable.Type == TT_MY_TIMETABLE ||
			    Gbl.TimeTable.Type == TT_COURSE_TIMETABLE)
			   if (sscanf (row[5],"%ld",&TT_TimeTable[Weekday][Interval].Columns[FirstFreeColumn].GrpCod) != 1)
			      TT_TimeTable[Weekday][Interval].Columns[FirstFreeColumn].GrpCod = -1;

			/* Course code (row[6]) */
			TT_TimeTable[Weekday][Interval].Columns[FirstFreeColumn].CrsCod =
			   (Gbl.TimeTable.Type == TT_MY_TIMETABLE ? Str_ConvertStrCodToLongCod (row[6]) :
								    Gbl.Hierarchy.Crs.CrsCod);
			/* falls through */
			/* no break */
		     case TT_TUTORING_TIMETABLE:
			Str_Copy (TT_TimeTable[Weekday][Interval].Columns[FirstFreeColumn].Info,
				  row[3],
				  TT_MAX_BYTES_INFO);
			break;
		    }

		  /* Increment number of items in this cell */
		  TT_TimeTable[Weekday][Interval].NumColumns++;
		 }
	      }
	    else
	       TimeTableIsIncomplete = true;
	   }
	 else
	    TimeTableIsIncomplete = true;
	}
     }

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

   if (TimeTableIsIncomplete)
      Ale_ShowAlert (Ale_INFO,Txt_Incomplete_timetable_for_lack_of_space);
  }

/*****************************************************************************/
/** Calculate range of a cell (start hour, end hour, minutes per interval) ***/
/*****************************************************************************/

static void TT_CalculateRangeCell (unsigned StartTimeSeconds,
                                   unsigned EndTimeSeconds,
                                   struct TT_Range *Range)
  {
   unsigned TimeMinutes;
   unsigned MinutesPerIntervalForEndTime;

   /***** Compute minimum hour *****/
   // Example: if Seconds == 42300 (time == 11:45:00) =>
   //          TimeMinutes = 42300/60 = 705 =>
   //          Hour = 705/60 = 11
   TimeMinutes = StartTimeSeconds / TT_SECONDS_PER_MINUTE;
   Range->Hours.Start = TimeMinutes / TT_MINUTES_PER_HOUR;

   /***** Compute maximum hour *****/
   // Example: if Seconds == 42300 (time == 11:45:00) =>
   //          TimeMinutes = 42300/60 = 705 =>
   //          Hour = 705/60 = 11
   // 	       705 % 60 = 45 ==> Hour = Hour+1 = 12
   TimeMinutes = EndTimeSeconds / TT_SECONDS_PER_MINUTE;
   Range->Hours.End = TimeMinutes / TT_MINUTES_PER_HOUR;
   if (TimeMinutes % TT_MINUTES_PER_HOUR)
      Range->Hours.End++;

   /***** Compute resolution (longest interval necessary for this cell) *****/
   Range->MinutesPerInterval = TT_CalculateMinutesPerInterval (StartTimeSeconds);
   if (Range->MinutesPerInterval > TT_MinutesPerInterval[0])	// If not already the shortest
     {
      MinutesPerIntervalForEndTime = TT_CalculateMinutesPerInterval (EndTimeSeconds);
      if (MinutesPerIntervalForEndTime < Range->MinutesPerInterval)
	 Range->MinutesPerInterval = MinutesPerIntervalForEndTime;
     }
  }

/*****************************************************************************/
/*********************** Calculate minutes per interval **********************/
/*****************************************************************************/
// Example: if Seconds == 42300 (time == 11:45:00) => Minutes = 45 => Resolution = 15

static unsigned TT_CalculateMinutesPerInterval (unsigned Seconds)
  {
   unsigned Minutes;
   unsigned MinutesPerInterval;
   unsigned Resolution;

   /***** Compute minutes part (45) of a time (11:45:00) from seconds (42300) *****/
   Minutes = (Seconds / TT_SECONDS_PER_MINUTE) % TT_MINUTES_PER_HOUR;

   /***** Compute minutes per interval *****/
   MinutesPerInterval = TT_MinutesPerInterval[0];	// Default: the shortest interval
   for (Resolution = TT_NUM_RESOLUTIONS - 1;		// From the longest interval...
	Resolution > 0;
	Resolution--)					// ...to shorter intervals
      if (Minutes % TT_MinutesPerInterval[Resolution] == 0)
	{
	 MinutesPerInterval = TT_MinutesPerInterval[Resolution];
	 break;
	}

   return MinutesPerInterval;
  }

/*****************************************************************************/
/*********************** Modify a class in timetable *************************/
/*****************************************************************************/

static void TT_ModifTimeTable (void)
  {
   if (TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].Columns[Gbl.TimeTable.Column].IntervalType == TT_FIRST_INTERVAL)
     {
      /***** Free this cell *****/
      TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].Columns[Gbl.TimeTable.Column].GrpCod            = -1L;
      TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].Columns[Gbl.TimeTable.Column].IntervalType      = TT_FREE_INTERVAL;
      TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].Columns[Gbl.TimeTable.Column].ClassType         = TT_FREE;
      TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].Columns[Gbl.TimeTable.Column].DurationIntervals = 0;
      TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].Columns[Gbl.TimeTable.Column].Info[0]          = '\0';
      TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].NumColumns--;
     }

   if (Gbl.TimeTable.ClassType != TT_FREE &&
       Gbl.TimeTable.DurationIntervals > 0 &&
       TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].NumColumns < TT_MAX_COLUMNS_PER_CELL)
     {
      /***** Change this cell *****/
      TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].NumColumns++;
      TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].Columns[Gbl.TimeTable.Column].GrpCod            = Gbl.TimeTable.GrpCod;
      TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].Columns[Gbl.TimeTable.Column].IntervalType      = TT_FIRST_INTERVAL;
      TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].Columns[Gbl.TimeTable.Column].ClassType         = Gbl.TimeTable.ClassType;
      TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].Columns[Gbl.TimeTable.Column].DurationIntervals = Gbl.TimeTable.DurationIntervals;
      Str_Copy (TT_TimeTable[Gbl.TimeTable.Weekday][Gbl.TimeTable.Interval].Columns[Gbl.TimeTable.Column].Info,
                Gbl.TimeTable.Info,
                TT_MAX_BYTES_INFO);
     }
  }

/*****************************************************************************/
/********************* Draw timetable using internal table *******************/
/*****************************************************************************/

static void TT_DrawTimeTable (void)
  {
   unsigned DayColumn;	// Column from left (0) to right (6)
   unsigned Weekday;	// Day of week
   unsigned Interval;
   unsigned Min;
   unsigned Column;
   unsigned ColumnsToDraw;
   unsigned ColumnsToDrawIncludingExtraColumn;
   unsigned ContinuousFreeMinicolumns;

   /***** Start table *****/
   Tbl_TABLE_Begin ("TT");

   /***** Top row used for column adjustement *****/
   TT_TimeTableDrawAdjustRow ();

   /***** Row with day names *****/
   Tbl_TR_Begin (NULL);

   Tbl_TD_Begin ("rowspan=\"2\" class=\"TT_HOUR_BIG RM\" style=\"width:%u%%;\"",
		 TT_PERCENT_WIDTH_OF_AN_HOUR_COLUMN);
   fprintf (Gbl.F.Out,"%02u:00",Gbl.TimeTable.Config.Range.Hours.Start);
   Tbl_TD_End ();

   TT_DrawCellAlignTimeTable ();
   TT_TimeTableDrawDaysCells ();
   TT_DrawCellAlignTimeTable ();

   Tbl_TD_Begin ("rowspan=\"2\" class=\"TT_HOUR_BIG LM\" style=\"width:%u%%;\"",
		 TT_PERCENT_WIDTH_OF_AN_HOUR_COLUMN);
   fprintf (Gbl.F.Out,"%02u:00",Gbl.TimeTable.Config.Range.Hours.Start);
   Tbl_TD_End ();

   Tbl_TR_End ();

   /***** Get list of groups types and groups in this course *****/
   if (Gbl.Action.Act == ActEdiCrsTT ||
       Gbl.Action.Act == ActChgCrsTT)
      Grp_GetListGrpTypesAndGrpsInThisCrs (Grp_ONLY_GROUP_TYPES_WITH_GROUPS);

   /***** Write the table row by row *****/
   for (Interval = 0, Min = Gbl.TimeTable.Config.Range.MinutesPerInterval;
	Interval < Gbl.TimeTable.Config.IntervalsPerDay;
	Interval++,
	Min = (Min + Gbl.TimeTable.Config.Range.MinutesPerInterval) %
	      TT_SECONDS_PER_MINUTE)
     {
      Tbl_TR_Begin (NULL);

      /* Left hour:minutes cell */
      if (Interval % 2)
	 TT_TimeTableDrawHourCell (Gbl.TimeTable.Config.Range.Hours.Start +
	                           (Interval + 2) / Gbl.TimeTable.Config.IntervalsPerHour,
	                           Min,
	                           "RM");

      /* Empty column used to adjust height */
      TT_DrawCellAlignTimeTable ();

      /* Row for this hour */
      for (DayColumn = 0;
	   DayColumn < TT_DAYS_PER_WEEK;
	   DayColumn++)
        {
	 /* Weekday == 0 ==> monday,
	            ...
	    Weekday == 6 ==> sunday */
	 Weekday = (DayColumn + Gbl.Prefs.FirstDayOfWeek) % 7;

         /* Check how many colums are needed.
            For each item (class) in this hour from left to right,
            we must check the maximum of columns */
         ColumnsToDraw = TT_CalculateColsToDrawInCell (true,	// Top call, non recursive
                                                       Weekday,Interval);
         if (ColumnsToDraw == 0 &&
             (Gbl.TimeTable.View == TT_CRS_VIEW ||
              Gbl.TimeTable.View == TT_TUT_VIEW))
            ColumnsToDraw = 1;
	 // If editing and there's place for more columns,
         // a potential new column is added at the end of each day
         ColumnsToDrawIncludingExtraColumn = ColumnsToDraw;
         if (ColumnsToDraw < TT_MAX_COLUMNS_PER_CELL &&
             (Gbl.TimeTable.View == TT_CRS_EDIT ||
              Gbl.TimeTable.View == TT_TUT_EDIT))
            ColumnsToDrawIncludingExtraColumn++;

         /* Draw cells */
         for (Column = 0, ContinuousFreeMinicolumns = 0;
              Column < ColumnsToDrawIncludingExtraColumn;
              Column++)
            if (TT_TimeTable[Weekday][Interval].Columns[Column].IntervalType == TT_FREE_INTERVAL)
               ContinuousFreeMinicolumns += TT_NUM_MINICOLUMNS_PER_DAY /
                                            ColumnsToDrawIncludingExtraColumn;
            else
              {
               if (ContinuousFreeMinicolumns)
                 {
                  TT_TimeTableDrawCell (Weekday,Interval,Column - 1,ContinuousFreeMinicolumns,
                                        -1L,TT_FREE_INTERVAL,TT_FREE,0,-1L,NULL);
                  ContinuousFreeMinicolumns = 0;
                 }
               TT_TimeTableDrawCell (Weekday,Interval,Column,
                                     TT_NUM_MINICOLUMNS_PER_DAY /
                                     ColumnsToDrawIncludingExtraColumn,
	                             TT_TimeTable[Weekday][Interval].Columns[Column].CrsCod,
				     TT_TimeTable[Weekday][Interval].Columns[Column].IntervalType,
	                             TT_TimeTable[Weekday][Interval].Columns[Column].ClassType,
                                     TT_TimeTable[Weekday][Interval].Columns[Column].DurationIntervals,
	                             TT_TimeTable[Weekday][Interval].Columns[Column].GrpCod,
                                     TT_TimeTable[Weekday][Interval].Columns[Column].Info);
              }
         if (ContinuousFreeMinicolumns)
            TT_TimeTableDrawCell (Weekday,Interval,Column - 1,ContinuousFreeMinicolumns,
                                  -1L,TT_FREE_INTERVAL,TT_FREE,0,-1L,NULL);
        }

      /* Empty column used to adjust height */
      TT_DrawCellAlignTimeTable ();

      /* Right hour:minutes cell */
      if (Interval % 2)
	 TT_TimeTableDrawHourCell (Gbl.TimeTable.Config.Range.Hours.Start +
	                           (Interval + 2) / Gbl.TimeTable.Config.IntervalsPerHour,
	                           Min,
	                           "LM");

      Tbl_TR_End ();
     }

   /***** Free list of groups types and groups in this course *****/
   if (Gbl.Action.Act == ActEdiCrsTT ||
       Gbl.Action.Act == ActChgCrsTT)
      Grp_FreeListGrpTypesAndGrps ();

   /***** Row with day names *****/
   Tbl_TR_Begin (NULL);
   TT_DrawCellAlignTimeTable ();
   TT_TimeTableDrawDaysCells ();
   TT_DrawCellAlignTimeTable ();
   Tbl_TR_End ();

   /***** Bottom row used for column adjustement *****/
   TT_TimeTableDrawAdjustRow ();

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

/*****************************************************************************/
/********** Draw a row used for column adjustement in a time table ***********/
/*****************************************************************************/

static void TT_TimeTableDrawAdjustRow (void)
  {
   unsigned Weekday;
   unsigned Minicolumn;

   Tbl_TR_Begin (NULL);

   Tbl_TD_Begin ("class=\"TT_HOURCOL\"");
   Tbl_TD_End ();

   TT_DrawCellAlignTimeTable ();
   for (Weekday = 0;
	Weekday < TT_DAYS_PER_WEEK;
	Weekday++)
      for (Minicolumn = 0;
	   Minicolumn < TT_NUM_MINICOLUMNS_PER_DAY;
	   Minicolumn++)
	{
         Tbl_TD_Begin ("class=\"TT_MINICOL\"");
         Tbl_TD_End ();
	}
   TT_DrawCellAlignTimeTable ();

   Tbl_TD_Begin ("class=\"TT_HOURCOL\"");
   Tbl_TD_End ();

   Tbl_TR_End ();
  }

/*****************************************************************************/
/****************** Draw cells with day names in a time table ****************/
/*****************************************************************************/

static void TT_TimeTableDrawDaysCells (void)
  {
   extern const char *Txt_DAYS_CAPS[7];
   unsigned DayColumn;
   unsigned Weekday;

   for (DayColumn = 0;
	DayColumn < TT_DAYS_PER_WEEK;
	DayColumn++)
     {
      Weekday = (DayColumn + Gbl.Prefs.FirstDayOfWeek) % 7;
      Tbl_TD_Begin ("colspan=\"%u\" class=\"%s CM\" style=\"width:%u%%;\"",
		    TT_NUM_MINICOLUMNS_PER_DAY,
		    Weekday == 6 ? "TT_SUNDAY" :	// Sunday drawn in red
				   "TT_DAY",	// Monday to Saturday
		    TT_PERCENT_WIDTH_OF_A_DAY);
      fprintf (Gbl.F.Out,"%s",Txt_DAYS_CAPS[Weekday]);
      Tbl_TD_End ();
     }
  }

/*****************************************************************************/
/****************** Draw cells with day names in a time table ****************/
/*****************************************************************************/

static void TT_TimeTableDrawHourCell (unsigned Hour,unsigned Min,const char *Align)
  {
   Tbl_TD_Begin ("rowspan=\"2\" class=\"TT_HOUR %s %s\"",
		 Min ? "TT_HOUR_SMALL" :
		       "TT_HOUR_BIG",
		 Align);
   fprintf (Gbl.F.Out,"%02u:%02u",Hour,Min);
   Tbl_TD_End ();
  }

/*****************************************************************************/
/**** Calculate recursively number of columns to draw for a day and hour *****/
/*****************************************************************************/

static unsigned TT_CalculateColsToDrawInCell (bool TopCall,
                                              unsigned Weekday,unsigned Interval)
  {
   unsigned ColumnsToDraw;
   unsigned Column;
   unsigned i;
   unsigned FirstHour;
   unsigned Cols;
   static bool *TT_IntervalsChecked;

   if (TopCall)	// Top call, non recursive call
      /****** Allocate space to store list of intervals already checked
              and initialize to false by using calloc *****/
      if ((TT_IntervalsChecked = (bool *) calloc (Gbl.TimeTable.Config.IntervalsPerDay,
                                                  sizeof (bool))) == NULL)
	 Lay_ShowErrorAndExit ("Error allocating memory for timetable.");

   ColumnsToDraw = TT_TimeTable[Weekday][Interval].NumColumns;

   if (!TT_IntervalsChecked[Interval])
     {
      TT_IntervalsChecked[Interval] = true;
      for (Column = 0;
	   Column < TT_MAX_COLUMNS_PER_CELL;
	   Column++)
         switch (TT_TimeTable[Weekday][Interval].Columns[Column].IntervalType)
           {
            case TT_FREE_INTERVAL:
               break;
            case TT_FIRST_INTERVAL:
               /* Check from first hour (this one) to last hour
                  searching maximum number of columns */
               for (i = Interval + 1;
        	    i < Interval + TT_TimeTable[Weekday][Interval].Columns[Column].DurationIntervals;
        	    i++)
                  if (!TT_IntervalsChecked[i])
                    {
                     Cols = TT_CalculateColsToDrawInCell (false,	// Recursive call
                                                          Weekday,i);
                     if (Cols > ColumnsToDraw)
                        ColumnsToDraw = Cols;
                    }
               break;
            case TT_NEXT_INTERVAL:
               /* Find first hour for this item (class) */
               for (FirstHour = Interval;
        	    TT_TimeTable[Weekday][FirstHour].Columns[Column].IntervalType == TT_NEXT_INTERVAL;
        	    FirstHour--);

               /* Check from first hour to last hour
                  searching maximum number of columns */
               for (i = FirstHour;
        	    i < FirstHour + TT_TimeTable[Weekday][FirstHour].Columns[Column].DurationIntervals;
        	    i++)
                  if (!TT_IntervalsChecked[i])
                    {
                     Cols = TT_CalculateColsToDrawInCell (false,	// Recursive call
                                                          Weekday,i);
                     if (Cols > ColumnsToDraw)
                        ColumnsToDraw = Cols;
                    }
               break;
           }
     }

   if (TopCall)	// Top call, non recursive call
      /****** Free space used by list of intervals already checked *****/
      free ((void *) TT_IntervalsChecked);

   return ColumnsToDraw;
  }

/*****************************************************************************/
/******************** Write empty cell for alignment *************************/
/*****************************************************************************/

static void TT_DrawCellAlignTimeTable (void)
  {
   Tbl_TD_Begin ("class=\"TT_ALIGN\"");
   Tbl_TD_End ();
  }

/*****************************************************************************/
/*************************** Write a timetable cell **************************/
/*****************************************************************************/

static void TT_TimeTableDrawCell (unsigned Weekday,unsigned Interval,unsigned Column,unsigned ColSpan,
                                  long CrsCod,TT_IntervalType_t IntervalType,TT_ClassType_t ClassType,
                                  unsigned DurationNumIntervals,long GrpCod,const char *Info)
  {
   extern const char *Txt_unknown_removed_course;
   extern const char *Txt_TIMETABLE_CLASS_TYPES[TT_NUM_CLASS_TYPES];
   extern const char *Txt_Group;
   extern const char *Txt_All_groups;
   extern const char *Txt_Info;
   static const char *TimeTableClasses[TT_NUM_CLASS_TYPES] =
     {
      "TT_FREE",	// TT_FREE	(free hour)
      "TT_LECT",	// TT_LECTURE	(lecture class)
      "TT_PRAC",	// TT_PRACTICAL	(practical class)
      "TT_TUTO",	// TT_TUTORING	(tutoring/office hour)
     };
   char *CellStr;	// Unique string for this cell used in labels
   struct GroupData GrpDat;
   unsigned NumGrpTyp;
   unsigned NumGrp;
   unsigned i;
   unsigned Dur;
   unsigned MaxDuration;
   unsigned RowSpan = 0;
   char *RowSpanStr;
   char *ColSpanStr;
   char *ClassStr;
   TT_ClassType_t CT;
   struct Course Crs;
   struct GroupType *GrpTyp;
   struct Group *Grp;

   /***** Compute row span and background color depending on hour type *****/
   switch (IntervalType)
     {
      case TT_FREE_INTERVAL:	// Free cell written
	 RowSpan = 1;
	 break;
      case TT_FIRST_INTERVAL:	// Normal cell written
	 RowSpan = DurationNumIntervals;
	 break;
      case TT_NEXT_INTERVAL:	// Nothing written
	 break;
     }

   /***** If there's nothing to do... *****/
   if (RowSpan == 0)
      return;

   /***** If group code > 0, a group is selected ==> get group data *****/
   if (IntervalType == TT_FIRST_INTERVAL &&
       (Gbl.TimeTable.View == TT_CRS_VIEW ||
        Gbl.TimeTable.View == TT_CRS_EDIT) &&
       GrpCod > 0)
     {
      /* Get group data */
      GrpDat.GrpCod = GrpCod;
      Grp_GetDataOfGroupByCod (&GrpDat);
     }

   /***** Cell start *****/
   /* Create rowspan, colspan and class strings */
   if (RowSpan > 1)
     {
      if (asprintf (&RowSpanStr,"rowspan=\"%u\" ",RowSpan) < 0)
	 Lay_NotEnoughMemoryExit ();
     }
   else
     {
      if (asprintf (&RowSpanStr,"%s","") < 0)
	 Lay_NotEnoughMemoryExit ();
     }
   if (ColSpan > 1)
     {
      if (asprintf (&ColSpanStr,"colspan=\"%u\" ",ColSpan) < 0)
	 Lay_NotEnoughMemoryExit ();
     }
   else
     {
      if (asprintf (&ColSpanStr,"%s","") < 0)
	 Lay_NotEnoughMemoryExit ();
     }
   if (ClassType == TT_FREE)
     {
      if (asprintf (&ClassStr,"%s%u",TimeTableClasses[ClassType],Interval % 4) < 0)
	 Lay_NotEnoughMemoryExit ();
     }
   else
     {
      if (asprintf (&ClassStr,"%s CM DAT_SMALL",TimeTableClasses[ClassType]) < 0)
	 Lay_NotEnoughMemoryExit ();
     }

   /* Start cell */
   Tbl_TD_Begin ("%s%sclass=\"%s\"",RowSpanStr,ColSpanStr,ClassStr);

   /* Free allocated memory for rowspan, colspan and class strings */
   free ((void *) RowSpanStr);
   free ((void *) ColSpanStr);
   free ((void *) ClassStr);

   /***** Form to modify this cell *****/
   if (Gbl.TimeTable.View == TT_CRS_EDIT)
      Frm_StartForm (ActChgCrsTT);
   else if (Gbl.TimeTable.View == TT_TUT_EDIT)
      Frm_StartForm (ActChgTut);

   /***** Draw cell depending on type of view *****/
   switch (Gbl.TimeTable.View)
     {
      case TT_CRS_VIEW:	// View course timetable
      case TT_TUT_VIEW:	// View tutoring timetable
	 if (IntervalType != TT_FREE_INTERVAL) // If cell is not empty...
	   {
	    /***** Start cell *****/
	    fprintf (Gbl.F.Out,"<div class=\"TT_CELL TT_TXT\">");

	    /***** Course name *****/
	    if (Gbl.TimeTable.Type == TT_MY_TIMETABLE)
              {
               Crs.CrsCod = CrsCod;
               Crs_GetDataOfCourseByCod (&Crs);
               if (ClassType == TT_LECTURE ||
                   ClassType == TT_PRACTICAL)
		  fprintf (Gbl.F.Out,"%s<br />",
		           Crs.ShrtName[0] ? Crs.ShrtName :
			                     Txt_unknown_removed_course);
              }

	    /***** Type of class and duration *****/
	    fprintf (Gbl.F.Out,"%s (%u:%02u)",
		     Txt_TIMETABLE_CLASS_TYPES[ClassType],
	             (DurationNumIntervals / Gbl.TimeTable.Config.IntervalsPerHour),	// Hours
	             (DurationNumIntervals % Gbl.TimeTable.Config.IntervalsPerHour) *
	             Gbl.TimeTable.Config.Range.MinutesPerInterval);			// Minutes

	    /***** Group *****/
	    if (Gbl.TimeTable.View == TT_CRS_VIEW &&
		GrpCod > 0)
	      {
	       fprintf (Gbl.F.Out,"<br />%s"
				  "<br />%s",
			GrpDat.GrpTypName,GrpDat.GrpName);
	       if (GrpDat.Classroom.ClaCod > 0)
		  fprintf (Gbl.F.Out,"<br />(%s)",
			   GrpDat.Classroom.ShrtName);
	      }

	    /***** Info *****/
	    if (Info)
	       if (Info[0])
	          fprintf (Gbl.F.Out,"<br />%s",Info);

	    /***** End cell *****/
            fprintf (Gbl.F.Out,"</div>");
	   }
	 break;
      case TT_CRS_EDIT:
      case TT_TUT_EDIT:
	 /***** Create unique string for this cell used in labels *****/
	 if (asprintf (&CellStr,"%02u%02u%02u",
		       Weekday,Interval,Column) < 0)
	    Lay_NotEnoughMemoryExit ();

	 /***** Put hidden parameters *****/
         Par_PutHiddenParamUnsigned ("TTDay",Weekday);
         Par_PutHiddenParamUnsigned ("TTInt",Interval);
         Par_PutHiddenParamUnsigned ("TTCol",Column);

	 /***** Class type *****/
	 fprintf (Gbl.F.Out,"<select name=\"TTTyp\" class=\"TT_TYP\""
	                    " onchange=\"document.getElementById('%s').submit();\">",
	          Gbl.Form.Id);
	 for (CT = (TT_ClassType_t) 0;
	      CT < (TT_ClassType_t) TT_NUM_CLASS_TYPES;
	      CT++)
	    if ((CT == TT_FREE) ||
		((Gbl.TimeTable.View == TT_CRS_EDIT) && (CT == TT_LECTURE || CT == TT_PRACTICAL)) ||
		((Gbl.TimeTable.View == TT_TUT_EDIT) && (CT == TT_TUTORING)))
	      {
	       fprintf (Gbl.F.Out,"<option");
	       if (CT == ClassType)
		  fprintf (Gbl.F.Out," selected=\"selected\"");
	       fprintf (Gbl.F.Out," value=\"%s\">%s</option>",
		        TT_ClassTypeDB[CT],
		        Txt_TIMETABLE_CLASS_TYPES[CT]);
	      }
	 fprintf (Gbl.F.Out,"</select>");

	 if (IntervalType == TT_FREE_INTERVAL)
	   {
	    fprintf (Gbl.F.Out,"<input type=\"hidden\" name=\"TTDur\" value=\"");
            for (i = Interval + 1;
        	 i < Gbl.TimeTable.Config.IntervalsPerDay;
        	 i++)
              if (TT_TimeTable[Weekday][i].NumColumns == TT_MAX_COLUMNS_PER_CELL)
                  break;
            MaxDuration = i - Interval;
	    Dur = (MaxDuration >= Gbl.TimeTable.Config.IntervalsPerHour) ? Gbl.TimeTable.Config.IntervalsPerHour :	// MaxDuration >= 1h ==> Dur = 1h
	                                                                   MaxDuration;					// MaxDuration  < 1h ==> Dur = MaxDuration
	    fprintf (Gbl.F.Out,"%u:%02u\" />",
		     (Dur / Gbl.TimeTable.Config.IntervalsPerHour),	// Hours
		     (Dur % Gbl.TimeTable.Config.IntervalsPerHour) *
		     Gbl.TimeTable.Config.Range.MinutesPerInterval);	// Minutes
	   }
	 else
	   {
	    /***** Class duration *****/
	    fprintf (Gbl.F.Out,"<select name=\"TTDur\" class=\"TT_DUR\""
		               " onchange=\"document.getElementById('%s').submit();\">",
		     Gbl.Form.Id);
            for (i = Interval + TT_TimeTable[Weekday][Interval].Columns[Column].DurationIntervals;
        	 i < Gbl.TimeTable.Config.IntervalsPerDay;
        	 i++)
               if (TT_TimeTable[Weekday][i].NumColumns == TT_MAX_COLUMNS_PER_CELL)
                  break;
            MaxDuration = i - Interval;
            if (TT_TimeTable[Weekday][Interval].Columns[Column].DurationIntervals > MaxDuration)
               MaxDuration = TT_TimeTable[Weekday][Interval].Columns[Column].DurationIntervals;
	    for (Dur = 0;
		 Dur <= MaxDuration;
		 Dur++)
	      {
	       fprintf (Gbl.F.Out,"<option");
	       if (Dur == DurationNumIntervals)
		  fprintf (Gbl.F.Out," selected=\"selected\"");
	       fprintf (Gbl.F.Out,">%u:%02u</option>",
		        (Dur / Gbl.TimeTable.Config.IntervalsPerHour),	// Hours
		        (Dur % Gbl.TimeTable.Config.IntervalsPerHour) *
		        Gbl.TimeTable.Config.Range.MinutesPerInterval);	// Minutes
	      }
	    fprintf (Gbl.F.Out,"</select>");

	    if (Gbl.TimeTable.View == TT_CRS_EDIT)
	      {
	       /***** Group *****/
	       fprintf (Gbl.F.Out,"<br />"
		                  "<label for=\"TTGrp%s\">"
		                  "%s"
		                  "</label>"
	                          "<select id=\"TTGrp%s\" name=\"TTGrp\""
	                          " class=\"TT_GRP\""
		                  " onchange=\"document.getElementById('%s').submit();\">",
			CellStr,
		        Txt_Group,
			CellStr,
			Gbl.Form.Id);
               fprintf (Gbl.F.Out,"<option value=\"-1\"");
	       if (GrpCod <= 0)
		  fprintf (Gbl.F.Out," selected=\"selected\"");
               fprintf (Gbl.F.Out,">%s</option>",Txt_All_groups);
               for (NumGrpTyp = 0;
        	    NumGrpTyp < Gbl.Crs.Grps.GrpTypes.Num;
        	    NumGrpTyp++)
                 {
                  GrpTyp = &Gbl.Crs.Grps.GrpTypes.LstGrpTypes[NumGrpTyp];

                  for (NumGrp = 0;
                       NumGrp < GrpTyp->NumGrps;
                       NumGrp++)
                    {
                     Grp = &GrpTyp->LstGrps[NumGrp];

	             fprintf (Gbl.F.Out,"<option value=\"%ld\"",
	        	      Grp->GrpCod);
	             if (GrpCod == Grp->GrpCod)
		        fprintf (Gbl.F.Out," selected=\"selected\"");
	             fprintf (Gbl.F.Out,">%s %s",
	        	      GrpTyp->GrpTypName,Grp->GrpName);
	             if (Grp->Classroom.ClaCod > 0)
	                fprintf (Gbl.F.Out," (%s)",
	                         Grp->Classroom.ShrtName);
	             fprintf (Gbl.F.Out,"</option>");
                    }
                 }
	       fprintf (Gbl.F.Out,"</select>");

	       /***** Info *****/
	       fprintf (Gbl.F.Out,"<br />"
		                  "<label for=\"TTInf%s\">"
		                  "%s"
		                  "</label>"
	                          "<input id=\"TTInf%s\" name=\"TTInf\""
	                          " type=\"text\" size=\"1\" maxlength=\"%u\""
	                          " value=\"%s\" class=\"TT_INF\""
		                  " onchange=\"document.getElementById('%s').submit();\" />",
			CellStr,
		        Txt_Info,
			CellStr,
			TT_MAX_CHARS_INFO,
			Info ? Info :
			       "",
			Gbl.Form.Id);
	      }
	    else // TimeTableView == TT_TUT_EDIT
	      {
	       /***** Info *****/
	       fprintf (Gbl.F.Out,"<br />"
		                  "<label for=\"TTInf%s\" class=\"DAT_SMALL\">"
		                  "%s"
		                  "</label>"
                                  "<input id=\"TTInf%s\" name=\"TTInf\""
                                  " type=\"text\" size=\"12\" maxlength=\"%u\""
                                  " value=\"%s\" class=\"TT_INF\""
		                  " onchange=\"document.getElementById('%s').submit();\" />",
			CellStr,
		        Txt_Info,
			CellStr,
			TT_MAX_CHARS_INFO,Info,
			Gbl.Form.Id);
	      }
	   }

	 /***** Free allocated unique string for this cell used in labels *****/
	 free ((void *) CellStr);

	 break;
     }

   /***** End form *****/
   if (Gbl.TimeTable.View == TT_CRS_EDIT ||
       Gbl.TimeTable.View == TT_TUT_EDIT)
      Frm_EndForm ();

   /***** End cell *****/
   Tbl_TD_End ();
  }