css-list.tcl

List of all CSS files in the system

Location:
/packages/acs-developer-support/www/css-list.tcl
Author:

Malte Sussdorff <malte.sussdorff@cognovis.de>

Created:

2007-09-29

CVS ID:

$Id: css-list.tcl,v 1.6 2024/09/11 06:15:47 gustafn Exp $

File Contents

ad_page_contract {

    List of all CSS files in the system

    @author Malte Sussdorff (malte.sussdorff@cognovis.de)
    @creation-date 2007-09-29
    @cvs-id $Id: css-list.tcl,v 1.6 2024/09/11 06:15:47 gustafn Exp $
} {
    {return_url:localurl ""}
    {css_list}
} -properties {
} -validate {
} -errors {
}

ds_require_permission [ad_conn package_id] "admin"

template::multirow create css_multirow css_location file_location edit_url
foreach css $css_list {

    if {[string match "urn:*" $css]} {
        continue
    }

    set css_path_list [split $css "/"]
    set path_root [lindex $css_path_list 1]
    if { $path_root eq "resources"} {
        set file_location "[acs_package_root_dir [lindex $css_path_list 2]]/www/resources/[join [lrange $css_path_list 3 end] /]"
        set edit_location [export_vars -base "css-edit" -url {file_location return_url {css_location $css}}]
        
    } elseif {[apm_version_id_from_package_key $path_root] ne ""} {
        # This is a package key, but not resources directory
        set package_key $path_root
        set file_location "[acs_package_root_dir $package_key]/www/[join [lrange $css_path_list 2 end] /]"
        set edit_location [export_vars -base "css-edit" -url {file_location return_url {css_location $css}}]
        
    } else {
        set file_location $css
        set edit_location ""
    }
    template::multirow append css_multirow $css $file_location $edit_location
}

set page_title "Defined CSS files"
set context [list $page_title]

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End:

css-list.tcl

Related Files

File Contents