diff options
| -rw-r--r-- | wizards/source/importwizard/Main.xba | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/wizards/source/importwizard/Main.xba b/wizards/source/importwizard/Main.xba index b26d4c56e..ee230a52b 100644 --- a/wizards/source/importwizard/Main.xba +++ b/wizards/source/importwizard/Main.xba @@ -7,7 +7,7 @@ Public HeaderPreviews(4) as Object Public ImportDialog as Object Public ImportDialogArea as Object Public oFactoryKey as Object - +Public bShowLogFile as Boolean ' If the ProgressPage ist already on Top The Dialog will be immediately closed when this flag is ' set to False @@ -15,6 +15,8 @@ Public bConversionIsRunning as Boolean Public RetValue as Integer Sub Main() + Dim NoArgs() as New com.sun.star.beans.PropertyValue + bShowLogFile=FALSE If Not bDebugWizard Then On Local Error Goto RTError End If @@ -42,6 +44,9 @@ Sub Main() ImportDialog.cmdGoOn.DefaultButton = True ImportDialogArea.GetControl("optSODocuments").SetFocus() RetValue = ImportDialogArea.Execute() + If bShowLogFile=TRUE Then + OpenDocument(sLogUrl, NoArgs()) + End if If RetValue = 0 Then CancelTask() End If |