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 { - view - } - sub_class narrow - link_url_col version_link + display_template { + view + } + 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 { - \ - @revisions.live_revision@ - } - html {align center} - sub_class narrow + display_template { + \ + @revisions.live_revision@ + } + html {align center} + sub_class narrow } version_delete { label "" link_url_col version_delete_link - display_template { - delete - } - html {align center} + display_template { + delete + } + 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"