diff options
| author | Caolán McNamara <caolanm@redhat.com> | 2017-01-19 13:34:31 +0000 |
|---|---|---|
| committer | Caolán McNamara <caolanm@redhat.com> | 2017-01-19 15:13:37 +0000 |
| commit | ecd82b5121899fe23f0ccbdd8a89c8b18436f027 (patch) | |
| tree | c712ba5a994bb872e8c7548837e348bea33e045a | |
| parent | ef306355851e9b6591e9f3fb9476d5bbd548d9ba (diff) | |
Related: tdf#80731 bug in our own wizards revealed by new bracket test
Change-Id: Iec49bf80794a4ba61a70b22d0fc1769349ca4508
| -rw-r--r-- | wizards/source/importwizard/DialogModul.xba | 2 | ||||
| -rw-r--r-- | wizards/source/importwizard/FilesModul.xba | 2 | ||||
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/wizards/source/importwizard/DialogModul.xba b/wizards/source/importwizard/DialogModul.xba index 65fb1f2aec84..e55266985414 100644 --- a/wizards/source/importwizard/DialogModul.xba +++ b/wizards/source/importwizard/DialogModul.xba @@ -375,7 +375,7 @@ Dim sPath as String ElseIf oCheckbox.State = 0 Then CheckControlPath = True Else - sPath = ConvertToUrl(Trim(oTextBox.Text) + sPath = ConvertToUrl(Trim(oTextBox.Text)) CheckControlPath = oUcb.Exists(sPath) End If End Function diff --git a/wizards/source/importwizard/FilesModul.xba b/wizards/source/importwizard/FilesModul.xba index c796cad5ea2e..1e6363f43099 100644 --- a/wizards/source/importwizard/FilesModul.xba +++ b/wizards/source/importwizard/FilesModul.xba @@ -327,7 +327,7 @@ Dim sPrevMimeTypeorExtension as String CurFiltername = GetFilterName(sMimeTypeorExtension, sFilterName(), sExtension, FilterIndex) ApplIndex = FilesList(i,2) If sMimeTypeorExtension <> sPrevMimeTypeorExtension Then - CreateLogTable(ApplIndex, sMimeTypeOrExtension, sFiltername() + CreateLogTable(ApplIndex, sMimeTypeOrExtension, sFiltername()) End If If ApplIndex > Ubound(Applications) or (ApplIndex < 0) Then Msgbox "Applicationindex out of bounds:" & sSourcUrl diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index 96f23ad866d4..300b6eea6da6 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -311,7 +311,7 @@ Dim sProdName as String Filternames(i,0) = ReplaceString(Filternames(i,0), sProdName,"%productname%") oDialog.AppendFilter(FilterNames(i,0), FilterNames(i,1)) Next i - oDialog.SetCurrentFilter(FilterNames(0,0) + oDialog.SetCurrentFilter(FilterNames(0,0)) End Sub |