summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRüdiger Timm <rt@openoffice.org>2008-08-28 10:42:05 +0000
committerRüdiger Timm <rt@openoffice.org>2008-08-28 10:42:05 +0000
commitb684149f8138fea8190f2d540f05b4eb5176453f (patch)
treefb7a720118dc401dc89354fac2778cff6ce152c3
parentde5d4d41ac77d6c2a3d8328fb661b189b1f46a52 (diff)
INTEGRATION: CWS greenstate30ver2_DEV300 (1.1.48); FILE MERGED
2008/08/20 08:29:46 wg 1.1.48.1: i92937
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_export_html.inc13
1 files changed, 5 insertions, 8 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_export_html.inc b/testautomation/graphics/optional/includes/global/g_export_html.inc
index 395b4d05698d..ca87aa621e68 100755
--- a/testautomation/graphics/optional/includes/global/g_export_html.inc
+++ b/testautomation/graphics/optional/includes/global/g_export_html.inc
@@ -8,9 +8,9 @@
'*
'* $RCSfile: g_export_html.inc,v $
'*
-'* $Revision: 1.1 $
+'* $Revision: 1.2 $
'*
-'* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
+'* last change: $Author: rt $ $Date: 2008-08-28 11:42:05 $
'*
'* This file is part of OpenOffice.org.
'*
@@ -41,8 +41,7 @@
'\********************************************************************
testcase tHtmlExport
- warnlog "#i89678, HTML export Filter has changed position in impress"
- goto endsub
+
Dim Autor1 as string
Dim Adresse1 as string
Dim Liste(50) as string
@@ -349,8 +348,6 @@ endcase 'tHtmlExport
'-------------------------------------------------------------------------------
testcase tHtmlExport_Webcast
- warnlog "#i89678, HTML export Filter has changed position in impress"
- goto endsub
Dim iWaitIndex as integer
Dim i as integer
@@ -601,8 +598,8 @@ testcase tHtmlExport_Webcast
sFile = ConvertPath (gOfficePath + "user\work\webcast")
if (Dir (sFile + ".odp") <> "") then app.kill (sFile + ".odp")
WaitSlot (2000)
- hFileSaveAsWithFilterKill ( sFile , gImpressFilter, FALSE )
- Printlog "saved presentation: '" + sFile + "'"
+ hFileSaveAsWithFilterKill ((sFile + ".odp") , "impress8" )
+ Printlog "saved presentation: '" + sFile + ".odp"
'----------------------------------- Exportieren als ASP Web-Cast
Printlog "'///<b> export as webcast ASP </b>///'"
'/// File->SaveAs ///'