From ddf748da19bfd1d5236fc1fb76c62a12f8f5c734 Mon Sep 17 00:00:00 2001
From: Behrend Cornelius <bc@openoffice.org>
Date: Mon, 2 Dec 2002 13:06:55 +0000
Subject: #105421# resources for Overwrite dialog added

---
 wizards/source/tools/ModuleControls.xba | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'wizards')

diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba
index 4b211370961b..d5078c2fd65e 100644
--- a/wizards/source/tools/ModuleControls.xba
+++ b/wizards/source/tools/ModuleControls.xba
@@ -321,6 +321,9 @@ Dim OverwriteModel as Object
 	If InitResources(&quot;&quot;, &quot;com&quot;) Then
 		QueryString = GetResText(1007)
 		QueryString = ReplaceString(QueryString, ConvertFromUrl(FilePath), &quot;&lt;PATH&gt;&quot;)
+		If Len(QueryString) &gt; 130 Then
+			QueryString = DeleteStr(QueryString, &quot;.&lt;BR&gt;&quot;)
+		End If			
 		QueryString = ReplaceString(QueryString, chr(13), &quot;&lt;BR&gt;&quot;)
 		lblYes = GetResText(1008)
 		lblYesToAll = GetResText(1009)
-- 
cgit v1.2.3