new student core grid working

sails/roles/database/files/triggers-enrolments-integrity-constraints.sql

 -- Integrity constraints for enrolment management
 --
 
-DELIMITER ;;
-
-DROP TRIGGER IF EXISTS TRG_NEW_STUDENT_MAXENROLMENTS;;
+DELIMITER $$
+DROP TRIGGER IF EXISTS TRG_NEW_STUDENT_MAXENROLMENTS $$
 
 -- Integrity rule 2: office.current_enrolments updating (adding core)
-DROP TRIGGER IF EXISTS TRG_NEW_STUDENT_UPDATE_ENROLMENTS;;
+DROP TRIGGER IF EXISTS TRG_NEW_STUDENT_UPDATE_ENROLMENTS $$
 CREATE TRIGGER TRG_NEW_STUDENT_UPDATE_ENROLMENTS
 AFTER INSERT ON student
 FOR EACH ROW
 thisTrigger: BEGIN
   DECLARE LID INT;
-  IF ((@TRIGGER_CHECKS = FALSE)
-      OR (@TRIGGER_AFTER_INSERT_CHECKS = FALSE))
-    AND (USER() = 'root@localhost')
-		THEN
-	    LEAVE thisTrigger;
+  IF ((@TRIGGER_CHECKS = FALSE) OR (@TRIGGER_AFTER_INSERT_CHECKS = FALSE)) AND (USER() = 'root@localhost') THEN
+    LEAVE thisTrigger;
 	END IF;
 
   -- Load core collection for student
-	INSERT INTO grid (id_stu,id_sup,name) VALUES (NEW.id, null, 'new_grid');
-  SET LID = LAST_INSERT_ID();
-  CALL grid_create_core(LID,new.id);
-END;;
+  CALL student_create_core(null, new.id);
+END $$
 
 
-DROP PROCEDURE IF EXISTS active_grid_update;;
+-- Update student active grid
+DROP PROCEDURE IF EXISTS active_grid_update $$
 CREATE PROCEDURE active_grid_update(IN _id_stu INTEGER)
 BEGIN
     DECLARE _id_grid INTEGER;
 
     SELECT id INTO _id_grid FROM grid WHERE id_stu=_id_stu LIMIT 1;
     UPDATE student SET id_active_grid=_id_grid WHERE id=_id_stu;
