Commits

mba  committed 034777f

cws mba34issues01: use OOo filter names

  • Participants
  • Parent commits ac00940

Comments (0)

Files changed (1)

File testautomation/writer/optional/includes/clipboard/clipbrd_func.inc

     Dim CurrentExportSet as String
     Dim RecentExportSet as integer
     Dim ExportFound as boolean
-    printlog " This function sets the export in options to 'Oracle Open Office Writer' "
+    printlog " This function sets the export in options to 'OpenOffice.org Writer' "
     printlog " Giving a parameter a special export will be chosen "
     
     ExportFound = False
         For i = 1 to Export.GetItemCount
             Export.Select i
             CurrentExportset = Export.GetSelText
-            if Instr(Ucase(CurrentExportset), "Oracle Open Office Writer") then
+            if Instr(Ucase(CurrentExportset), "OpenOffice.org Writer") then
                 i = Export.GetItemCount + 1
                 ExportFound = True
             end if
     if ExportFound = True then
         printlog "Export has been changed!"
     else
-        Warnlog "Couldn't set Export to Oracle Open Office Writer!"
+        Warnlog "Couldn't set Export to OpenOffice.org Writer!"
     end if
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK