Index: openacs-4/packages/download/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/index.tcl,v diff -u -N -r1.20 -r1.21 --- openacs-4/packages/download/www/index.tcl 1 Jul 2015 18:41:28 -0000 1.20 +++ openacs-4/packages/download/www/index.tcl 26 Aug 2015 09:12:30 -0000 1.21 @@ -53,12 +53,12 @@ } lappend type_dimlist {"" "#download.all#" {}} -set dimensional [list [list versions "#download.Versions#" current [list \ +set dimensional [list [list versions "#download.Versions#:" current [list \ [list current "[_ download.current]" {where "[db_map archive_where_clause]"} ] \ [list all "[_ download.all]" {where "da.archive_id = dar.archive_id"} ] ]]\ - [list archive_type_id "[_ download.Type]" "" $type_dimlist] \ - [list updated "[_ download.Updated]" all [list \ + [list archive_type_id "[_ download.Type]:" "" $type_dimlist] \ + [list updated "[_ download.Updated]:" all [list \ [list 1d "[_ download.last_24hrs]" {where "[db_map date_clause_1]"}] \ [list 1w "[_ download.last_week]" {where "[db_map date_clause_7]"}] \ [list 1m "[_ download.last_month]" {where "[db_map date_clause_30]"}] \ @@ -67,7 +67,7 @@ if { $admin_p } { set approval "" - lappend dimensional [list approved "[_ download.Approval]" approved \ + lappend dimensional [list approved "[_ download.Approval]:" approved \ [list \ [list pending "[_ download.pending]" {where "dar.approved_p is null"}] \ [list approved "[_ download.approved]" {where "dar.approved_p = 't'"}] \