Index: openacs-4/packages/dotlrn-ecommerce/lib/email-templates.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/email-templates.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-ecommerce/lib/email-templates.tcl	8 Aug 2005 13:10:06 -0000	1.1
+++ openacs-4/packages/dotlrn-ecommerce/lib/email-templates.tcl	10 Aug 2005 02:02:51 -0000	1.2
@@ -15,9 +15,10 @@
     lappend email_types "on approval" "awaiting payment" 
 }
 
-db_multirow -extend {type_pretty action_url action from} email_templates get_email_templates "select subject,type from dotlrn_member_emails where community_id=:community_id" {
+db_multirow -extend {type_pretty action_url action from revert revert_url} email_templates get_email_templates "select subject,type from dotlrn_member_emails where community_id=:community_id" {
     set action_url [export_vars -base email-template-delete {{community_id $community_id} {action $type} return_url}]
     set action "Revert to default"
+
     if {[set index [lsearch $email_types $type]] > -1} {
 	set email_types [lreplace $email_types $index $index]
     }
@@ -55,4 +56,5 @@
 	from {label "Template Used"}
         type_pretty {label "Type"}
 	action {label "" link_url_col action_url}
+	revert {label "" link_url_col revert_url}
     }
\ No newline at end of file