From a9d05113bfc05ccc1aa26f33f6bb4b9107d23498 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 9 May 2007 08:40:56 +0000
Subject: [PATCH] New functions HB_AdoRddGetConnection( [<nWorkArea>] ) -->
 oAdoConnection and HB_AdoRddGetCatalog( [<nWorkArea>] ) --> oAdoCatalog

---
 harbour/contrib/adordd/adordd.prg | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg
index 62ed16a425..3e55c2eefc 100644
--- a/harbour/contrib/adordd/adordd.prg
+++ b/harbour/contrib/adordd/adordd.prg
@@ -835,4 +835,16 @@ static function SQLTranslate( cExpr )
   cExpr = StrTran( cExpr, ".AND.", "AND" )
   cExpr = StrTran( cExpr, ".OR.", "OR" )
 
-return cExpr   
\ No newline at end of file
+return cExpr   
+
+function HB_AdoRddGetConnection( nWA )
+
+   DEFAULT nWA TO Select()
+   
+return s_aConnections[ nWA ]   
+
+function HB_AdoRddGetCatalog( nWA )
+
+   DEFAULT nWA TO Select()
+   
+return s_aCatalogs[ nWA ]   
\ No newline at end of file