1 files changed, 9 insertions, 7 deletions
diff --git a/testautomation/writer/required/includes/w_003_.inc b/testautomation/writer/required/includes/w_003_.inc
index 5beb3ab3062c..2befbcb13c83 100755
--- a/testautomation/writer/required/includes/w_003_.inc
+++ b/testautomation/writer/required/includes/w_003_.inc
@@ -37,7 +37,9 @@
 '*
 '\******************************************************************
 
-sub w_003printLog Chr(13) + "--------- View Menu (w_003_.inc) ----------"
+sub w_003_
+
+    printLog Chr(13) + "--------- View Menu (w_003_.inc) ----------"
     gApplication = "WRITER"
 
     Call tViewPrintLayout
@@ -62,7 +64,7 @@ sub w_003printLog Chr(13) + "--------- View Menu (w_003_.inc) ----------"
     Call tViewZoom
 
     'Writer Web
-    gApplication = "HTMLDOKUMENT"
+    gApplication = "HTML"
     Call tHtmlDocViewZoom
     Call tHtmlDocViewHTMLSource
     gApplication = "WRITER"
@@ -82,7 +84,7 @@ testcase tViewZoom
     Kontext "Massstab"
     DialogTest ( Massstab )
     select case uCASE(gApplication)
-    case "HTMLDOKUMENT" :
+    case "HTML" :
         printlog " check checkbox '100%'"
         Vergroesserung100.check
         printlog " check checkbox 'Variable'"
@@ -335,7 +337,7 @@ testcase tViewToolbars
 
     printlog "- Toolbar 'Formula'"
     printlog "-  open"
-    Call hToolbarSelect("Formula", true)
+    Call hToolbarSelect("MATH", true)
     OL_SW_Rechenleiste.TypeKeys "<Enter>"
 
     printlog " Close active document"
@@ -524,7 +526,7 @@ endcase
 
 testcase tViewHTMLSource
     PrintLog "- View / HTML Source (only in HTML-Document)"
-    if gApplication <> "HTMLDOKUMENT" then goto endsub
+    if gApplication <> "HTML" then goto endsub
     printlog "Open new document"
     Call hNewDocument
     printlog "View / HTML-Source"
@@ -560,7 +562,7 @@ endcase
 '-----------------------------------------------------------
 
 testcase tHtmlDocViewZoom
-    gApplication = "HTMLDOKUMENT"
+    gApplication = "HTML"
     printlog " open application"
     Call hNewDocument
     printlog " type something into the document"
@@ -585,7 +587,7 @@ endcase
 
 testcase tHtmlDocViewHTMLSource
     PrintLog "- View / HTML Source (only in HTML-Document)"
-    gApplication = "HTMLDOKUMENT"
+    gApplication = "HTML"
     printlog "Open new document"
     Call hNewDocument
     printlog "View / HTML-Source"