version-dependencies.tcl
Views dependency information about a version.
- Location:
- /packages/acs-admin/www/apm/version-dependencies.tcl
- Author:
- Jon Salz [jsalz@arsdigita.com]
- Created:
- 17 April 2000
- CVS ID:
$Id: version-dependencies.tcl,v 1.11.2.2 2019/03/13 09:54:16 antoniop Exp $
Related Files
- packages/acs-admin/www/apm/version-dependencies.xql
- packages/acs-admin/www/apm/version-dependencies.tcl
- packages/acs-admin/www/apm/version-dependencies-postgresql.xql
- packages/acs-admin/www/apm/version-dependencies-oracle.xql
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Views dependency information about a version. @author Jon Salz [jsalz@arsdigita.com] @creation-date 17 April 2000 @cvs-id $Id: version-dependencies.tcl,v 1.11.2.2 2019/03/13 09:54:16 antoniop Exp $ } { {version_id:naturalnum,notnull} } db_1row apm_package_info_by_version_id {} set title "Dependencies" set context [list \ [list "/acs-admin/apm/" "Package Manager"] \ [list "version-view?version_id=$version_id" "$pretty_name $version_name"] \ $title] set body "" foreach dependency_type { provide require extend embed } { set dependency_type_prep "${dependency_type}s" if { [string index $dependency_type end] eq "e" } { set dependency_type_prep_2 ${dependency_type}d } else { set dependency_type_prep_2 ${dependency_type}ed } append body [subst { <h3>Services [string totitle $dependency_type_prep_2]</h3> <ul> }] db_foreach apm_all_dependencies {} { append body "<li>[string totitle $dependency_type_prep] service $service_uri, version $service_version " if { $dependency_type ne "provide" } { set href [export_vars -base version-dependency-remove {package_key dependency_id version_id dependency_type}] append body [subst {(<a href="[ns_quotehtml $href]">remove</a>)}] } # If this package provides a service, show a list of all packages that require it, # or vice versa. If this package provides a service, show other packages requiring # a *lower* version of the service; if it requires one, show packages providing # a *higher* version. set sign [expr {$dependency_type eq "provide" ? "<=" : ">="}] set counter 0 set other_dependency_in [expr {$dependency_type eq "provide" ? "'requires','extends','embeds'" : "'provides'"}] db_foreach apm_specific_version_dependencies {} { incr counter if { $counter == 1 } { append body "<ul>\n" } switch -- $dep_type { provides { set dep_d provided } requires { set dep_d required } extends { set dep_d extended } embeds { set dep_d embeds } } set href [export_vars -base version-view {{version_id $dep_version_id}}] append body [subst { <li>[string totitle $dep_d] by <a href="[ns_quotehtml $href]">$dep_pretty_name, version $dep_version_name</a> }] } if { $counter != 0 } { append body "</ul>\n" } } else { append body "<li>This package does not $dependency_type any services.\n" } if { $installed_p == "t" && $dependency_type ne "provide"} { append body [subst { <li><a href="[ns_quotehtml [export_vars -base version-dependency-add {version_id dependency_type}]]">Add a service $dependency_type_prep_2 by this package</a> }] } append body "</ul>\n" } ad_return_template apm # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: