diff options
| author | Joerg Skottke [jsk] <jsk@openoffice.org> | 2010-03-02 08:50:17 +0100 |
|---|---|---|
| committer | Joerg Skottke [jsk] <jsk@openoffice.org> | 2010-03-02 08:50:17 +0100 |
| commit | 4e81c9a7435d287477934e2a4d0c60ad0cf7ddb1 (patch) | |
| tree | 4842fe46c98a3fa08c9aef66639fb6cdcd994f86 /testautomation/xml | |
| parent | 7c514e603e8a13b7501b5c710338e75914199348 (diff) | |
vitomation01: #i109696 - Removed wrapper function hDirectoryExists(). This function - in addition to the built in function FileExists() also checked for the file type (verifying that the object is a rela directory, not a file) but this functionality was not explicitly requested by any function call. The function was only used to determine whether an object of given name exists. If this is not the case it is created. So the function provided unused functionality.
Diffstat (limited to 'testautomation/xml')
| -rwxr-xr-x[-rw-r--r--] | testautomation/xml/optional/includes/docbook_001.inc | 2 | ||||
| -rwxr-xr-x | testautomation/xml/tools/includes/xmltool1.inc | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/testautomation/xml/optional/includes/docbook_001.inc b/testautomation/xml/optional/includes/docbook_001.inc index a084fdee59fd..38f13921478b 100644..100755 --- a/testautomation/xml/optional/includes/docbook_001.inc +++ b/testautomation/xml/optional/includes/docbook_001.inc @@ -49,7 +49,7 @@ sub tDocBookXMLtestdocs exit sub end if 'Calculating how many documents are in that directory (max. 500) - if hDirectoryExists(sSourcePath) then + if FileExists(sSourcePath) then 'Get the file list and put it in a list (max. 500 per directory!) call GetAllFileList(sSourcePath, "*.xml" , sSourceDocuments()) iNumberOfDocuments = ListCount(sSourceDocuments()) diff --git a/testautomation/xml/tools/includes/xmltool1.inc b/testautomation/xml/tools/includes/xmltool1.inc index 4adbabb78fc1..0c240d1b4b09 100755 --- a/testautomation/xml/tools/includes/xmltool1.inc +++ b/testautomation/xml/tools/includes/xmltool1.inc @@ -49,7 +49,7 @@ sub CreateWorkXMLExportDir ( DirName as string ) Dim Isliste(200) as string Dim i, BornToKill printlog "Checking work-dir & creating '" & gOfficePath & ConvertPath(DirName) & "'." - if hDirectoryExists ( gOfficePath & ConvertPath(DirName) ) = TRUE then + if ( FileExists( gOfficePath & ConvertPath( DirName) ) then OutputPath = gOfficePath & ConvertPath(DirName) IsListe(0) = 0 GetFileList ( OutputPath , "*", IsListe() ) |