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.7 -r1.8
--- openacs-4/packages/curriculum/tcl/curriculum-procs.tcl	4 Jul 2003 18:38:07 -0000	1.7
+++ openacs-4/packages/curriculum/tcl/curriculum-procs.tcl	4 Jul 2003 19:15:33 -0000	1.8
@@ -581,7 +581,6 @@
 }
 
 
-# FIXME. 
 ad_proc -private curriculum::notification_info::get_notification_info {
     case_id
     object_id
@@ -603,16 +602,15 @@
         status "Status"
     }
 
+    array set value [list \
+			 name "$curriculum(name)" \
+			 status "$curriculum(pretty_state)"]
+
     set fields {
         name
         status
     }
 
-    array set value {
-        name "$curriculum(name)"
-        status "$curriculum(pretty_state)"
-    }
-
     # Remove fields that should be hidden in this state
     foreach field $curriculum(hide_fields) {
         set index [lsearch -exact $fields $field]