Index: openacs-4/packages/evaluation/tcl/evaluation-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-callback-procs.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/evaluation/tcl/evaluation-callback-procs.tcl	19 Jul 2005 17:03:54 -0000	1.1.2.1
+++ openacs-4/packages/evaluation/tcl/evaluation-callback-procs.tcl	10 Nov 2005 13:53:56 -0000	1.1.2.2
@@ -42,4 +42,65 @@
     lappend result "Evaluation merge is done"
 }
 
+#Callbacks for application-track
 
+ad_proc -callback application-track::getApplicationName -impl evaluation {} { 
+        callback implementation 
+    } {
+        return "evaluation"
+    }    
+ad_proc -callback application-track::getGeneralInfo -impl evaluation {} { 
+        callback implementation 
+    } {
+    
+	db_1row my_query {
+	select count(1) as result
+		from acs_objects a, acs_objects b
+        	where b.object_id = :comm_id
+	        and a.tree_sortkey between b.tree_sortkey
+        	and tree_right(b.tree_sortkey)
+	        and a.object_type = 'evaluation_tasks'	
+	}
+	return "$result"
+    } 
+    
+ad_proc -callback application-track::getSpecificInfo -impl evaluation {} { 
+        callback implementation 
+    } {
+   	
+	upvar $query_name my_query
+	upvar $elements_name my_elements
+
+	set my_query {
+		select e.task_name as name,e.task_id as task_id,e.number_of_members as number_elements
+		from acs_objects a, acs_objects b,evaluation_tasks e
+        	where b.object_id = :class_instance_id
+	        and a.tree_sortkey between b.tree_sortkey
+        	and tree_right(b.tree_sortkey)
+	        and a.object_type = 'evaluation_tasks'
+            	and e.task_id = a.object_id
+
+	}
+		
+	set my_elements {
+    		name {
+	            label "Name"
+	            display_col name	                        
+	 	    html {align center}	 	    
+	 	                
+	        }
+	        id {
+	            label "Id"
+	            display_col task_id 	      	              
+	 	    html {align center}	 	               
+	        }
+	        number_elements {
+	            label "Number of elements"
+	            display_col number_elements 	      	               
+	 	    html {align center}	 	              
+	        }            
+	      
+	    
+	}
+    }         
+