https://bugs.freedesktop.org/show_bug.cgi?id=77813

          Priority: medium
            Bug ID: 77813
          Assignee: [email protected]
           Summary: UnoService com.sun.star.util.PathSubstitution retuns
                    wrong value for $Work
          Severity: normal
    Classification: Unclassified
                OS: All
          Reporter: [email protected]
          Hardware: Other
            Status: NEW
           Version: 4.2.0.0.alpha1
         Component: BASIC
           Product: LibreOffice

Set path for My Documents in Tools > Options > General Path to "/home/foo/"

Paste the code below in basis and test.
Return value is "/home/"

sub testPathSubstitution
 msgbox GetItemsInstallPath("work")
end sub

Function GetItemsInstallPath (sItem$) as String
 Dim oPathSubst 
 oPathSubst = createUnoService("com.sun.star.util.PathSubstitution")
 GetItemsInstallPath =  oPathSubst.getSubstituteVariableValue(sItem)
End Function

Info
'http://wiki.services.openoffice.org/wiki/Documentation/DevGuide/OfficeDev/Resolving_Path_Variables
'predefinedPathVariables : home, inst, prog, temp, user, work, path, lang,
langid, vlang, instpath, progpath, userpath, insturl, progurl, userurl,
workdirurl,baseinsturl, userdataurl, brandbaseurl

-- 
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to