- OpenACS 5.9 Import

catalog/acs-admin.de_DE.ISO-8859-1.xml

+<?xml version="1.0" encoding="ISO-8859-1"?>
+<message_catalog package_key="acs-admin" locale="de_DE" charset="ISO-8859-1">
+
+  <msg key="No">Nein</msg>
+  <msg key="Yes">Ja</msg>
+</message_catalog>

www/apm/apm.adp

+<master>
+<property name="doc(title)">@title;literal@</property>
+<property name="context">@context;literal@</property>
+
+@body;noquote@

www/apm/package-instance-create.tcl

+ad_page_contract {
+    Create (unmounted) package instance. 
+    @author Gustaf Neumann
+    @creation-date 8 Sept 2014
+    @cvs-id $Id$
+} {
+    {package_key:notnull}
+    {return_url /acs/admin/apm}
+}
+apm_package_instance_new -package_key $package_key
+ad_returnredirect $return_url

www/apm/package-instances.tcl

+ad_page_contract {
+    Show package instances
+    @author Gustaf Neumann
+    @creation-date 3 Sept 2014
+    @cvs-id $Id$
+} {
+    {package_key:token,notnull}
+}
+
+set version_id [apm_highest_version $package_key]
+apm_version_info $version_id
+
+set title "Instances of Package $pretty_name $version_name ($package_key)"
+set context [list \
+                 [list "../developer" "Developer's Administration"] \
+                 [list "/acs-admin/apm/" "Package Manager"] \
+                 [list "/acs-admin/apm/version-view?version_id=$version_id" "Package $pretty_name"] \
+                 $title]
+set return_url [export_vars -base [ad_conn url] { package_key }]
+
+append body <h3>$title</h3><ul>
+
+db_foreach get_version_info {
+    select package_id, instance_name from apm_packages where package_key = :package_key
+    order by package_id
+} {
+    set urls [site_node::get_url_from_object_id -object_id $package_id]
+    if {[llength $urls] > 0} {
+        foreach url $urls {
+            set node_id [dict get [site_node::get -url $url] node_id]
+            set delete_href [export_vars -base /admin/applications/application-delete { node_id return_url }]
+            set smap_href [export_vars -base /admin/site-map { {root_id $node_id} return_url }]
+            append body [subst {
+                <li>$package_id $instance_name <a href="$url">$url</a> (node_id $node_id): 
+                \[<a href="[ns_quotehtml $delete_href]">delete</a>,
+                <a href="[ns_quotehtml $smap_href]">Site Map</a>\]
+                </li>
+            }]
+        }
+    } else {
+        set delete_href [export_vars -base /admin/applications/application-delete { package_id return_url }]
+        append body [subst {
+            <li>$package_id $instance_name (unmounted): 
+            \[<a href="[ns_quotehtml $delete_href]">delete</a>\]
+            </li>
+        }]
+    }
+}
+
+append body </ul>
+
+ad_return_template apm
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:

www/apm/package-load.adp

+<master>
+<property name="doc(title)">@title;literal@</property>
+<property name="context">@context;literal@</property>
+
+<form action='package-load-2' method='post'>
+
+<p>
+You can retrieve a package archive to prepare for installation by using
+one of the options below.  
+Otherwise, please specify a filesystem location for the packages you want to install.
+You can also copy the extracted package files directly into the <code>@acs::rootdir@/packages/</code> directory if you prefer.
+<p>
+
+Load a package from the <tt>.apm</tt> file at this URL:
+<blockquote>http:// <input name="url" size="50"></blockquote>
+<p>
+Specify a local path including a filename for the APM file or a directory containing several APM files.<p>
+<blockquote>Path: <input name="file_path" size="50"></blockquote>
+
+<p>
+<input type="checkbox" name="delete" value="1">Check this box if you want to delete all of the packages
+currently in the installation directory.<p>
+<center><input type="submit" value="Load"></blockquote></center>
\ No newline at end of file