Index: openacs-4/packages/dotlrn-cards/dotlrn-cards.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-cards/dotlrn-cards.info,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-cards/dotlrn-cards.info 10 Jun 2005 08:34:20 -0000 1.1 +++ openacs-4/packages/dotlrn-cards/dotlrn-cards.info 22 Jun 2006 10:51:24 -0000 1.2 @@ -7,15 +7,16 @@ f t - + OpenACS - 2005-05-10 + 2006-06-22 OpenACS + 0 - + - - + + Index: openacs-4/packages/dotlrn-cards/tcl/dotlrn-cards-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-cards/tcl/dotlrn-cards-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-cards/tcl/dotlrn-cards-procs.tcl 10 Jun 2005 08:34:20 -0000 1.1 +++ openacs-4/packages/dotlrn-cards/tcl/dotlrn-cards-procs.tcl 22 Jun 2006 10:51:25 -0000 1.2 @@ -176,17 +176,6 @@ ns_set put $args package_id 0 set type [dotlrn::get_type_from_portal_id -portal_id $portal_id] - #select type from dotlrn_portal_types_map; - # type - #----------------------- - # user - # dotlrn_community - # dotlrn_class_instance - # dotlrn_club - #(4 rows) - - ns_log Notice [format "Class 1 TYPE=%s" $type] - if {[string equal $type "dotlrn_class_instance"] == 1} { add_portlet_helper $portal_id $args } else { @@ -231,7 +220,6 @@ } { 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 \