From 36a288c52bea707d0b3227c0ec55566e8b43ed0c Mon Sep 17 00:00:00 2001 From: Vladimir Glazunov Date: Tue, 30 Mar 2010 13:14:23 +0200 Subject: native0#161752#greenstate fixe - transplanted from fee134b4457b@native0 --- testautomation/writer/optional/includes/clipboard/clipbrd_func.inc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) mode change 100644 => 100755 testautomation/writer/optional/includes/clipboard/clipbrd_func.inc diff --git a/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc b/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc old mode 100644 new mode 100755 index 88d07951ba6a..bad0c5f41dae --- a/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc +++ b/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc @@ -415,7 +415,7 @@ function wChangeHTMLCompatibilityExport ( optional wExport as integer ) as integ Dim CurrentExportSet as String Dim RecentExportSet as integer Dim ExportFound as boolean - printlog " This function sets the export in options to 'StarOffice Writer' " + printlog " This function sets the export in options to 'Oracle Open Office Writer' " printlog " Giving a parameter a special export will be chosen " ExportFound = False @@ -426,7 +426,7 @@ function wChangeHTMLCompatibilityExport ( optional wExport as integer ) as integ For i = 1 to Export.GetItemCount Export.Select i CurrentExportset = Export.GetSelText - if Instr(Ucase(CurrentExportset), "STAROFFICE WRITER") then + if Instr(Ucase(CurrentExportset), "Oracle Open Office Writer") then i = Export.GetItemCount + 1 ExportFound = True end if @@ -439,7 +439,7 @@ function wChangeHTMLCompatibilityExport ( optional wExport as integer ) as integ if ExportFound = True then printlog "Export has been changed!" else - Warnlog "Couldn't set Export to StarOffice Writer!" + Warnlog "Couldn't set Export to Oracle Open Office Writer!" end if Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK -- cgit