#96091# 'StoreDocument' Sub modified

7 files changed, 21 insertions, 15 deletions

diff --git a/wizards/source/tools/Debug.xba b/wizards/source/tools/Debug.xba
index 369cd3c78aa5..41d296d3fdb6 100644
--- a/wizards/source/tools/Debug.xba
+++ b/wizards/source/tools/Debug.xba
@@ -1,6 +1,6 @@
 <?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="Debug" script:language="StarBasic">REM  *****  BASIC  *****
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Debug" script:language="StarBasic">REM  *****  BASIC  *****
 
 Sub ActivateReadOnlyFlag()
 	SetBasicReadOnlyFlag(True)
diff --git a/wizards/source/tools/Listbox.xba b/wizards/source/tools/Listbox.xba
index 79e12ae6ca82..8d3eea6a0d23 100644
--- a/wizards/source/tools/Listbox.xba
+++ b/wizards/source/tools/Listbox.xba
@@ -1,6 +1,6 @@
 <?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="Listbox" script:language="StarBasic">Option Explicit
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Listbox" script:language="StarBasic">Option Explicit
 Dim OriginalList()
 Dim oDialogModel as Object
 
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba
index 443682430e0d..25a4cb5b8460 100644
--- a/wizards/source/tools/Misc.xba
+++ b/wizards/source/tools/Misc.xba
@@ -1,6 +1,6 @@
 <?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="Misc" script:language="StarBasic">REM  *****  BASIC  *****
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Misc" script:language="StarBasic">REM  *****  BASIC  *****
 
 Const SBSHARE = 0
 Const SBUSER = 1
diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba
index bd906e7ef081..f9a2561008bd 100644
--- a/wizards/source/tools/ModuleControls.xba
+++ b/wizards/source/tools/ModuleControls.xba
@@ -1,6 +1,6 @@
 <?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="ModuleControls" script:language="StarBasic">Option Explicit
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ModuleControls" script:language="StarBasic">Option Explicit
 &apos;bla
 
 &apos; Accepts the name of a control and returns the respective control model as object
@@ -217,7 +217,7 @@ Dim oUcb as object
 End Sub
 
 
-Function StoreDocument(oDocument as Object, FilterNames() as String, DefaultName as String, DisplayDirectory as String) as String
+Function StoreDocument(oDocument as Object, FilterNames() as String, DefaultName as String, DisplayDirectory as String, Optional iAddProcedure as Integer) as String
 Dim NoArgs() as New com.sun.star.beans.PropertyValue
 Dim oStoreProperties(0) as New com.sun.star.beans.PropertyValue
 Dim oStoreDialog as Object
@@ -239,6 +239,12 @@ Dim FilterIndex as Integer
 		UIFilterName = oStoreDialog.GetCurrentFilter()
 		FilterIndex = IndexInArray(UIFilterName, FilterNames())
 		FilterName = FilterNames(FilterIndex,2)
+		If Not IsMissing(iAddProcedure) Then
+			Select Case iAddProcedure
+				Case 1
+					CommitLastDocumentChanges(sPath)
+			End Select
+		End If
 		On Local Error Goto NOSAVING
 		If FilterName = &quot;&quot;  Then
 			&apos; Todo: Den Fall abfangen, wenn ein zu überschreibendes Dokument schreibgeschützt ist (weil es z.B. gerade geöffnet ist)
diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba
index eb09957aab50..553fffd2eb32 100644
--- a/wizards/source/tools/Strings.xba
+++ b/wizards/source/tools/Strings.xba
@@ -1,6 +1,6 @@
 <?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="Strings" script:language="StarBasic">Option Explicit
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Strings" script:language="StarBasic">Option Explicit
 Public sProductname as String
 
 
diff --git a/wizards/source/tools/UCB.xba b/wizards/source/tools/UCB.xba
index 8c73652ffb1e..9e03138bdb78 100644
--- a/wizards/source/tools/UCB.xba
+++ b/wizards/source/tools/UCB.xba
@@ -1,6 +1,6 @@
 <?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="UCB" script:language="StarBasic">&apos;Option explicit
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="UCB" script:language="StarBasic">&apos;Option explicit
 Public oDocument
 Dim oDocInfo as object
 Const SBMAXDIRCOUNT = 10
diff --git a/wizards/source/tools/script.xlb b/wizards/source/tools/script.xlb
index 5ab6a06de589..c107f2c9bfb6 100644
--- a/wizards/source/tools/script.xlb
+++ b/wizards/source/tools/script.xlb
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
- <library:library xmlns:library="http://openoffice.org/2000/library" library:name="Tools" library:readonly="true" library:passwordprotected="false">
-  <library:element library:name="ModuleControls"/>
-  <library:element library:name="Strings"/>
-  <library:element library:name="Misc"/>
-  <library:element library:name="UCB"/>
-  <library:element library:name="Listbox"/>
-  <library:element library:name="Debug"/>
- </library:library>
+<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Tools" library:readonly="true" library:passwordprotected="false">
+ <library:element library:name="ModuleControls"/>
+ <library:element library:name="Strings"/>
+ <library:element library:name="Misc"/>
+ <library:element library:name="UCB"/>
+ <library:element library:name="Listbox"/>
+ <library:element library:name="Debug"/>
+</library:library>