From 3d305d8d7bb6abf3614e0605f686538d7e142d57 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Thu, 23 Mar 2000 17:27:24 -0800
Subject: [PATCH] first revision

Rev: src/modules/Oracle/module.pmod.in:1.1
---
 src/modules/Oracle/module.pmod.in | 33 +++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 src/modules/Oracle/module.pmod.in

diff --git a/src/modules/Oracle/module.pmod.in b/src/modules/Oracle/module.pmod.in
new file mode 100644
index 0000000000..8568e6d414
--- /dev/null
+++ b/src/modules/Oracle/module.pmod.in
@@ -0,0 +1,33 @@
+inherit @module@;
+
+class oracle
+{
+  inherit @module@.oracle : O;
+
+  object big_query(object(compile_query)|string query,
+		      void|mapping(int|string:int|float|string|multiset(string)) binds,
+		      void|int autocommit)
+    {
+      if(stringp(query)) query=compile_query(query);
+      object ret=query->big_query(binds, autocommit, this_object());
+      if(query->_type == 1)
+      {
+	return ret;
+      }
+      else if(query->output_variables)
+      {
+	return Sql.sql_result( ({ query->output_variables }) );
+      }
+    }
+
+  object list_tables(void|string wild)
+    {
+      if(wild)
+      {
+	return big_query("select tname from tab where tname like :wild",
+			 ([":wild":wild]));
+      }else{
+	return big_query("select tname from tab");
+      }
+    }
+}
-- 
GitLab