3_1_3_264

SSL/src/CommonModules/ЭлектроннаяПодписьСлужебныйПовтИсп/Module.bsl

@@ -59,7 +59,7 @@
 	Запрос.Текст =
 	"ВЫБРАТЬ
 	|	Программы.Ссылка КАК Ссылка,
-	|	Программы.Наименование КАК Наименование,
+	|	Программы.Наименование КАК Представление,
 	|	Программы.ИмяПрограммы КАК ИмяПрограммы,
 	|	Программы.ТипПрограммы КАК ТипПрограммы,
 	|	Программы.АлгоритмПодписи КАК АлгоритмПодписи,
@@ -122,7 +122,7 @@
 // Возвращаемое значение:
 //  Структура:
 //   * Ссылка - СправочникСсылка.ПрограммыЭлектроннойПодписиИШифрования
-//   * Наименование - Строка
+//   * Представление - Строка
 //   * ИмяПрограммы - Строка
 //   * ТипПрограммы - Число
 //   * АлгоритмПодписи - Строка
@@ -134,7 +134,7 @@
 	
 	Описание = Новый Структура;
 	Описание.Вставить("Ссылка");
-	Описание.Вставить("Наименование");
+	Описание.Вставить("Представление");
 	Описание.Вставить("ИмяПрограммы");
 	Описание.Вставить("ТипПрограммы");
 	Описание.Вставить("АлгоритмПодписи");
@@ -208,33 +208,65 @@
 	
 	Для Каждого ОписаниеПрограммы Из ОбщиеНастройки.ОписанияПрограмм Цикл
 		Если ПутиКПрограммамНаСерверахLinux.Получить(ОписаниеПрограммы.Ссылка) <> Неопределено Тогда
+			Если ЗначениеЗаполнено(ОписаниеПрограммы.Идентификатор) Тогда
+				ПутиКПрограммамНаСерверахLinux.Вставить(ОписаниеПрограммы.Идентификатор,
+					ПутиКПрограммамНаСерверахLinux.Получить(ОписаниеПрограммы.Ссылка));
+			КонецЕсли;
 			Продолжить;
 		КонецЕсли;
-		Для Каждого ПутиКМодулямПрограмм Из ОбщиеНастройки.ПоставляемыеПутиКМодулямПрограмм Цикл
-			Если Не СтрНачинаетсяС(ОписаниеПрограммы.Идентификатор, ПутиКМодулямПрограмм.Ключ) Тогда
-				Продолжить;
-			КонецЕсли;
-			ПутиКМодулямПрограммы = ПутиКМодулямПрограмм.Значение.Получить(ТипПлатформыСтрокой);
-			Если ПутиКМодулямПрограммы = Неопределено Тогда
-				Продолжить;
-			КонецЕсли;
-			ОписаниеПути = Новый Структура("ПутьКПрограмме, Существует", ПутиКМодулямПрограммы[0], Ложь);
+		ОписаниеПути = ОписаниеПутиПоИдентификаторуПрограммы(ОписаниеПрограммы.Идентификатор,
+			ОбщиеНастройки.ПоставляемыеПутиКМодулямПрограмм, ТипПлатформыСтрокой);
+		Если ОписаниеПути <> Неопределено Тогда
 			ПутиКПрограммамНаСерверахLinux.Вставить(ОписаниеПрограммы.Ссылка, ОписаниеПути);
-			Для Каждого ПутиКМодулям Из ПутиКМодулямПрограммы Цикл
-				Если Не ОдинИзМодулейСуществует(ПутиКМодулям) Тогда
-					Продолжить;
-				КонецЕсли;
-				ОписаниеПути.ПутьКПрограмме = ПутиКМодулям;
-				ОписаниеПути.Существует = Истина;
-				Прервать;
-			КонецЦикла;
-		КонецЦикла;
+			ПутиКПрограммамНаСерверахLinux.Вставить(ОписаниеПрограммы.Идентификатор, ОписаниеПути);
+		КонецЕсли;
+	КонецЦикла;
+	
+	ПоставляемыеНастройки = Справочники.ПрограммыЭлектроннойПодписиИШифрования.ПоставляемыеНастройкиПрограмм();
+	Для Каждого ПоставляемаяНастройка Из ПоставляемыеНастройки Цикл
+		Если ПутиКПрограммамНаСерверахLinux.Получить(ПоставляемаяНастройка.Идентификатор) <> Неопределено Тогда
+			Продолжить;
+		КонецЕсли;
+		ОписаниеПути = ОписаниеПутиПоИдентификаторуПрограммы(ПоставляемаяНастройка.Идентификатор,
+			ОбщиеНастройки.ПоставляемыеПутиКМодулямПрограмм, ТипПлатформыСтрокой);
+		Если ОписаниеПути <> Неопределено Тогда
+			ПутиКПрограммамНаСерверахLinux.Вставить(ПоставляемаяНастройка.Идентификатор, ОписаниеПути);
+		КонецЕсли;
 	КонецЦикла;
 	
 	Возврат Новый ФиксированноеСоответствие(ПутиКПрограммамНаСерверахLinux);
 	
 КонецФункции
 
+Функция ОписаниеПутиПоИдентификаторуПрограммы(Идентификатор,
+			ПоставляемыеПутиКМодулямПрограмм, ТипПлатформыСтрокой)
+	
+	ОписаниеПути = Неопределено;
+	
+	Для Каждого ПутиКМодулямПрограмм Из ПоставляемыеПутиКМодулямПрограмм Цикл
+		Если Не СтрНачинаетсяС(Идентификатор, ПутиКМодулямПрограмм.Ключ) Тогда
+			Продолжить;
+		КонецЕсли;
+		ПутиКМодулямПрограммы = ПутиКМодулямПрограмм.Значение.Получить(ТипПлатформыСтрокой);
+		Если ПутиКМодулямПрограммы = Неопределено Тогда
+			Продолжить;
+		КонецЕсли;
+		ОписаниеПути = Новый Структура("ПутьКПрограмме, Существует", ПутиКМодулямПрограммы[0], Ложь);
+		Для Каждого ПутиКМодулям Из ПутиКМодулямПрограммы Цикл
+			Если Не ОдинИзМодулейСуществует(ПутиКМодулям) Тогда
+				Продолжить;
+			КонецЕсли;
+			ОписаниеПути.ПутьКПрограмме = ПутиКМодулям;
+			ОписаниеПути.Существует = Истина;
+			Прервать;
+		КонецЦикла;
+		Прервать;
+	КонецЦикла;
+	
+	Возврат ОписаниеПути;
+	
+КонецФункции
+
 Функция ОдинИзМодулейСуществует(ПутиКМодулям)
 	
 	МодулиПрограммы = СтрРазделить(ПутиКМодулям, ":");