Index: dotlrn_packages/packages/forums/tcl/forums-lams-procs.tcl =================================================================== diff -u -r047f65288b26d8b00bcf16094866f1fb39bdd8be -rd886350dc86c4b801a38faf4a9c69a0b8dafc5b3 --- dotlrn_packages/packages/forums/tcl/forums-lams-procs.tcl (.../forums-lams-procs.tcl) (revision 047f65288b26d8b00bcf16094866f1fb39bdd8be) +++ dotlrn_packages/packages/forums/tcl/forums-lams-procs.tcl (.../forums-lams-procs.tcl) (revision d886350dc86c4b801a38faf4a9c69a0b8dafc5b3) @@ -12,8 +12,8 @@ namespace eval forum::lams {} -ad_proc -public forum::lams::is_lams { - {-forum_id ""} +ad_proc -private forum::lams::is_lams { + -forum_id:required } { set a forum to be a LAMS forum instance only } { @@ -22,7 +22,18 @@ } +ad_proc -private forum::lams::update_user_id { + -forum_id:required + -user_id:required +} { + set a forum to be a LAMS forum instance only +} { + db_dml update_user_id {} + +} + + ad_proc -public forum::lams::clone_instance { -forum_id:required -course_id:required @@ -66,6 +77,7 @@ ] forum::lams::is_lams -forum_id $new_forum_id + forum::lams::update_user_id -forum_id $new_forum_id -user_id $user_id return $new_forum_id @@ -124,8 +136,8 @@ ad_proc -public forum::lams::import_instance { -file_path:required - -user_id - -course_id + -user_id:required + -course_id:required } { Import an instance of forum } { @@ -156,6 +168,7 @@ ] forum::lams::is_lams -forum_id $new_forum_id + forum::lams::update_user_id -forum_id $new_forum_id -user_id $user_id return $new_forum_id Index: dotlrn_packages/packages/forums/tcl/forums-lams-procs.xql =================================================================== diff -u -r94a8cfca91c1b9faa220c616213544c23edeb6b9 -rd886350dc86c4b801a38faf4a9c69a0b8dafc5b3 --- dotlrn_packages/packages/forums/tcl/forums-lams-procs.xql (.../forums-lams-procs.xql) (revision 94a8cfca91c1b9faa220c616213544c23edeb6b9) +++ dotlrn_packages/packages/forums/tcl/forums-lams-procs.xql (.../forums-lams-procs.xql) (revision d886350dc86c4b801a38faf4a9c69a0b8dafc5b3) @@ -16,6 +16,15 @@ + + + update acs_objects + set modifying_user = :user_id, + creation_user = :user_id + where object_id = :forum_id + + + select