Index: openacs-4/packages/attendance/www/admin/mark.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attendance/www/admin/mark.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/attendance/www/admin/mark.tcl	2 Aug 2005 11:07:55 -0000	1.5
+++ openacs-4/packages/attendance/www/admin/mark.tcl	3 Aug 2005 09:29:29 -0000	1.6
@@ -45,15 +45,17 @@
 	}
      }
 
-set users [dotlrn_community::list_users  $community_id]
+set users [dotlrn_community::list_users $community_id]
 
 template::multirow create eval_members user_id member_name medical_needs special_issues present
 
-foreach user $users {	
-	set medical_needs [db_string "get_medical_issues" "select allergies from person_info where person_id =:user_id"]
-        set special_issues [db_string "get_special_issues" "select special_needs from person_info where person_id = :user_id"]
+ns_log Notice " ** $users ** "
+
+foreach user $users {
+	set medical_needs [db_string "get_medical_issues" "select allergies from person_info where person_id =[ns_set get $user user_id]" -default ""]
+        set special_issues [db_string "get_special_issues" "select special_needs from person_info where person_id = [ns_set get $user user_id]" -default ""]
 	set present [db_0or1row "checkattendance" "select user_id from attendance_cal_item_map where cal_item_id = :cal_item_id and user_id = [ns_set get $user user_id]"]
-	template::multirow append eval_members "[ns_set get $user user_id]" "[ns_set get $user first_names] [ns_set get $user last_name]" "$present"
+	template::multirow append eval_members "[ns_set get $user user_id]" "[ns_set get $user first_names] [ns_set get $user last_name]" "$medical_needs" "$special_issues" "$present"
 }
 
 ad_return_template