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 -r1.2 -r1.3
--- openacs-4/packages/attendance/lib/cp-attendance.tcl 19 Jun 2005 06:05:05 -0000 1.2
+++ openacs-4/packages/attendance/lib/cp-attendance.tcl 24 Jun 2005 11:47:19 -0000 1.3
@@ -43,12 +43,12 @@
action {
label "Actions"
html "nowrap"
- display_template { Edit | Attendance }
+ display_template { Edit | Attendance | Delete }
}
}
-db_multirow -extend {cal_item_id date_time} session_list get_sessions {
+db_multirow -extend {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 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')
from cal_items ci, acs_events e, acs_activities a, timespans s, time_intervals t