Index: openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl	28 Aug 2003 09:41:40 -0000	1.2
@@ -0,0 +1,75 @@
+ad_page_contract {
+    Create and mount a new application.
+
+    @author Lars Pind (lars@collaboraid.biz)
+    @creation-date 2003-05-28
+    @cvs-id $Id: application-add.tcl,v 1.2 2003/08/28 09:41:40 lars Exp $
+}
+
+set page_title "New Application"
+set context [list [list "." "Applications"] $page_title]
+
+set packages [db_list_of_lists package_types {}]
+
+ad_form -name application -cancel_url . -form {
+    {package_key:text(select)
+        {label "Application"}
+        {options $packages}
+        {help_text "The type of application you want to add."}
+    }
+    {instance_name:text,optional
+        {label "Application name"}
+        {help_text "The human-readable name of your application. If you leave this out, we'll use the name of the application (e.g. 'Forums')."}
+        {html {size 50}}
+    }
+    {folder:text,optional
+        {label "URL folder name"}
+        {help_text "This should be a short string, all lowercase, with hyphens instead of spaces, whicn will be used in the URL of the new application. If you leave this blank, we will generate one for you from name of the application."}
+        {html {size 30}}
+        {validate {
+            empty_or_not_exists 
+            {expr \[empty_string_p \$value\] || \[catch { site_node::get_from_url -url "[ad_conn package_url]\$value/" -exact }\]}
+            {This folder name is already used.}
+        }}
+    }
+} -on_submit {
+    # Get the node ID of this subsite
+    set node_id [ad_conn node_id]
+
+    if { [empty_string_p $instance_name] } {
+        # Find the package pretty name from the list of packages
+
+        foreach elm $packages {
+            if { [string equal [lindex $elm 1] $package_key] } {
+                set instance_name [lindex $elm 0]
+                break
+            }
+        }
+        if { [empty_string_p $instance_name] } {
+            error "Couldn't find package_key '$package_key' in list of system applications"
+        }
+
+    }
+
+    # Autogenerate folder name
+    if { [empty_string_p $folder] } {
+        set existing_urls [db_list existing_urls {}]
+
+        set folder [util_text_to_url \
+                      -existing_urls $existing_urls \
+                      -text $instance_name]
+    }
+
+    if { [catch {
+        site_node::instantiate_and_mount \
+            -parent_node_id $node_id \
+            -node_name $folder \
+            -package_name $instance_name \
+            -package_key $package_key
+    } errsmg] } {
+        ad_return_error "Problem Creating Application" "We had a problem creating the application."
+    }
+
+    ad_returnredirect .
+    ad_script_abort
+}