Index: openacs-4/packages/news/tcl/news-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-callback-procs.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/news/tcl/news-callback-procs.tcl	10 Oct 2005 12:59:35 -0000	1.1.2.5
+++ openacs-4/packages/news/tcl/news-callback-procs.tcl	10 Nov 2005 13:53:19 -0000	1.1.2.6
@@ -120,3 +120,60 @@
 db_dml del_update_news_acs_objects_2 {}
 }
 
+#Callbacks for application-track
+
+ad_proc -callback application-track::getApplicationName -impl news {} { 
+        callback implementation 
+    } {
+        return "news"
+    }    
+    
+ad_proc -callback application-track::getGeneralInfo -impl news {} { 
+        callback implementation 
+    } {
+	db_1row my_query {
+    		select count(n.item_id) as result
+		FROM news_items_approved n, dotlrn_class_instances_full com
+		WHERE class_instance_id=:comm_id
+		and apm_package__parent_id(n.package_id) = com.package_id		
+	}
+	
+	return "$result"
+    }      
+    
+ 
+ad_proc -callback application-track::getSpecificInfo -impl news {} { 
+        callback implementation 
+    } {
+   	
+	upvar $query_name my_query
+	upvar $elements_name my_elements
+
+	
+
+	set my_query {
+		SELECT news.publish_title as name, news.pretty_publish_date as initial_date, news.publish_date as finish_date
+		FROM news_items_approved news,dotlrn_communities_full com
+		WHERE community_id=:class_instance_id
+		and apm_package__parent_id(news.package_id) = com.package_id }
+		
+	set my_elements {
+    		name {
+	            label "Name"
+	            display_col name	                                    
+	 	    html {align center}	 	    
+		                
+	        }
+	        initial_date {
+	            label "Initial Date"
+	            display_col initial_date 	      	              
+	 	    html {align center}	 	          
+	        }
+	        finish_date {
+	            label "Finish Date"
+	            display_col finish_date 	      	               
+	 	    html {align center}	 	                
+	        }
+	}
+        return "OK"
+    }