[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, "☑", "☒")
+ _OutputBooleanToHTML = Iif(pbBool, "✔", "✖") ' ✔ 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