-END;;
-
--- Procedure to add core when new grid is created
-DROP PROCEDURE IF EXISTS grid_create_core;;
-CREATE PROCEDURE grid_create_core(IN id_grid INTEGER, IN id_stu INTEGER)
-  BEGIN
-
--- Load core collection for student
-	INSERT INTO stu_picto(id_stu,id_pic,id_grid,attributes)
-  	SELECT id_stu,id_pic,id_grid, concat('{"id_cat":', if (id_cat_pic is null, 'null', id_cat_pic),
-                         ',"coord_x":',coord_x,
-                         ',"coord_y":',coord_y,
-                         ',"status":"invisible"',
-                         ',"highlight":false',
-                         ',"color":', if (color is null, 'null',concat('"',color,'"')),
-                         '}') as attributes
-	FROM picto_core P;
-END;;
+END $$
+
+
+-- Remove old procedure
+DROP PROCEDURE IF EXISTS grid_create_core $$
+
+-- Procedure to add core when new student is created
+DROP PROCEDURE IF EXISTS student_create_core $$
+CREATE PROCEDURE student_create_core(IN _id_sup int(11), IN _id_stu int(11))
+
+BEGIN
+
+  -- Variables
+  DECLARE _id INT;
+  DECLARE _id_pic INT;
+  DECLARE _id_cat_pic INT;
+  DECLARE _coord_x INT;
+  DECLARE _coord_y INT;
+  DECLARE _color VARCHAR(9);
+  DECLARE _grid_name VARCHAR(100);
+  DECLARE _id_grid INT;
+  DECLARE _attributes JSON;
+  DECLARE _num_pictos INT;
+  DECLARE _lang VARCHAR(5);
+
+  DECLARE LID INT;
+  DECLARE LID2 INT;
+
+  DECLARE done INT DEFAULT FALSE;
+  DECLARE cursor_picto_core CURSOR FOR SELECT id, id_pic, id_cat_pic, coord_x, coord_y, color FROM pictodb.picto_core ORDER BY id_cat_pic IS NULL DESC;
+  DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = TRUE;
+
+  -- Obtiene el texto según el idioma del supervisor
+  SELECT if(lang = "es-es", 'Con categorías', 'With categories') AS lang INTO _grid_name FROM student WHERE id = _id_stu COLLATE utf8_general_ci;
+
+  -- Crea el tablero principal
+  INSERT INTO grid (name, active, id_stu)
+  VALUES (_grid_name, 1, _id_stu);
+  SET LID = LAST_INSERT_ID();
+
+  -- Recorre todos los picto_core
+  OPEN cursor_picto_core;
+  read_loop: LOOP
+
+    FETCH cursor_picto_core INTO _id, _id_pic, _id_cat_pic, _coord_x, _coord_y, _color;
+
+    -- Control para la finalizacion del bucle
+    IF done THEN
+      LEAVE read_loop;
+    END IF;
+
+    -- Genero el JSON de attributes para el pictograma
+    SET _attributes = JSON_OBJECT(
+      'coord_x', _coord_x,
+      'coord_y', _coord_y,
+      'status','invisible',
+      'highlight','false',
+      'color', _color
+    );
+
+    -- El pictograma pertenece al tablero principal
+    IF (_id_cat_pic IS NULL) THEN
+
+      -- Inserta el pictograma en el tablero principal
+      INSERT INTO stu_picto (id_stu, id_pic, attributes, id_grid)
+      VALUES (_id_stu, _id_pic, _attributes, LID);
+
+      -- Cuenta para dicho pictograma el numero de pictogramas hijos
+      SELECT count(*) INTO _num_pictos FROM picto_core WHERE id_cat_pic = _id_pic;
+
+      -- Si tiene algun picto apuntandole, se crea un tablero nuevo
+      IF (_num_pictos > 0) THEN
+
+        -- Selecciona el texto para el tablero hijo
+        SELECT CAST(lang AS CHAR(5)) INTO _lang FROM student WHERE id = _id_stu LIMIT 1;
+        SELECT `text` INTO _grid_name FROM picto_exp WHERE id_pic = _id_pic AND lang = _lang LIMIT 1;
+
+        -- Crea el nuevo tablero hijo
+        INSERT INTO grid (name, active, id_stu)
+        VALUES (_grid_name, 0, _id_stu);
+        SET LID2 = LAST_INSERT_ID();
+
+        UPDATE stu_picto SET id_child_grid = LID2 WHERE id_pic = _id_pic AND id_grid = LID;
+
+      END IF;
+
+    ELSE
+
+      -- Inserta los pictogramas correspondientes en el tablero recien creado
+      SELECT CAST(lang AS CHAR(5)) INTO _lang FROM student WHERE id = _id_stu LIMIT 1;
+      SELECT `text` INTO _grid_name FROM picto_exp WHERE id_pic = _id_cat_pic AND lang = _lang LIMIT 1;
+      SELECT id INTO _id_grid FROM grid WHERE name = _grid_name AND id_stu = _id_stu LIMIT 1;
+
+      INSERT INTO stu_picto (id_stu, id_pic, attributes, id_grid)
+      VALUES (_id_stu, _id_pic, _attributes, _id_grid);
+
+    END IF;
+
+  END LOOP;
+  CLOSE cursor_picto_core;
+
+END $$
+
 
 -- Integrity rule 3: office.current_enrolments and supervisor assigments updating.
-DROP TRIGGER IF EXISTS TRG_MODIFY_STUDENT_ENROLMENTS;;
+DROP TRIGGER IF EXISTS TRG_MODIFY_STUDENT_ENROLMENTS $$
 
-DELIMITER;
+DELIMITER ;