view MySQL/Plugins/DeleteResources.sql @ 619:a9a7dceeaad0

fix pg unit tests (2) + bug in patient recycling+protection
author Alain Mazy <am@orthanc.team>
date Wed, 18 Dec 2024 12:22:00 +0100
parents d0dd95ff0662
children
line wrap: on
line source

DROP PROCEDURE IF EXISTS DeleteResources;

CREATE PROCEDURE DeleteResources(
    IN p_id BIGINT
)
BEGIN
    DECLARE v_internalId BIGINT@
    DECLARE done INT DEFAULT FALSE@
	DECLARE cur1 CURSOR FOR
		SELECT internalId FROM DeletedResources@
	DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET done = TRUE@
	set done=FALSE@	

	OPEN cur1@
	REPEAT
		FETCH cur1 INTO v_internalId@
		IF NOT done THEN
		DELETE FROM Resources WHERE internalId=v_internalId@
		END IF@
	UNTIL done END REPEAT@
	CLOSE cur1@

END;