diff --git a/db/StoredProcedures.sql b/db/StoredProcedures.sql
index df05772bc3710973936ddb3be711fb4c904eab76..4a6bcfb53bb24800b1918d5403d8413c7a2754a7 100644
--- a/db/StoredProcedures.sql
+++ b/db/StoredProcedures.sql
@@ -1690,6 +1690,12 @@ BEGIN
 			disciplines.SubjectID = SubjectID
 	WHERE disciplines.ID = DisciplineID;
 
+	IF ExamType = 0 THEN
+		SET checker = AddModuleExam(TeacherID, DisciplineID);
+	ELSE
+		SET checker = DeleteModuleExam(TeacherID, DisciplineID);
+	END IF;
+
 	RETURN 0;
 
 END //