abpilot: refer embedded data source from doc settings

So that even if the address book data source wizard creates the embedded
data source, next time the document is loaded, we can find it.

Change-Id: Ibb11fa119fb27976437e54bed1d590cfd9863236

extensions/source/abpilot/datasourcehandling.cxx

@@ -406,6 +406,12 @@ namespace abp
                     });
                     xStorable->storeAsURL(sTmpName, aSequence);
                     m_pImpl->sName = sTmpName;
+
+                    // Refer to the sub-storage name in the document settings, so
+                    // we can load it again next time the file is imported.
+                    uno::Reference<lang::XMultiServiceFactory> xFactory(pObjectShell->GetModel(), uno::UNO_QUERY);
+                    uno::Reference<beans::XPropertySet> xPropertySet(xFactory->createInstance("com.sun.star.document.Settings"), uno::UNO_QUERY);
+                    xPropertySet->setPropertyValue("EmbeddedDatabaseName", uno::makeAny(aStreamRelPath));
                 }
             }
         }