Index: openacs-4/packages/evaluation/lib/evaluations-chunk.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/lib/evaluations-chunk.xql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/evaluation/lib/evaluations-chunk.xql	9 Jun 2009 03:03:53 -0000	1.7
+++ openacs-4/packages/evaluation/lib/evaluations-chunk.xql	22 Nov 2017 13:03:29 -0000	1.8
@@ -2,6 +2,134 @@
 
 <queryset>
 
+<fullquery name="compare_due_date">      
+      <querytext>
+
+	select 1 from dual where :due_date > current_date
+	
+      </querytext>
+</fullquery>
+
+<fullquery name="get_answer_info">      
+      <querytext>
+
+	    select ea.data as answer_data, 
+	    ea.title as answer_title, 
+	    ea.answer_id,to_char(ea.creation_date,'MM/DD/YYYY HH24:MI') as creation_date
+	    from evaluation_answersi ea, cr_items cri
+	    where ea.task_item_id = :task_item_id 
+	    and cri.live_revision = ea.answer_id
+	    and ea.party_id = 
+	( select 
+	CASE  
+	  WHEN et3.number_of_members = 1 THEN :user_id 
+	  ELSE  
+	(select etg2.group_id from evaluation_task_groups etg2, 
+                                                      evaluation_tasks et2, 
+                                                      acs_rels map 
+                                                      where map.object_id_one = etg2.group_id 
+                                                        and map.object_id_two = :user_id 
+                                                        and etg2.task_item_id = et2.task_item_id 
+                                                        and et2.task_id = :task_id) 
+	END as nom 
+               from evaluation_tasks et3 
+              where et3.task_id = :task_id 
+	) 
+
+-- evaluation__party_id(:user_id,:task_id)
+
+      </querytext>
+</fullquery>
+
+<fullquery name="get_tasks_admin">      
+      <querytext>
+
+	select et.task_name, 
+	round(et.weight,2) as task_weight,
+        et.task_id, coalesce(perfect_score,0) as perfect_score, online_p
+	from evaluation_tasksi et, cr_items cri
+	where grade_item_id = :grade_item_id
+	  and cri.live_revision = et.task_id
+      $evaluations_orderby
+	
+      </querytext>
+</fullquery>
+
+<fullquery name="get_grade_tasks">      
+      <querytext>
+
+	select et.task_name, 
+	et.task_item_id,
+	et.weight as t_weight,
+	eg.weight as g_weight,
+	round((et.weight*eg.weight)/100,2) as task_weight,
+	et.number_of_members, 
+	et.online_p,
+	et.due_date,
+	et.late_submit_p,
+        et.task_id, coalesce(perfect_score,0) as perfect_score
+	from evaluation_grades eg,
+	evaluation_tasksi et,
+	cr_items cri
+	where eg.grade_id = :grade_id
+	and eg.grade_item_id = et.grade_item_id
+	and cri.live_revision = et.task_id
+	$evaluations_orderby
+	
+      </querytext>
+</fullquery>
+  
+<fullquery name="get_evaluation_info">      
+      <querytext>
+
+	    select round(ese.grade,2) as grade,
+	    ese.evaluation_id,
+	    ese.description as comments,
+	    ese.show_student_p,
+	    round((ese.grade*:t_weight*:g_weight)/10000,2) as task_grade
+	    from evaluation_student_evalsi ese, cr_items cri
+	    where ese.task_item_id = :task_item_id
+	    and cri.live_revision = ese.evaluation_id
+	    and ese.party_id = 
+	( select 
+	CASE  
+	  WHEN et3.number_of_members = 1 THEN :user_id 
+	  ELSE  
+	(select etg2.group_id from evaluation_task_groups etg2, 
+                                                      evaluation_tasks et2, 
+                                                      acs_rels map 
+                                                      where map.object_id_one = etg2.group_id 
+                                                        and map.object_id_two = :user_id 
+                                                        and etg2.task_item_id = et2.task_item_id 
+                                                        and et2.task_id = :task_id) 
+	END as nom 
+               from evaluation_tasks et3 
+              where et3.task_id = :task_id 
+	) 
+-- evaluation__party_id(:user_id,:task_id)
+
+      </querytext>
+</fullquery>
+  
+<fullquery name="get_group_id">      
+      <querytext>
+
+	select coalesce((select etg2.group_id from evaluation_task_groups etg2, 
+                                                      evaluation_tasks et2, 
+                                                      acs_rels map 
+                                                      where map.object_id_one = etg2.group_id 
+                                                        and map.object_id_two = :user_id 
+                                                        and etg2.task_item_id = et2.task_item_id 
+                                                        and et2.task_id = :task_id),0)
+               from evaluation_tasks et3 
+              where et3.task_id = :task_id 
+
+--		select evaluation__party_id(:user_id,:task_id)
+	
+      </querytext>
+</fullquery>
+
+
 <fullquery name="get_grade_info">      
       <querytext>