Index: dotlrn_packages/packages/forums/tcl/forums-lams-procs.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-lams-procs.tcl	(revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-lams-procs.tcl	(revision 94a8cfca91c1b9faa220c616213544c23edeb6b9)
@@ -0,0 +1,89 @@
+# packages/forums/tcl/forums-lams-procs.tcl
+
+ad_library {
+    
+    LAMS Integration for Forum
+    
+    @author Ernie Ghiglione (ErnieG@melcoe.mq.edu.au)
+    @creation-date 2008-07-23
+    @arch-tag: F3DCDE7B-7FDF-4CD0-8CE4-AC182F82661E
+    @cvs-id $Id$
+}
+
+namespace eval forum::lams {}
+
+ad_proc -public forum::lams::is_lams {
+    {-forum_id ""}
+} {
+    set a forum to be a LAMS forum instance only
+} {
+
+    db_dml is_lams {}
+
+}
+
+
+ad_proc -public forum::lams::clone_instance {
+    -forum_id:required
+    -course_id:required
+    {-user_id ""}
+} {
+    Clones an instance of a forum
+} {
+
+    # since we pass the Community_id to LAMS, then we use this as
+    # course_id
+    set community_id $course_id 
+    set forum_package_id [forum::lams::get_package_instance -community_id $community_id]
+
+    if {![string equal 0 $forum_id]} {
+	# The forum actually exists, therefore we clone it
+
+	forum::get -forum_id $forum_id -array forum
+
+	# we get the parameters out of the forum array
+	set forum_name $forum(name)
+	set forum_charter $forum(charter)
+	set presentation_type $forum(presentation_type)
+	set posting_policy  $forum(posting_policy)
+    
+    } else {
+
+	# Forum instance doesn't exist, therefore we create a new
+	# one. We set the parameters based on default forum content
+	set forum_name "Forum"
+	set forum_charter ""
+	set presentation_type "flat"
+	set posting_policy  "open"
+
+    }
+
+    set new_forum_id [forum::new -name $forum_name \
+                          -charter $forum_charter \
+                          -presentation_type $presentation_type \
+                          -posting_policy $posting_policy \
+                          -package_id $forum_package_id \
+			 ]
+
+    forum::lams::is_lams -forum_id $new_forum_id
+
+    return $new_forum_id
+
+}
+
+ad_proc -private forum::lams::get_package_instance  {
+    -community_id:required
+} {
+    gets the package instance in the community for Forum
+} {
+    set pkg_id [db_string get_package_id { } -default 0]
+    if { [string equal $pkg_id "0"] } {
+        ad_return_complaint 1 "<b>You need to have forums-portlet in your class</b>"
+        ad_script_abort
+    } else {
+        return $pkg_id
+    }
+
+}
+
+
Index: dotlrn_packages/packages/forums/tcl/forums-lams-procs.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-lams-procs.xql	(revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-lams-procs.xql	(revision 94a8cfca91c1b9faa220c616213544c23edeb6b9)
@@ -0,0 +1,31 @@
+<?xml version="1.0"?>
+<!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN" "http://www.thecodemill.biz/repository/xql.dtd">
+<!-- packages/forums/tcl/forums-lams-procs.xql -->
+<!-- @author Ernie Ghiglione (ErnieG@melcoe.mq.edu.au) -->
+<!-- @creation-date 2008-07-23 -->
+<!-- @arch-tag: D5005B15-0411-44FA-B023-5588A3AE264E -->
+<!-- @cvs-id $Id$ -->
+
+<queryset>
+
+    <fullquery name="forum::lams::is_lams.is_lams">
+        <querytext>
+            update forums_forums
+            set is_lams= true
+            where forum_id = :forum_id
+        </querytext>
+    </fullquery>
+
+  <fullquery name="forum::lams::get_package_instance.get_package_id">
+    <querytext>
+      select 
+       dca.package_id
+      from 
+       dotlrn_community_applets dca,apm_packages ap
+      where 
+       community_id=:community_id and 
+       ap.package_id=dca.package_id and 
+       ap.package_key='forums'
+    </querytext>
+  </fullquery>
+</queryset>
\ No newline at end of file