Ответ

Misha v.3 27.06.2005 10:25

^if($module_id){
	^rem{ *** Удаляем информацию о модуле из базы данных *** }
	^MAIN:pSQL.void{
		DELETE FROM
			engine_modules
		WHERE
			module_id = $module_id
	}

	^rem{ *** находим неиспользуемые классы *** }
	$deleted[^MAIN:pSQL.table{
		SELECT
			engine_classes.module_id,
			engine_classes.class_name
		FROM
			engine_classes
			^MAIN:pSQL.left_join[from;engine_modules;engine_classes.module_id = engine_modules.module_id]
		WHERE
			^MAIN:pSQL.left_join[where;engine_modules;engine_classes.module_id = engine_modules.module_id]
			engine_modules.module_id IS NULL
	}

	^rem{ *** удаляем файлы неиспользуемых классов *** }
	^deleted.menu{
		^file:delete[/classes/$deleted.class_name]
	}

	^rem{ *** удаляем записи о неиспользуемых классах *** }	
	^MAIN:pSQL.void{
		DELETE FROM
			engine_classes
		WHERE
			module_id IN (^deleted.menu{$deleted.module_id}[,])
	}
}