From 9dee1a3b6ed86dac58d8a20477a13519726a66a9 Mon Sep 17 00:00:00 2001
From: Behrend Cornelius <bc@openoffice.org>
Date: Fri, 22 Jun 2001 15:17:21 +0000
Subject: #88692# slash after call of 'Directorynameoutofpath' added

---
 wizards/source/webwizard/Bullets.xba            | 2 +-
 wizards/source/webwizard/HtmlAutoPilotBasic.xba | 5 +++--
 wizards/source/webwizard/Language.xba           | 2 +-
 wizards/source/webwizard/WebWzrd.xdl            | 6 +++---
 4 files changed, 8 insertions(+), 7 deletions(-)

(limited to 'wizards')

diff --git a/wizards/source/webwizard/Bullets.xba b/wizards/source/webwizard/Bullets.xba
index 06ffb99f8150..7695a20a6861 100644
--- a/wizards/source/webwizard/Bullets.xba
+++ b/wizards/source/webwizard/Bullets.xba
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Bullets" script:language="StarBasic">REM  *****  BASIC  *****
 
 
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba
index c35bf784ec35..9cd908d815b3 100644
--- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba
+++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="HtmlAutoPilotBasic" script:language="StarBasic">
 &apos; Variables must be declared
 Option Explicit
@@ -247,7 +247,8 @@ Dim SavePath as String
     BasicLibraries.LoadLibrary(&quot;Tools&quot;)
 	GetPaths()
 	oBaseDocument = StarDesktop.ActiveFrame.Controller.Model
-	SavePath = DirectoryNameoutofPath(oBaseDocument.Url, &quot;/&quot;)
+	&apos; Note: The sub DirectoryNameoutofPath should be change, so that the last character is a slash
+	SavePath = DirectoryNameoutofPath(oBaseDocument.Url, &quot;/&quot;) &amp; &quot;/&quot;
 
 	oGraphicObjects = oBaseDocument.GraphicObjects
 	For i = 0 to oGraphicObjects.Count-1
diff --git a/wizards/source/webwizard/Language.xba b/wizards/source/webwizard/Language.xba
index ccd476a9d2c5..74215b36a92f 100644
--- a/wizards/source/webwizard/Language.xba
+++ b/wizards/source/webwizard/Language.xba
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit
 
 
diff --git a/wizards/source/webwizard/WebWzrd.xdl b/wizards/source/webwizard/WebWzrd.xdl
index efb3ae1ae676..99244cb59034 100644
--- a/wizards/source/webwizard/WebWzrd.xdl
+++ b/wizards/source/webwizard/WebWzrd.xdl
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-
+<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
 <dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" dlg:id="WebWzrd" dlg:style-id="0" dlg:left="96" dlg:top="28" dlg:width="270" dlg:height="210">
  <dlg:styles>
   <dlg:style dlg:style-id="0"/>
@@ -12,7 +12,7 @@
   <dlg:button dlg:style-id="0" dlg:id="cbGoOn" dlg:tab-index="2" dlg:left="214" dlg:top="190" dlg:width="50" dlg:height="14" dlg:value="cbGoOn">
    <dlg:event dlg:listener-type="com.sun.star.awt.XActionListener" dlg:event-method="actionPerformed" dlg:script-type="StarBasic" dlg:script-code="WebWizard.HtmlAutoPilotBasic.EndDialog"/>
   </dlg:button>
-  <dlg:img dlg:id="ImagePreview" dlg:tab-index="3" dlg:left="6" dlg:top="6" dlg:width="258" dlg:height="26"/>
+  <dlg:img dlg:id="ImagePreview" dlg:tab-index="3" dlg:left="6" dlg:top="6" dlg:width="258" dlg:height="31"/>
   <dlg:menulist dlg:style-id="0" dlg:id="lbTemplate" dlg:tab-index="4" dlg:left="6" dlg:top="53" dlg:width="110" dlg:height="94">
    <dlg:event dlg:listener-type="com.sun.star.awt.XItemListener" dlg:event-method="itemStateChanged" dlg:script-type="StarBasic" dlg:script-code="WebWizard.HtmlAutoPilotBasic.ReloadCurrentDocument"/>
   </dlg:menulist>
@@ -32,4 +32,4 @@
   </dlg:radiogroup>
   <dlg:fixedline dlg:style-id="0" dlg:id="hlnBackground" dlg:tab-index="11" dlg:left="154" dlg:top="152" dlg:width="110" dlg:height="9" dlg:value="hlnBackground"/>
  </dlg:bulletinboard>
-</dlg:window>
+</dlg:window>
\ No newline at end of file
-- 
cgit v1.2.3