Index: openacs-4/packages/cms/www/modules/templates/revisions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/templates/revisions.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/cms/www/modules/templates/revisions.tcl	19 Aug 2002 04:19:45 -0000	1.5
+++ openacs-4/packages/cms/www/modules/templates/revisions.tcl	16 Nov 2004 22:32:51 -0000	1.6
@@ -1,3 +1,34 @@
+template::list::create \
+    -name template_revisions \
+    -multirow revisions \
+    -has_checkboxes \
+    -key item_id \
+    -elements {
+	revision_number {
+	    label "\#"
+	}
+	file_size {
+	    label "Size"
+	}
+	modified {
+	    label "Last Modified"
+	}	
+	modified_by {
+	    label "Author"
+	}
+	msg {
+	    label "Comment"
+	}
+	status {
+	    label "Status"
+	}
+	publish_revert {
+	    display_template "<a href=\"@revisions.publish_url@\" title=\"Publish template\">publish</a><if @revisions.revision_number@ ne @revisions.revision_total@> \
+                              &nbsp; | &nbsp; <a href=\"@revisions.revert_url@\" title=\"Revert\">revert</a></if>" 
+	}
+    }
+
+
 # template ID is passed to included template
 
 set live_revision [db_string get_live_revision ""]
@@ -8,7 +39,14 @@
 
 set counter $revision_count
 
-db_multirow -extend revision_number revisions get_revisions "" {
-  set revision_number $counter
-  incr counter -1
+db_multirow -extend { revision_number publish_url revert_url status publish_revert revision_total } revisions get_revisions "" {
+    set revision_number $counter
+    incr counter -1
+    set edit_revision $revision_id
+    set revision_total $revision_count
+    set publish_url [export_vars -base publish { revision_id }]
+    set revert_url [export_vars -base edit { template_id edit_revision }]
+    if { $revision_id == $live_revision } {
+	set status "live"
+    }
 }