INTEGRATION: CWS qadev16 (1.3.56); FILE MERGED

2004/02/27 10:31:02 cn 1.3.56.2: #115686# check if source is available
2004/02/25 14:52:53 cn 1.3.56.1: #115666# gsub replaced with utils.StrReplace

qadevOOo/tests/basic/mod/dbaccess/ORowSet/dbaccess_ORowSet.xba

@@ -7,9 +7,9 @@
 '*
 '*  $RCSfile: dbaccess_ORowSet.xba,v $ 
 '*
-'*  $Revision: 1.3 $ 
+'*  $Revision: 1.4 $ 
 '*
-'*  last change:$Date: 2003-03-26 14:54:05 $ 
+'*  last change:$Date: 2004-03-19 14:31:42 $ 
 '*
 '*  The Contents of this file are made available subject to the terms of
 '*  either of the following licenses
@@ -114,9 +114,13 @@ On Error Goto ErrHndl
     ' Copying DB file to temp location
     srcFile = utils.Path2URL(cTestDocsDir) + "TestDB/testDB.dbf"
     dstFile = utils.getTempFileURL("TestDB.dbf")
-    dbSrcURL = "sdbc:dbase:" + gsub(dstFile, "/testDB.dbf", "")
+    dbSrcURL = "sdbc:dbase:" + utils.StrReplace(dstFile, "/testDB.dbf", "")
 
     facc = createUnoService("com.sun.star.ucb.SimpleFileAccess")
+
+    if not facc.exists(srcFile) then 
+        Out.log("could not find source of testDB.dbf: " + srcFile)
+    end if
     if (facc.exists(dstFile)) then facc.kill(dstFile)
     facc.copy(srcFile, dstFile)