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 -r1.8 -r1.9
--- openacs-4/packages/xotcl-core/lib/revisions.tcl	18 May 2018 09:32:08 -0000	1.8
+++ openacs-4/packages/xotcl-core/lib/revisions.tcl	3 Sep 2024 15:37:54 -0000	1.9
@@ -1,4 +1,4 @@
-ad_page_contract {
+ad_include_contract {
   display information about revisions of content items
 
   @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at)
@@ -23,7 +23,7 @@
 
 template::list::create \
     -name revisions \
-    -no_data [_ file-storage.lt_There_are_no_versions] \
+    -no_data [_ acs-content-repository.No_Revisions] \
     -multirow revisions \
     -elements {
       version_number {label "" html {align right}}
@@ -36,16 +36,16 @@
         sub_class narrow
         link_url_col version_link
       }
-      author { label #file-storage.Author#
+      author { label #acs-content-repository.Creation_User#
         display_template {@revisions.author_link;noquote@}
       }
-      content_size { label #file-storage.Size# html {align right}
+      content_size { label #acs-content-repository.Size# html {align right}
         display_col content_size_pretty
       }
-      last_modified_ansi { label #file-storage.Last_Modified#
+      last_modified_ansi { label #acs-content-repository.Last_Modified#
         display_col last_modified_pretty
       }
-      description { label #file-storage.Version_Notes#}
+      description { label #acs-content-repository.Description#}
       live_revision { label #xotcl-core.live_revision#
         display_template {
           <a href='@revisions.live_revision_link@'> \
@@ -57,11 +57,7 @@
         sub_class narrow
       }
       version_delete { label "" link_url_col version_delete_link
-        display_template {
-          <img src='/resources/acs-subsite/Delete16.gif' \
-              title='Delete Revision' alt='delete' \
-              width="16" height="16" border="0">
-        }
+        display_template {<adp:icon name="trash" title="Delete Revision">}
         html {align center}
       }
     }
@@ -74,13 +70,9 @@
   set version_number $version_number:
   set last_modified_ansi   [lc_time_system_to_conn $last_modified_ansi]
   set last_modified_pretty [lc_time_fmt $last_modified_ansi "%x %X"]
-  if {$content_size < 1024} {
-    set content_size_pretty "[lc_numeric $content_size] [_ file-storage.bytes]"
-  } else {
-    set content_size_pretty "[lc_numeric [format %.2f [expr {$content_size/1024.0}]]] [_ file-storage.kb]"
-  }
+  set content_size_pretty  [lc_content_size_pretty -size $content_size]
 
-  if {$name eq ""} {set name [_ file-storage.untitled]}
+  if {$name eq ""} {set name [_ acs-kernel.Untitled]}
   set live_revision_link [export_vars -base make-live-revision \
                               {page_id name {revision_id $version_id}}]
   set version_delete_link [export_vars -base delete-revision \
@@ -93,7 +85,7 @@
     set live_revision "Current Live Revision"
     set live_revision_icon /resources/acs-subsite/radiochecked.gif
   }
-  set version_delete [_ file-storage.Delete_Version]
+  set version_delete [_ acs-content-repository.Delete_Revision]
   set author_link [acs_community_member_link -user_id $author_id -label $author]
 }