Index: openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl	24 May 2002 22:13:02 -0000	1.22
+++ openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl	29 May 2002 23:00:25 -0000	1.23
@@ -227,7 +227,11 @@
     } {
         Clone this applet's content from the old community to the new one
     } {
-        ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!"
+        ns_log notice "Cloning [get_pretty_name]"
+        static_portal_content::clone \
+            -portal_id [dotlrn_community::get_portal_id_not_cached \
+                            -community_id $new_community_id] \
+            -package_id $new_community_id        
     }
 
 }