Index: openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs.tcl 19 Jun 2005 06:05:08 -0000 1.2 +++ openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs.tcl 24 Jun 2005 09:16:07 -0000 1.3 @@ -175,15 +175,18 @@ } { Clone this applet's content from the old community to the new one } { - ns_log notice "Cloning: [applet_key]" - set new_package_id [add_applet_to_community $new_community_id] - set old_package_id [dotlrn_community::get_applet_package_id \ - -community_id $old_community_id \ - -applet_key [applet_key] - ] + + # ns_log notice "Cloning: [applet_key]" + #set new_package_id [add_applet_to_community $new_community_id] + #set old_package_id [dotlrn_community::get_applet_package_id \ + # -community_id $old_community_id \ + # -applet_key [applet_key] + #] + # db_exec_plsql call_expense_tracking_clone {} + # return $new_package_id - db_exec_plsql call_expense_tracking_clone {} - return $new_package_id + add_applet_to_community $new_community_id + } ad_proc -public change_event_handler {