Index: openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl	3 Mar 2005 22:33:36 -0000	1.4
+++ openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl	2 Nov 2005 20:30:21 -0000	1.5
@@ -248,7 +248,7 @@
 } {
     set return_list ""
     set name ""
-    set cc_package_id [apm_package_id_from_key "dotlrn-catalog"]
+    set cc_package_id [ad_conn package_id]
     
     # The tree id from categories
     set tree_list [category_tree::get_mapped_trees $cc_package_id]
@@ -273,3 +273,29 @@
     
     return $return_list
 }
+
+ad_proc -private dotlrn_catalog::get_enroll_p {
+    {-start_date:required}
+    {-end_date:required}
+} {
+    Returns 1 if sysdate is between start_date and end_date else return 0
+    @sysdate@ Date to compare
+    
+} {
+    set date [clock format [clock seconds] -format "%Y-%m-%d"]
+    if { $date >= $start_date && $date <= $end_date } {
+	return 1
+    }  else {
+	return 0
+    }
+}
+
+ad_proc -public dotlrn_catalog::get_course_data {
+    {-course_id:required}
+} {
+    Returns the course information (name,key and description) in the array course_data
+    
+} {
+    upvar course_data course_data
+    return [db_0or1row get_data {} -column_array course_data]
+}