Index: openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/Attic/site-nodes-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	16 Mar 2002 00:24:47 -0000	1.8
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	18 Mar 2002 03:39:39 -0000	1.9
@@ -276,4 +276,27 @@
         }
     }
 
+    ad_proc -public site_node_create {
+        {-node_id ""}
+        {-parent_node_id:required}
+        {-name:required}
+        {-directory_p "t"}
+    } {
+        create a site node the real way (the site-node stuff needs a user_id)
+    } {
+        set node_id [db_exec_plsql create_node {
+            begin
+            :1 := site_node.new(
+            node_id => :node_id,
+            parent_id => :parent_node_id,
+            name => :name,
+            directory_p => :directory_p,
+            pattern_p => 't'
+            );
+            end;
+        }]
+
+        return $node_id
+    }
+
 }