- added im_ad_hoc_query function

tcl/intranet-defs-procs.tcl

@@ -1611,6 +1611,29 @@ ad_proc -public im_valid_auto_login_p {
 }
 
 
+# ---------------------------------------------------------------
+# Ad-hoc execution of SQL-Queries
+# Format for "Developer Service" "pre" display
+# ---------------------------------------------------------------
+
+ad_proc -public im_ad_hoc_query {
+    sql
+} {
+    Ad-hoc execution of SQL-Queries
+    Format for browser "pre" display
+} {
+    set lol [db_list_of_lists ad_hoc_query $sql]
+
+    set result ""
+    foreach row $lol {
+        foreach col $row {
+            append result "$col\t"
+        }
+        append result "\n"
+    }
+    return $result
+}
+