Index: openacs-4/packages/acs-kernel/sql/postgresql/site-nodes-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/site-nodes-create.sql,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-kernel/sql/postgresql/site-nodes-create.sql	7 Jun 2002 04:21:40 -0000	1.15
+++ openacs-4/packages/acs-kernel/sql/postgresql/site-nodes-create.sql	22 Jun 2002 20:54:47 -0000	1.16
@@ -203,6 +203,8 @@
 
 -- show errors
 
+select define_function_args ('site_node__new', 'node_id,parent_id,name,object_id,directory_p,pattern_p,creation_user,creation_ip');
+
 create function site_node__new (integer,integer,varchar,integer,boolean,boolean,integer,varchar)
 returns integer as '
 declare
Index: openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl	21 Jun 2002 19:08:33 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl	22 Jun 2002 20:54:47 -0000	1.3
@@ -17,7 +17,7 @@
         }
     }
     name_duplicate_ck -requires name_root_ck {
-        if { [db_string site_node_duplicate_name_root_ck {} -default 0]} {
+        if {[db_string site_node_duplicate_name_root_ck {} -default 0]} {
             ad_complain
         }
     }
@@ -53,13 +53,12 @@
         -pattern_p $pattern_p \
     ]
 } on_error {
-    if {![db_string site_node_new_doubleclick_protect {} -default 0]} {
-        ad_return_complaint "Error Creating Site Node" "The following error was generated
-                when attempting to create the site node:
+    ad_return_complaint \
+        "Error Creating Site Node" \
+        "The following error was generated when attempting to create the site node:
         <blockquote><pre>
                 [ad_quotehtml $errmsg]
         </pre></blockquote>"
-    }
 }
 
 if {[lsearch $expand $parent_id] == -1} {
Index: openacs-4/packages/acs-subsite/www/admin/site-map/new.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/new.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/site-map/new.xql	21 Jun 2002 19:08:33 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/site-map/new.xql	22 Jun 2002 20:54:47 -0000	1.3
@@ -10,12 +10,4 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="site_node_new_doubleclick_protect">
-        <querytext>
-            select case when count(*) = 0 then 0 else 1 end
-            from site_nodes
-            where node_id = :node_id
-      </querytext>
-    </fullquery>
-
 </queryset>