Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/admin/applications/application-add-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/admin/applications/application-add-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-subsite/www/admin/applications/application-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/application-add.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/applications/application-add.adp	18 Sep 2003 20:58:18 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/applications/application-add.adp	14 Dec 2003 11:56:54 -0000	1.4
@@ -3,4 +3,6 @@
   <property name="context">@context@</property>
   <property name="focus">@focus;noquote@</property>
 
-<formtemplate id="application" style="standard-lars"></formtemplate>
+<formtemplate id="application"></formtemplate>
+
+<a href="@multiple_add_url@" class="action">Add multiple applications</a>
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 -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl	16 Oct 2003 13:32:12 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl	14 Dec 2003 11:56:54 -0000	1.8
@@ -12,14 +12,16 @@
 set page_title "New Application"
 set context [list [list "." "Applications"] $page_title]
 
-set packages [db_list_of_lists package_types {}]
+set packages [subsite::get_application_options]
 
 if { [ad_form_new_p -key node_id] } {
     set focus application.package_key
 } else {
     set focus application.instance_name
 }
 
+set multiple_add_url [export_vars -base multiple-add { return_url }]
+
 ad_form -name application -cancel_url . -form {
     {return_url:text(hidden),optional}
     {node_id:key}
Index: openacs-4/packages/acs-subsite/www/admin/applications/multiple-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/multiple-add.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/applications/multiple-add.adp	14 Dec 2003 11:56:54 -0000	1.1
@@ -0,0 +1,6 @@
+<master>
+  <property name="title">@page_title@</property>
+  <property name="context">@context@</property>
+  <property name="focus">application.package_key</property>
+
+<formtemplate id="application"></formtemplate>
Index: openacs-4/packages/acs-subsite/www/admin/applications/multiple-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/multiple-add.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/applications/multiple-add.tcl	14 Dec 2003 11:56:54 -0000	1.1
@@ -0,0 +1,48 @@
+ad_page_contract {
+    Create and mount a new application.
+
+    @author Lars Pind (lars@collaboraid.biz)
+    @creation-date 2003-05-28
+    @cvs-id $Id: multiple-add.tcl,v 1.1 2003/12/14 11:56:54 lars Exp $
+} {
+    {return_url "."}
+}
+
+set page_title "Add Applications"
+set context [list [list "." "Applications"] $page_title]
+
+set packages [subsite::get_application_options]
+
+ad_form -name application -cancel_url . -export { return_url } -form {
+    {package_key:text(checkbox),multiple
+        {label "Select Applications"}
+        {options $packages}
+        {help_text "If the application is not in the list, you may need to <a href=\"/acs-admin/install/\">install</a> it on the server."}
+    }
+} -on_submit {
+    # Find the package pretty name from the list of packages
+    array set package_pretty_name [list]
+    foreach elm $packages {
+	set package_pretty_name([lindex $elm 1]) [lindex $elm 0]
+    }
+    if { [catch {
+	foreach one_package_key $package_key {
+	    set folder [site_node::verify_folder_name \
+			    -parent_node_id [ad_conn node_id] \
+			    -instance_name $package_pretty_name($one_package_key)]
+	    
+	    site_node::instantiate_and_mount \
+		-parent_node_id [ad_conn node_id] \
+		-node_name $folder \
+		-package_name $package_pretty_name($one_package_key) \
+		-package_key $one_package_key
+	}
+    } errmsg] } {
+	global errorInfo
+	ns_log Error "Error creating application: $errmsg\n$errorInfo"
+	ad_return_error "Problem Creating Application" "We had a problem creating the application."
+    }
+} -after_submit {
+    ad_returnredirect $return_url
+    ad_script_abort
+}