Index: openacs-4/packages/download/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/index.tcl,v diff -u -r1.17 -r1.18 --- openacs-4/packages/download/www/index.tcl 27 Jun 2015 19:43:38 -0000 1.17 +++ openacs-4/packages/download/www/index.tcl 1 Jul 2015 17:57:49 -0000 1.18 @@ -8,7 +8,9 @@ {archive_type_id:naturalnum,optional ""} {orderby:token "archive_name,desc"} {query_string ""} - {updated ""} + {updated:word ""} + {approved:word ""} + {versions:word "current"} } -properties { title:onevalue description:onevalue @@ -28,6 +30,7 @@ set return_url "[ad_conn url]?[ad_conn query]" +set register_url [export_vars -base /register/index {return_url}] set user_id [ad_conn user_id] array set repository [download_repository_info] @@ -51,25 +54,25 @@ lappend type_dimlist {"" "#download.all#" {}} 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 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 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]"}] \ - [list all "[_ download.all]" {}]] + [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]"}] \ + [list all [_ download.all] {}]] ]] 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'"}] \ - [list rejected "[_ download.rejected]" {where "dar.approved_p = 'f'"}] \ - [list all "[_ download.all]" {}] \ + [list pending [_ download.pending] {where "dar.approved_p is null"}] \ + [list approved [_ download.approved] {where "dar.approved_p = 't'"}] \ + [list rejected [_ download.rejected] {where "dar.approved_p = 'f'"}] \ + [list all [_ download.all] {}] \ ] ] } else { @@ -86,8 +89,8 @@ label "Software Name" display_template {
- +