Index: openacs-4/packages/dotlrn/www/clone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/clone.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/clone.tcl	13 Jul 2002 17:49:25 -0000	1.3
+++ openacs-4/packages/dotlrn/www/clone.tcl	26 Jul 2002 02:02:31 -0000	1.4
@@ -35,7 +35,7 @@
 
 set class_instance_p 0
 set community_name [dotlrn_community::get_community_name $community_id]
-set title "Copy $community_name]"
+set title "Copy $community_name"
 set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
 set top_community_type [dotlrn_community::get_toplevel_community_type_from_community_id $community_id]
 
@@ -61,13 +61,7 @@
         -label Term \
         -datatype integer \
         -widget select \
-        -options [db_list_of_lists select_terms_for_select_widget {
-            select dotlrn_terms.term_name || ' ' || dotlrn_terms.term_year as term,
-            dotlrn_terms.term_id
-            from dotlrn_terms
-            where dotlrn_terms.end_date > sysdate
-            order by dotlrn_terms.start_date
-        }]
+        -options [dotlrn_term::get_future_terms_as_options] 
 }
 
 element create clone_form pretty_name \