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 -N -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl	31 May 2005 23:13:08 -0000	1.4.2.1
+++ openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl	4 Jul 2005 21:20:35 -0000	1.4.2.2
@@ -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]
@@ -274,6 +274,22 @@
     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}
 } {
@@ -282,4 +298,4 @@
 } {
     upvar course_data course_data
     return [db_0or1row get_data {} -column_array course_data]
-}
\ No newline at end of file
+}