Index: openacs-4/packages/acs-developer-support/www/css-list.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/css-list.adp,v diff -u -N -r1.3 -r1.3.4.1 --- openacs-4/packages/acs-developer-support/www/css-list.adp 23 Jun 2015 14:26:20 -0000 1.3 +++ openacs-4/packages/acs-developer-support/www/css-list.adp 21 May 2019 20:20:19 -0000 1.3.4.1 @@ -1,4 +1,7 @@ + @page_title;literal@ + @context;literal@ + @css_multirow.file_location;noquote@ || Edit
\ No newline at end of file Index: openacs-4/packages/acs-developer-support/www/css-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/css-list.tcl,v diff -u -N -r1.4 -r1.4.2.1 --- openacs-4/packages/acs-developer-support/www/css-list.tcl 15 May 2018 21:20:25 -0000 1.4 +++ openacs-4/packages/acs-developer-support/www/css-list.tcl 21 May 2019 20:20:19 -0000 1.4.2.1 @@ -1,9 +1,7 @@ -# - 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$ @@ -19,23 +17,33 @@ 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}}] + 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}}] + # 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 "" + 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