Index: openacs-4/packages/attendance/lib/cp-attendance.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attendance/lib/cp-attendance.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/attendance/lib/cp-attendance.tcl	29 Jun 2005 00:45:07 -0000	1.4
+++ openacs-4/packages/attendance/lib/cp-attendance.tcl	16 Jul 2005 12:53:07 -0000	1.5
@@ -34,7 +34,7 @@
     -key task_id \
     -no_data "No sessions" \
     -elements {
-	task_name {
+	session_name {
 	    label "Session"
 	}
 	date_time {
@@ -43,12 +43,12 @@
 	action {
 	    label "Actions"
 	    html "nowrap"
-	    display_template { <a href="@calendar_url@cal-item-new?cal_item_id=@session_list.cal_item_id@&return_url=@current_url@" >Edit</a>  | <a href="@attendance_url@admin/mark?item_id=@session_list.item_id@&return_url=@current_url@">Attendance</a> | <a href="@attendance_url@admin/task-delete?task_id=@session_list.task_id@&grade_id=@session_list.grade_id@&return_url=@current_url@"> Delete</a> }
+	    display_template { <a href="@calendar_url@cal-item-new?cal_item_id=@session_list.cal_item_id@&return_url=@current_url@" >Edit</a>  | <a href="@attendance_url@admin/mark?item_id=@session_list.item_id@&return_url=@current_url@">Attendance</a> | <a href="@attendance_url@admin/task-delete?task_id=@session_list.task_id@&grade_id=@session_list.grade_id@&return_url=@current_url@"> Delete</a><!--  <br> <a href="@attendance_url@admin/spam?item_id=@session_list.cal_item_id@&return_url=@current_url@">Email Attendees</a>--> }
 	}
     }
 
 
-db_multirow -extend {cal_item_id date_time grade_id} session_list get_sessions { 
+db_multirow -extend {session_name cal_item_id date_time grade_id} session_list get_sessions { 
 	select et.task_name, et.number_of_members, et.task_id, et.grade_item_id,
 		to_char(et.due_date,'YYYY-MM-DD HH24:MI:SS') as due_date_ansi, 
 		et.online_p, 
@@ -73,6 +73,7 @@
 	  and et.mime_type = crmt.mime_type
 } {
     set cal_item_id [db_string "getcalid" "select cal_item_id from evaluation_cal_task_map where task_item_id=:item_id"]
+    set session_name [db_string "geteventname" "select name from acs_events where event_id=:cal_item_id"]
     set grade_id [db_string "getgradeid" "select grade_id from evaluation_grades where grade_item_id = :grade_item_id"]
     set date_time [db_string datetime {
 	select to_char(start_date, 'Mon dd, yyyy hh:miam-')||to_char(end_date, 'hh:miam')
@@ -83,4 +84,4 @@
 	and e.event_id = ci.cal_item_id
 	and ci.cal_item_id = :cal_item_id
     } -default ""]
-}
\ No newline at end of file
+}