Index: openacs-4/packages/curriculum/tcl/curriculum-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/tcl/curriculum-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum/tcl/curriculum-procs.tcl	3 Jun 2003 10:28:20 -0000	1.1
+++ openacs-4/packages/curriculum/tcl/curriculum-procs.tcl	17 Jun 2003 15:43:59 -0000	1.2
@@ -73,7 +73,7 @@
 	    -workflow_id [workflow::get_id -object_id $package_id -short_name [workflow_short_name]] \
 	    -object_id $curriculum_id \
 	    -comment $description \
-	    -comment_mime_type "text/plain"
+	    -comment_mime_type $desc_format
     }
 
     return $curriculum_id
@@ -308,8 +308,8 @@
                 edited {
                     pretty_name "Edited"
                 }
-                refused {
-                    pretty_name "Refused"
+                rejected {
+                    pretty_name "Rejected"
                 }
                 published {
                     pretty_name "Published"
@@ -670,11 +670,11 @@
                      -url $return_url \
                      -user_id $user_id \
                      -pretty_name "this curriculum"]
-        set label "Watch this curriculum"
-        set title "Request notifications for all activity on this curriculum"
+        set label "Watch"
+        set title "Request notifications for activity on this curriculum"
     } else {
         set url [notification::display::unsubscribe_url -request_id $request_id -url $return_url]
-        set label "Stop watching this curriculum"
+        set label "Stop watching"
         set title "Unsubscribe to notifications for activity on this curriculum"
     }
     return [list $url $label $title]