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.13 -r1.14
--- openacs-4/packages/download/www/index.tcl 11 Oct 2013 10:29:31 -0000 1.13
+++ openacs-4/packages/download/www/index.tcl 11 Oct 2013 10:39:37 -0000 1.14
@@ -18,6 +18,15 @@
master_admin_p:onevalue
}
+#
+# The following two lines severe as a guard against errors for
+# outdated query parameters (spiders try often months later to refresh
+# an entry).
+#
+if {[regexp {,(.*)$} $orderby _ suffix] && $suffix ni {asc desc}} { set orderby "archive_name,desc"}
+if {[lindex [split $orderby ,] 0] ni {archive_name archive_type downloads}} { set orderby "archive_name,desc"}
+
+
set return_url "[ad_conn url]?[ad_conn query]"
set user_id [ad_conn user_id]
@@ -76,10 +85,10 @@
archive_name {
label "Software Name"
display_template {
-
-
- @downloads_multirow.archive_name@ @downloads_multirow.version_name@
- (@downloads_multirow.file_size@k)
@downloads_multirow.summary@
+