Index: openacs-4/packages/attendance/tcl/attendance-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attendance/tcl/attendance-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/attendance/tcl/attendance-procs.tcl	16 Jul 2005 13:06:32 -0000	1.4
+++ openacs-4/packages/attendance/tcl/attendance-procs.tcl	6 Aug 2005 10:14:51 -0000	1.5
@@ -16,7 +16,12 @@
 	Retreives grade_id and grade_item_id from evaluation and sets them in the calling environment
 } {
 
-	uplevel 1 { db_0or1row "getgradeid" "" }
+	uplevel 1 { db_0or1row "getgradeid" "select eg.grade_id as grade_id, eg.grade_item_id as grade_item_id, eg.grade_plural_name
+   	 	from evaluation_grades eg, acs_objects ao, cr_items cri
+		where cri.live_revision = eg.grade_id
+          	and eg.grade_item_id = ao.object_id
+   		and ao.context_id = :package_id
+		and eg.grade_name = 'Attendance'" }
 }
 
 ad_proc create_task {