Index: openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	2 Feb 2018 00:05:53 -0000	1.18
+++ openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	3 Sep 2024 15:37:34 -0000	1.19
@@ -1,5 +1,3 @@
-# packages/acs-core-ui/www/admin/site-nodes/package-new.tcl
-
 ad_page_contract {
     Create a new package and mount it in the site map. If new_node_p is false then
     the package will be mounted at node_id. If new_node_p is true then a new node with
@@ -12,7 +10,7 @@
 } {
     {new_package_id:naturalnum ""}
     node_id:naturalnum,notnull
-    {new_node_p:boolean f}
+    {new_node_p:boolean,notnull f}
     {node_name:trim ""}
     {instance_name ""}
     package_key:token,notnull
@@ -56,16 +54,16 @@
                                                          -package_key $package_key \
                                                          -node_id $node_id \
                                                          -package_name $instance_name \
-			                                 -context_id $context_id ]
+                                                         -context_id $context_id ]
     }
 
 } on_error {
     if {![db_string package_new_doubleclick_ck {} -default 0]} {
-	ad_return_complaint 1 "Error Creating Package: The following error was generated
-		when attempting to create the package
-	<blockquote><pre>
-		[ns_quotehtml $errmsg]
-	</pre></blockquote>"
+        ad_return_complaint 1 "Error Creating Package: The following error was generated
+                when attempting to create the package
+        <blockquote><pre>
+                [ns_quotehtml $errmsg]
+        </pre></blockquote>"
     }
 }