debuglevels: fixed index access in StartTestWithDefaultOptions

This commit is contained in:
Frank Schoenheit [fs] 2011-02-23 10:46:57 +01:00
parent 123c60ed46
commit c32a04b6b8

View file

@ -658,10 +658,11 @@ Function StartTestWithDefaultOptions
component(cStJava) = "Java"
component(cStDataBase) = "Base"
component(cStExtension) = "Extensions"
dim action(2) as string
dim action(3) as string
action(cDocNew) = "new"
action(cDocSaveOpen8) = "V8.0"
action(cDocSaveOpenXML) = "XML"
action(cDocClose) = "close"
dim baseAction(5) as string
baseAction(cDBService) = "services"
baseAction(cDBOpen) = "open"