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 $
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:
version-dependencies.tcl

Related Files

File Contents
