Skip to content

Commit d18439c

Browse files
committed
Имя каталога пакета берется из метаданных, а не из имени файла
1 parent 6782a88 commit d18439c

File tree

1 file changed

+12
-14
lines changed

1 file changed

+12
-14
lines changed

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

Lines changed: 12 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -12,18 +12,10 @@
1212
мЗависимостиВРаботе = Новый Соответствие;
1313
КонецЕсли;
1414

15-
ПутьУстановки = НайтиСоздатьКаталогУстановки(ФайлАрхива);
16-
1715
мВременныйКаталогУстановки = ВременныеФайлы.СоздатьКаталог();
1816
Лог.Отладка("Временный каталог установки: " + мВременныйКаталогУстановки);
19-
Лог.Информация("Устанавливаю пакет " + ПутьУстановки.Имя);
20-
Попытка
2117

22-
Если мЗависимостиВРаботе[ПутьУстановки.Имя] = "ВРаботе" Тогда
23-
ВызватьИсключение "Циклическая зависимость по пакету " + ПутьУстановки.Имя;
24-
КонецЕсли;
25-
26-
мЗависимостиВРаботе.Вставить(ПутьУстановки.Имя, "ВРаботе");
18+
Попытка
2719

2820
Лог.Отладка("Открываем архив пакета");
2921
ЧтениеПакета = Новый ЧтениеZipФайла;
@@ -33,7 +25,16 @@
3325
ФайлМетаданных = ИзвлечьОбязательныйФайл(ЧтениеПакета, Константы.ИмяФайлаМетаданныхПакета);
3426

3527
Метаданные = ПрочитатьМетаданныеПакета(ФайлМетаданных);
28+
ИмяПакета = Метаданные.Свойства().Имя;
3629

30+
ПутьУстановки = НайтиСоздатьКаталогУстановки(ИмяПакета);
31+
Лог.Информация("Устанавливаю пакет " + ИмяПакета);
32+
Если мЗависимостиВРаботе[ИмяПакета] = "ВРаботе" Тогда
33+
ВызватьИсключение "Циклическая зависимость по пакету " + ИмяПакета;
34+
КонецЕсли;
35+
36+
мЗависимостиВРаботе.Вставить(ИмяПакета, "ВРаботе");
37+
3738
РазрешитьЗависимостиПакета(Метаданные);
3839

3940
СтандартнаяОбработка = Истина;
@@ -46,7 +47,7 @@
4647

4748
ВременныеФайлы.УдалитьФайл(мВременныйКаталогУстановки);
4849

49-
мЗависимостиВРаботе.Вставить(ПутьУстановки.Имя, "Установлен");
50+
мЗависимостиВРаботе.Вставить(ИмяПакета, "Установлен");
5051

5152
Исключение
5253
ЧтениеПакета.Закрыть();
@@ -88,12 +89,9 @@
8889

8990
КонецПроцедуры
9091

91-
Функция НайтиСоздатьКаталогУстановки(Знач ИмяПакета)
92+
Функция НайтиСоздатьКаталогУстановки(Знач ИдентификаторПакета)
9293

9394
СистемныеБиблиотеки = КаталогСистемныхБиблиотек();
94-
ФайлАрхива = Новый Файл(ИмяПакета);
95-
ИдентификаторПакета = ФайлАрхива.ИмяБезРасширения;
96-
9795
ПутьУстановки = Новый Файл(ОбъединитьПути(СистемныеБиблиотеки, ИдентификаторПакета));
9896
Лог.Отладка("Путь установки пакета: " + ПутьУстановки.ПолноеИмя);
9997

0 commit comments

Comments
 (0)