Index: openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl	21 Jul 2006 17:19:32 -0000	1.12
+++ openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl	2 Sep 2008 21:13:45 -0000	1.13
@@ -20,6 +20,13 @@
     { groupby course_name }
 
     {period_days 31}
+} -validate {
+    date_not_before {
+	if {[clock scan $date] < [clock scan "2004-01-01"]} {
+	    ad_return_complaint 1 "That date is not available."
+	    ad_script_abort
+	}
+    }
 }
 
 
@@ -241,16 +248,16 @@
     }
 }
 
-lappend filters instructor \
-    [list \
-	 label "Instructor" \
-	 values $instructors_filter \
-	 where_clause_eval {subst {exists (select 1
-     from dotlrn_users u, dotlrn_member_rels_approved r
-     where u.user_id = r.user_id
-     and r.community_id = dec.community_id
-     and r.rel_type = 'dotlrn_ecom_instructor_rel'
-     and r.user_id in ([join $instructor ,]))}}]
+# lappend filters instructor \
+#     [list \
+# 	 label "Instructor" \
+# 	 values $instructors_filter \
+# 	 where_clause_eval {subst {exists (select 1
+#      from dotlrn_users u, dotlrn_member_rels_approved r
+#      where u.user_id = r.user_id
+#      and r.community_id = dec.community_id
+#      and r.rel_type = 'dotlrn_ecom_instructor_rel'
+#      and r.user_id in ([join $instructor ,]))}}]
 
 set filters [linsert $filters 0 date {} view {
     label "View"
@@ -309,7 +316,7 @@
 }
 
 set date 
-set item_template "one-course?cal_item_id=\$item_id"
+set item_template "one-section?cal_item_id=\$item_id"
 set export [list]
 foreach {name discard} $filters {
     lappend export $name
Index: openacs-4/packages/dotlrn-ecommerce/lib/view-month-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/view-month-display.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn-ecommerce/lib/view-month-display.tcl	1 Sep 2005 13:11:31 -0000	1.7
+++ openacs-4/packages/dotlrn-ecommerce/lib/view-month-display.tcl	2 Sep 2008 21:13:45 -0000	1.8
@@ -150,6 +150,7 @@
 }
 
 db_foreach dbqd.calendar.www.views.select_items {} {
+    if { [expr [clock scan $ansi_start_date] < [clock seconds]] } { continue }
     # Convert from system timezone to user timezone
     set ansi_start_date [lc_time_system_to_conn $ansi_start_date]
     set ansi_end_date [lc_time_system_to_conn $ansi_end_date]