From 4d687b492306d1db08c1ae1a7338ba53bc6056d2 Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Wed, 19 May 2021 20:19:47 +0200
Subject: [PATCH] Use IsNumeric instead of IsDigit

---
 ePublishing/Footnotes.xba | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ePublishing/Footnotes.xba b/ePublishing/Footnotes.xba
index 6ef73e9..2387098 100644
--- a/ePublishing/Footnotes.xba
+++ b/ePublishing/Footnotes.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="Footnotes" script:language="StarBasic" script:moduleType="normal">sub footMark3
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Footnotes" script:language="StarBasic" script:moduleType="normal">sub footMark4
 End Sub
 
 Sub openFootNotesDialog
@@ -293,11 +293,11 @@ Sub processNumRange(range As String, pageNums() As Integer)
   Dim firstNum As Integer
   Dim secondNum As Integer
   rangeParts = split( range, &quot;-&quot;)
-  
+
   If UBound(rangeParts) = 1 Then
   firstValue = trim(rangeParts(0))
   secondValue = trim(rangeParts(1))
-    If ( IsDigit(firstValue) And  IsDigit(secondValue)) Then
+    If ( IsNumeric(firstValue) And  IsNumeric(secondValue)) Then
       firstNum = CInt(firstValue)
       secondNum = CInt(secondValue)
       If firstNum &lt;= secondNum Then
@@ -311,7 +311,7 @@ Sub processNumRange(range As String, pageNums() As Integer)
   EndIf
   If UBound(rangeParts) = 0 Then
     firstValue = trim(rangeParts(0))
-    If IsDigit(firstValue) Then
+    If IsNumeric(firstValue) Then
     firstNum = CInt(firstValue)
       If (NOT IsInArray(pageNums, firstNum)) Then
         addToArray(pageNums, firstNum)