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 \