Index: openacs-4/packages/dotlrn/tcl/class-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	16 Apr 2002 13:53:52 -0000	1.31
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	6 May 2002 15:56:22 -0000	1.32
@@ -148,7 +148,6 @@
         Creates a new instance of a class for a particular term and year,
         and returns the class instance key.
     } {
-#        dotlrn_term::get_term_info -term_id $term_id -term_name_var "term" -term_year_var "year"
         set term [dotlrn_term::get_term_name -term_id $term_id]
         set year [dotlrn_term::get_term_year -term_id $term_id]
         set community_key "${class_key}-${term}-${year}"
Index: openacs-4/packages/dotlrn/tcl/term-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/term-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/term-procs.tcl	29 Mar 2002 19:14:45 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/term-procs.tcl	6 May 2002 15:56:22 -0000	1.6
@@ -24,6 +24,12 @@
 
 namespace eval dotlrn_term {
 
+    ad_proc -private get_date_format {} {
+        get default date format
+    } {
+        return "YYYY MM DD"
+    }
+
     ad_proc -public new {
         {-term_name:required}
         {-term_year:required}
@@ -34,7 +40,7 @@
     } {
         set start_date "[template::util::date::get_property year $start_date] [template::util::date::get_property month $start_date] [template::util::date::get_property day $start_date]"
         set end_date "[template::util::date::get_property year $end_date] [template::util::date::get_property month $end_date] [template::util::date::get_property day $end_date]"
-        set date_format "YYYY MM DD"
+        set date_format [get_date_format]
 
         db_dml insert_term {}
     }
@@ -50,7 +56,7 @@
     } {
         set start_date "[template::util::date::get_property year $start_date] [template::util::date::get_property month $start_date] [template::util::date::get_property day $start_date]"
         set end_date "[template::util::date::get_property year $end_date] [template::util::date::get_property month $end_date] [template::util::date::get_property day $end_date]"
-        set date_format "YYYY MM DD"
+        set date_format [get_date_format]
 
         db_dml update_term {}
     }
@@ -87,7 +93,7 @@
     } {
         get the start date of this term
     } {
-        set date_format "YYYY MM DD"
+        set date_format [get_date_format]
         db_1row get_start_date {}
 
         return [template::util::date::create $year $month $day "" "" "" $date_format]
@@ -98,7 +104,7 @@
     } {
         get the end date of this term
     } {
-        set date_format "YYYY MM DD"
+        set date_format [get_date_format]
         db_1row get_end_date {}
 
         return [template::util::date::create $year $month $day "" "" "" $date_format]