Чтение мета-информации о пакете, если она есть.

Author: nixel2007

src/Классы/КэшУстановленныхПакетов.os

@@ -41,8 +41,23 @@
 
 Процедура ДобавитьУстановленныйПакет(Знач ФайлКаталога)
 
-	// TODO - здесь какое-то мета-описание нужно вместо Истины
-	УстановленныеПакеты.Вставить(ФайлКаталога.Имя, Истина);
+	ПутьКФайлуМетаданных = ОбъединитьПути(ФайлКаталога.ПолноеИмя, Константы.ИмяФайлаМетаданныхПакета);
+	ФайлМетаданных = Новый Файл(ПутьКФайлуМетаданных);
+	Если ФайлМетаданных.Существует() Тогда
+		
+		Чтение = Новый ЧтениеXML;
+		Чтение.ОткрытьФайл(ПутьКФайлуМетаданных);
+		Лог.Отладка("XML загружен");
+		Сериализатор = Новый СериализацияМетаданныхПакета;
+		МетаОписаниеПакета = Сериализатор.ПрочитатьXML(Чтение);
+		
+		Чтение.Закрыть();
+
+	Иначе
+		МетаОписаниеПакета = Истина;
+	КонецЕсли;
+
+	УстановленныеПакеты.Вставить(ФайлКаталога.Имя, МетаОписаниеПакета);
 
 КонецПроцедуры