[Libreoffice-commits] core.git: wizards/source

Jean-Pierre Ledure jp at ledure.be
Fri Feb 16 14:21:49 UTC 2018


 wizards/source/access2base/Database.xba    |    3 ++-
 wizards/source/access2base/acConstants.xba |    2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

New commits:
commit 585d43110c2f781cc07f53c8fdfd271578984e72
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Fri Feb 16 15:18:37 2018 +0100

    Access2Base - Nicer representation of booleans in OutputTo action
    
    Replacement of True/False output characters
    Addition of "false" class

diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba
index 30b412fb9cfa..e82b15d25b55 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -1344,7 +1344,7 @@ REM ----------------------------------------------------------------------------
 Private Function _OutputBooleanToHTML(ByVal pbBool As Boolean) As String
 '	Converts input boolean value to HTML compatible string
 
-	_OutputBooleanToHTML = Iif(pbBool, "&#9745;", "&#9746;")
+	_OutputBooleanToHTML = Iif(pbBool, "&#x2714;", "&#x2716;")		'	✔ and ✖
 
 End Function	'	_OutputBooleanToHTML	V1.4.0
 
@@ -1454,6 +1454,7 @@ Const cstMaxRows = 200
 								Print #piFile, "     <td" & _OutputClassToHTML(vTdClass) & ">" & _OutputNumberToHTML(vDataCell) & "</td>"
 							Case vbBoolean
 								vTdClass() = _AddArray(vTdClass, "bool")
+								If vDataCell = False Then vTdClass() = _AddArray(vTdClass, "false")
 								Print #piFile, "     <td" & _OutputClassToHTML(vTdClass) & ">" & _OutputBooleanToHTML(vDataCell) & "</td>"
 							Case vbDate
 								vTdClass() = _AddArray(vTdClass, "date")
diff --git a/wizards/source/access2base/acConstants.xba b/wizards/source/access2base/acConstants.xba
index f2aeb26ea82c..1e0da5d3c4c4 100644
--- a/wizards/source/access2base/acConstants.xba
+++ b/wizards/source/access2base/acConstants.xba
@@ -8,7 +8,7 @@ REM ============================================================================
 Option Explicit
 
 REM Access2Base -----------------------------------------------------
-Global Const Access2Base_Version = "1.8.0"
+Global Const Access2Base_Version = "1.9.0"
 
 REM AcCloseSave
 REM -----------------------------------------------------------------


More information about the Libreoffice-commits mailing list