Misc.xba (74cbd1f1) Misc.xba (d219bd27)
1<?xml version="1.0" encoding="UTF-8"?>
2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3<!--***********************************************************
4 *
5 * Licensed to the Apache Software Foundation (ASF) under one
6 * or more contributor license agreements. See the NOTICE file
7 * distributed with this work for additional information
8 * regarding copyright ownership. The ASF licenses this file

--- 119 unchanged lines hidden (view full) ---

128
129Function GetProductname() as String
130Dim oProdNameAccess as Object
131Dim sVersion as String
132Dim sProdName as String
133 oProdNameAccess = GetRegistryKeyContent(&quot;org.openoffice.Setup/Product&quot;)
134 sProdName = oProdNameAccess.getByName(&quot;ooName&quot;)
135 sVersion = oProdNameAccess.getByName(&quot;ooSetupVersion&quot;)
1<?xml version="1.0" encoding="UTF-8"?>
2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3<!--***********************************************************
4 *
5 * Licensed to the Apache Software Foundation (ASF) under one
6 * or more contributor license agreements. See the NOTICE file
7 * distributed with this work for additional information
8 * regarding copyright ownership. The ASF licenses this file

--- 119 unchanged lines hidden (view full) ---

128
129Function GetProductname() as String
130Dim oProdNameAccess as Object
131Dim sVersion as String
132Dim sProdName as String
133 oProdNameAccess = GetRegistryKeyContent(&quot;org.openoffice.Setup/Product&quot;)
134 sProdName = oProdNameAccess.getByName(&quot;ooName&quot;)
135 sVersion = oProdNameAccess.getByName(&quot;ooSetupVersion&quot;)
136 GetProductName = sProdName &amp; sVersion
136 GetProductName = sProdName &amp; &quot; &quot; &amp; sVersion
137End Function
138
139
140&apos; Opens a Document, checks beforehand, whether it has to be loaded
141&apos; or whether it is already on the desktop.
142&apos; If the parameter bDisposable is set to False then then returned document
143&apos; should not be disposed afterwards, because it is already opened.
144Function OpenDocument(DocPath as String, Args(), Optional bDisposable as Boolean)

--- 693 unchanged lines hidden ---
137End Function
138
139
140&apos; Opens a Document, checks beforehand, whether it has to be loaded
141&apos; or whether it is already on the desktop.
142&apos; If the parameter bDisposable is set to False then then returned document
143&apos; should not be disposed afterwards, because it is already opened.
144Function OpenDocument(DocPath as String, Args(), Optional bDisposable as Boolean)

--- 693 unchanged lines hidden ---