[Libreoffice-commits] help.git: source/text

[Ilmari Lauhakangas (via logerrit)]

 source/text/sbasic/shared/03090203.xhp |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

New commits:
commit 9e62afaaebac009fcfee18ef998f0db3baf953b4
Author:     Ilmari Lauhakangas <ilmari.lauhakangas at libreoffice.org>
AuthorDate: Tue Nov 3 18:54:50 2020 +0200
Commit:     Ilmari Lauhakangas <ilmari.lauhakangas at libreoffice.org>
CommitDate: Tue Nov 3 18:07:08 2020 +0100

    Fix macro example for While...Wend
    
    Change-Id: I09aa5a76319fb018d429028c88d4ed964f59e8f0
    Reviewed-on: https://gerrit.libreoffice.org/c/help/+/105262
    Tested-by: Jenkins
    Reviewed-by: Ilmari Lauhakangas <ilmari.lauhakangas at libreoffice.org>

diff --git a/source/text/sbasic/shared/03090203.xhp b/source/text/sbasic/shared/03090203.xhp
index a73675344..dad29dca3 100644
--- a/source/text/sbasic/shared/03090203.xhp
+++ b/source/text/sbasic/shared/03090203.xhp
@@ -56,7 +56,7 @@
   <paragraph role="bascode" id="par_id3155306" xml-lang="en-US">    sText ="This is a short text"</paragraph>
   <paragraph role="bascode" id="par_id3154011" localize="false">    iRun = 1</paragraph>
   <paragraph role="bascode" id="par_id3147215" localize="false">    While iRun < Len(sText)</paragraph>
-  <paragraph role="bascode" id="par_id3147427" localize="false">        If Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )</paragraph>
+  <paragraph role="bascode" id="par_id3147427" localize="false">        If Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1) = Chr( 1 + Asc( Mid(sText,iRun,1 )) )</paragraph>
   <paragraph role="bascode" id="par_id3149665" localize="false">        iRun = iRun + 1</paragraph>
   <paragraph role="bascode" id="par_id3152939" localize="false">    Wend</paragraph>
   <paragraph role="bascode" id="par_id3153189" xml-lang="en-US">    MsgBox sText,0,"Text encoded"</paragraph>