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

[Jean-Pierre Ledure]

 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 <j...@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
 &apos; Converts input boolean value to HTML compatible string
 
-       _OutputBooleanToHTML = Iif(pbBool, &quot;&amp;#9745;&quot;, 
&quot;&amp;#9746;&quot;)
+       _OutputBooleanToHTML = Iif(pbBool, &quot;&amp;#x2714;&quot;, 
&quot;&amp;#x2716;&quot;)          &apos;  ✔ and ✖
 
 End Function   &apos;  _OutputBooleanToHTML    V1.4.0
 
@@ -1454,6 +1454,7 @@ Const cstMaxRows = 200
                                                                Print #piFile, 
&quot;     &lt;td&quot; &amp; _OutputClassToHTML(vTdClass) &amp; 
&quot;&gt;&quot; &amp; _OutputNumberToHTML(vDataCell) &amp; 
&quot;&lt;/td&gt;&quot;
                                                        Case vbBoolean
                                                                vTdClass() = 
_AddArray(vTdClass, &quot;bool&quot;)
+                                                               If vDataCell = 
False Then vTdClass() = _AddArray(vTdClass, &quot;false&quot;)
                                                                Print #piFile, 
&quot;     &lt;td&quot; &amp; _OutputClassToHTML(vTdClass) &amp; 
&quot;&gt;&quot; &amp; _OutputBooleanToHTML(vDataCell) &amp; 
&quot;&lt;/td&gt;&quot;
                                                        Case vbDate
                                                                vTdClass() = 
_AddArray(vTdClass, &quot;date&quot;)
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 = &quot;1.8.0&quot;
+Global Const Access2Base_Version = &quot;1.9.0&quot;
 
 REM AcCloseSave
 REM -----------------------------------------------------------------
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits