Index: openacs-4/packages/forums/tcl/forums-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-callback-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/forums/tcl/forums-callback-procs.tcl	28 Jan 2006 15:30:17 -0000	1.3
+++ openacs-4/packages/forums/tcl/forums-callback-procs.tcl	25 May 2006 12:55:20 -0000	1.4
@@ -187,3 +187,72 @@
 
     return "[ad_url][db_string select_forums_package_url {}]message-view?message_id=$message_id"
 }
+
+ad_proc -callback application-track::getApplicationName -impl forums {} { 
+        callback implementation 
+    } {
+        return "forums"
+    }    
+    
+    ad_proc -callback application-track::getGeneralInfo -impl forums {} { 
+        callback implementation 
+    } {
+	db_1row my_query {
+		SELECT count(1) as result
+    		from acs_objects o, forums_forums f, acs_objects o2, dotlrn_communities_full com
+		where f.forum_id=o.object_id   
+		      and com.community_id=:comm_id
+		      and o.package_id= o2.object_id
+		      and o2.context_id=com.package_id		
+					
+	}
+	
+	return "$result"
+    }
+    
+    ad_proc -callback application-track::getSpecificInfo -impl forums {} { 
+        callback implementation 
+    } {
+   	
+	upvar $query_name my_query
+	upvar $elements_name my_elements
+
+	set my_query {
+		SELECT 	f.name as name,f.thread_count as threads,
+			f.last_post, 
+		       	to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+	from acs_objects o, forums_forums f, acs_objects o2, dotlrn_communities_full com
+		where f.forum_id=o.object_id   
+		      and com.community_id=:class_instance_id
+		      and o.package_id= o2.object_id
+		      and o2.context_id=com.package_id
+ }
+		
+	set my_elements {
+    		name {
+	            label "Name"
+	            display_col name	                        
+	 	    html {align center}	 	    
+	 	                
+	        }
+	        threads {
+	            label "Threads"
+	            display_col threads 	      	              
+	 	    html {align center}	 	               
+	        }
+	        creation_date {
+	            label "creation_date"
+	            display_col creation_date 	      	               
+	 	    html {align center}	 	              
+	        }
+	        last_post  {
+	            label "last_post"
+	            display_col last_post 	      	               
+	 	    html {align center}	 	              
+	        }	        
+	        
+	        
+	}
+
+        return "OK"
+    }          
\ No newline at end of file