tdf#93449 Internal hyperlinks are not exported corectly in HTML

InetURLObject class does not work correctly with internal document
links, containing not full url, but just a fragment. This case added
as an exception for HTML link export.

Change-Id: I44496a1cf186836d4194fc65ce7bf9aeb2f79b65
Reviewed-on: https://gerrit.libreoffice.org/17993Reviewed-by: Thorsten Behrens <Thorsten.Behrens@CIB.de>
Tested-by: Thorsten Behrens <Thorsten.Behrens@CIB.de>
(cherry picked from commit fd346802)
Signed-off-by: Michael Stahl <mstahl@redhat.com>

sw/qa/extras/htmlexport/htmlexport.cxx

@@ -250,7 +250,8 @@ DECLARE_HTMLEXPORT_TEST(testExportInternalUrl, "tdf90905.odt")
     CPPUNIT_ASSERT(pDoc);
 
     // Internal url should be valid
-    assertXPath(pDoc, "/html/body/p/a", "href", "#0.0.1.Text|outline");
+    assertXPath(pDoc, "/html/body/p[1]/a", "href", "#0.0.1.Text|outline");
+    assertXPath(pDoc, "/html/body/p[2]/a", "href", "#bookmark");
 }
 
 CPPUNIT_PLUGIN_IMPLEMENT();

sw/source/filter/html/wrthtml.cxx

@@ -1198,8 +1198,9 @@ OUString SwHTMLWriter::convertHyperlinkHRefValue(const OUString& rURL)
             }
         }
     }
-    else
+    else if (!sURL.isEmpty() && sURL[0] != '#')
     {
+        // Link is not started from "#", so looks like external link. Encode this URL.
         INetURLObject aURL(sURL);
         sURL = aURL.GetMainURL(INetURLObject::NO_DECODE);
     }