ad_page_contract { Edits information for a version of a package. @param version_id The id of the package to process. @author Jon Salz (jsalz@arsdigita.com) @author Bryan Quinn (bquinn@arsdigita.com) @creation-date 9 May 2000 @cvs-id $Id: version-edit.tcl,v 1.14 2018/04/24 10:49:48 hectorr Exp $ } { {version_id:naturalnum,notnull} } db_1row apm_all_version_info { select version_id, package_key, package_uri, pretty_name, version_name, version_uri, auto_mount, summary, description_format, description, release_date, vendor, vendor_uri, enabled_p, installed_p, tagged_p, imported_p, data_model_loaded_p, activation_date, tarball_length, deactivation_date, distribution_uri, distribution_date, singleton_p, initial_install_p, implements_subsite_p, inherit_templates_p from apm_package_version_info where version_id = :version_id } set title "Edit a Version" set context [list \ [list "/acs-admin/apm/" "Package Manager"] \ [list "version-view?version_id=$version_id" "$pretty_name $version_name"] \ $title] set body "
}] template::add_event_listener -CSSclass "check-mailto" -event change -script {checkMailto(this);} ad_return_template apm # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: