oox/source/ppt/pptshape.cxx | 7 ++++---
sd/qa/unit/data/pptx/tdf142648.pptx |binary
sd/qa/unit/export-tests-ooxml1.cxx | 23 +++++++++++++++++++++++
3 files changed, 27 insertions(+), 3 deletions(-)
New commits:
commit 7eb0e52527e729a21973e70d5be8e0a6779ec748
Author: Tibor Nagy <nagy.tib...@nisz.hu>
AuthorDate: Wed Jul 7 10:10:21 2021 +0200
Commit: László Németh <nem...@numbertext.org>
CommitDate: Tue Jul 20 18:50:17 2021 +0200
tdf#142648 PPTX: import long slide names to avoid broken link export
PPTX import renames the slides using their short title text.
Apply this for the titles with 64 or more characters, too,
abbreviating the title text instead of using the default
slide name "page1", "page2" etc., because the default slide
names result broken hyperlinks during the PPTX export.
To test the fix manually, create a new hyperlink
using text selection and Insert Hyperlink (Ctrl-K),
clicking on Target in Document button on the Document pane,
and selecting a slide name.
Note: the problem still exists for the duplicated
or newly inserted slides, which get default slide names.
Change-Id: Iec1fab5a2ee862353766ed7e13b1501b3a325d0e
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/118548
Tested-by: László Németh <nem...@numbertext.org>
Reviewed-by: László Németh <nem...@numbertext.org>
diff --git a/oox/source/ppt/pptshape.cxx b/oox/source/ppt/pptshape.cxx
index 8b25523e5c3d..4b735ea59c01 100644
--- a/oox/source/ppt/pptshape.cxx
+++ b/oox/source/ppt/pptshape.cxx
@@ -439,9 +439,10 @@ void PPTShape::addShape(
Reference<drawing::XDrawPagesSupplier>
xDPS(rFilterBase.getModel(), uno::UNO_QUERY_THROW);
Reference<drawing::XDrawPages>
xDrawPages(xDPS->getDrawPages(), uno::UNO_SET_THROW);
sal_uInt32 nMaxPages = xDrawPages->getCount();
- bool bUseTitleAsSlideName = !aTitleText.isEmpty() &&
- // just a magic value, but we don't want to set
slide names which are too long
- aTitleText.getLength() < 64;
+ // just a magic value but we don't want to drop out slide
names which are too long
+ if (aTitleText.getLength() > 63)
+ aTitleText = aTitleText.copy(0, 63);
+ bool bUseTitleAsSlideName = !aTitleText.isEmpty();
// check duplicated title name
if (bUseTitleAsSlideName)
{
diff --git a/sd/qa/unit/data/pptx/tdf142648.pptx
b/sd/qa/unit/data/pptx/tdf142648.pptx
new file mode 100644
index 000000000000..fc470530fc94
Binary files /dev/null and b/sd/qa/unit/data/pptx/tdf142648.pptx differ
diff --git a/sd/qa/unit/export-tests-ooxml1.cxx
b/sd/qa/unit/export-tests-ooxml1.cxx
index a450e6d890eb..15832942c2a8 100644
--- a/sd/qa/unit/export-tests-ooxml1.cxx
+++ b/sd/qa/unit/export-tests-ooxml1.cxx
@@ -61,6 +61,7 @@ using namespace css;
class SdOOXMLExportTest1 : public SdModelTestBaseXML
{
public:
+ void testTdf142648();
void testTdf47365();
void testTdf125071();
void testTdf54037();
@@ -120,6 +121,7 @@ public:
CPPUNIT_TEST_SUITE(SdOOXMLExportTest1);
+ CPPUNIT_TEST(testTdf142648);
CPPUNIT_TEST(testTdf47365);
CPPUNIT_TEST(testTdf125071);
CPPUNIT_TEST(testTdf54037);
@@ -206,6 +208,27 @@ void checkFontAttributes( const SdrTextObj* pObj,
ItemValue nVal, sal_uInt32 nId
}
+void SdOOXMLExportTest1::testTdf142648()
+{
+ sd::DrawDocShellRef xDocShRef = loadURL(
m_directories.getURLFromSrc(u"/sd/qa/unit/data/pptx/tdf142648.pptx"), PPTX );
+ utl::TempFile tempFile;
+
+ uno::Reference<drawing::XDrawPagesSupplier>
xDPS(xDocShRef->GetDoc()->getUnoModel(), uno::UNO_QUERY_THROW);
+ uno::Reference<drawing::XDrawPages> xDrawPages(xDPS->getDrawPages(),
uno::UNO_SET_THROW);
+ uno::Reference<drawing::XDrawPage> xDrawPage;
+ xDrawPages->getByIndex(0) >>= xDrawPage;
+ uno::Reference<container::XNamed> xNamed(xDrawPage, uno::UNO_QUERY_THROW);
+ xNamed->setName("#Slide 1");
+
+ xDocShRef = saveAndReload(xDocShRef.get(), PPTX, &tempFile);
+ xDocShRef->DoClose();
+
+ xmlDocUniquePtr pRelsDoc = parseExport(tempFile,
"ppt/slides/_rels/slide2.xml.rels");
+
+ assertXPath(pRelsDoc, "/rels:Relationships/rels:Relationship[@Id='rId1']",
"Target",
+ "slide1.xml");
+}
+
void SdOOXMLExportTest1::testTdf47365()
{
sd::DrawDocShellRef xDocShRef = loadURL(
m_directories.getURLFromSrc(u"/sd/qa/unit/data/pptx/loopNoPause.pptx"), PPTX );
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
