Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/tcl/lars-blogger-callback-procs.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/tcl/lorsm-callback-procs.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
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 -r1.2
--- openacs-4/packages/news/tcl/news-callback-procs.tcl	13 Jun 2005 14:52:43 -0000	1.1
+++ openacs-4/packages/news/tcl/news-callback-procs.tcl	25 May 2006 13:22:20 -0000	1.2
@@ -104,3 +104,68 @@
     return "[ad_url][db_string select_news_package_url {}]item?item_id=$object_id"
 }
 
+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(1) as result
+		FROM news_items_approved news,dotlrn_communities_full com
+		WHERE community_id=:comm_id
+		and apm_package__parent_id(news.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.item_creator as creator,news.publish_body as message,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}	 	    
+		                
+	        }
+	        creator {
+	            label "Creator"
+	            display_col creator 	      	              
+	 	    html {align center}	 	          
+	        }
+	        message {
+	            label "Message"
+	            display_col message 	      	              
+	 	    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"
+    }         
\ No newline at end of file