Index: openacs-4/packages/xotcl-core/lib/revisions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/lib/revisions.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/xotcl-core/lib/revisions.tcl 7 Aug 2017 23:48:30 -0000 1.7
+++ openacs-4/packages/xotcl-core/lib/revisions.tcl 18 May 2018 09:32:08 -0000 1.8
@@ -28,47 +28,47 @@
-elements {
version_number {label "" html {align right}}
name { label ""
- display_template {
-
- }
- sub_class narrow
- link_url_col version_link
+ display_template {
+
+ }
+ sub_class narrow
+ link_url_col version_link
}
author { label #file-storage.Author#
- display_template {@revisions.author_link;noquote@}
+ display_template {@revisions.author_link;noquote@}
}
content_size { label #file-storage.Size# html {align right}
- display_col content_size_pretty
+ display_col content_size_pretty
}
last_modified_ansi { label #file-storage.Last_Modified#
- display_col last_modified_pretty
+ display_col last_modified_pretty
}
description { label #file-storage.Version_Notes#}
live_revision { label #xotcl-core.live_revision#
- display_template {
- \
-
- }
- html {align center}
- sub_class narrow
+ display_template {
+ \
+
+ }
+ html {align center}
+ sub_class narrow
}
version_delete { label "" link_url_col version_delete_link
- display_template {
-
- }
- html {align center}
+ display_template {
+
+ }
+ html {align center}
}
}
-db_multirow -unclobber -extend {
- author_link last_modified_pretty
- content_size_pretty version_link version_delete version_delete_link
+db_multirow -unclobber -extend {
+ author_link last_modified_pretty
+ content_size_pretty version_link version_delete version_delete_link
live_revision live_revision_icon live_revision_link
} revisions revisions_info {} {
set version_number $version_number:
@@ -79,12 +79,12 @@
} else {
set content_size_pretty "[lc_numeric [format %.2f [expr {$content_size/1024.0}]]] [_ file-storage.kb]"
}
-
+
if {$name eq ""} {set name [_ file-storage.untitled]}
set live_revision_link [export_vars -base make-live-revision \
- {page_id name {revision_id $version_id}}]
+ {page_id name {revision_id $version_id}}]
set version_delete_link [export_vars -base delete-revision \
- {page_id name {revision_id $version_id}}]
+ {page_id name {revision_id $version_id}}]
set version_link [export_vars -base view {{revision_id $version_id} {item_id $page_id}}]
if {$version_id != $live_revision_id} {
set live_revision "Make this Revision Current"