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.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	21 Jun 2002 19:08:33 -0000	1.2
@@ -2,28 +2,25 @@
 
 ad_page_contract {
 
-  @author rhs@mit.edu
-  @creation-date 2000-09-13
-  @cvs-id $Id$
+    @author rhs@mit.edu
+    @creation-date 2000-09-13
+    @version $Id$
+
 } {
-  new_package_id:naturalnum
-  node_id:integer,notnull
-  instance_name:notnull
-  package_key:notnull
-  {expand:integer,multiple {}}
-  root_id:integer,optional
+    new_package_id:integer,notnull
+    node_id:integer,notnull
+    instance_name:notnull
+    package_key:notnull
+    {expand:integer,multiple ""}
+    root_id:integer,optional
 }
 
 set context_id [ad_conn package_id]
 
 db_transaction {
-  set package_id [site_node_create_package_instance -package_id $new_package_id $node_id $instance_name $context_id $package_key]
+    set package_id [site_node_create_package_instance -package_id $new_package_id $node_id $instance_name $context_id $package_key]
 } on_error {
-    if {![db_string package_new_doubleclick_ck {
-	select decode(count(*), 0, 0, 1) 
- 	from apm_packages
-	where package_id = :new_package_id
-    } -default 0]} {
+    if {![db_string package_new_doubleclick_ck {} -default 0]} {
 	ad_return_complaint "Error Creating Package" "The following error was generated
 		when attempting to create the package
 	<blockquote><pre>
@@ -32,4 +29,4 @@
     }
 }
 
-ad_returnredirect .?[export_url_vars expand:multiple root_id]
+ad_returnredirect ".?[export_url_vars expand:multiple root_id]"