binfilter test needs to have SOLARSRC set to find sample docs

This commit is contained in:
Caolán McNamara 2011-11-04 09:24:32 +00:00
parent b70fbfd926
commit edf50b4d4f

View file

@ -120,7 +120,10 @@ Dim gDlgState as Integer
Sub SetGlobalDoc
gOutputDoc = ThisComponent
oBinFilterComp = createUnoService( "com.sun.star.comp.office.BF_MigrateFilter" )
REM need to have the binfilter component, and SOLARSRC set to find sample docs
if Environ("SOLARSRC") <> "" then
oBinFilterComp = createUnoService( "com.sun.star.comp.office.BF_MigrateFilter" )
End If
end Sub
Sub ClearStatus