Index: dotlrn_packages/packages/forums/tcl/forums-lams-procs.tcl
===================================================================
diff -u -rd886350dc86c4b801a38faf4a9c69a0b8dafc5b3 -r65db013a19bd8cb4c71202f71dc4d09ceaff2c15
--- dotlrn_packages/packages/forums/tcl/forums-lams-procs.tcl (.../forums-lams-procs.tcl) (revision d886350dc86c4b801a38faf4a9c69a0b8dafc5b3)
+++ dotlrn_packages/packages/forums/tcl/forums-lams-procs.tcl (.../forums-lams-procs.tcl) (revision 65db013a19bd8cb4c71202f71dc4d09ceaff2c15)
@@ -100,7 +100,7 @@
ad_proc -public forum::lams::export_instance {
- {-forum_id ""}
+ -forum_id:required
} {
Exports an instance of forum
} {
@@ -174,3 +174,37 @@
}
+
+ad_proc -public forum::lams::export_portfolio {
+ -forum_id:required
+ {-user_id ""}
+} {
+ Export the portfolio and returns an HTML file
+
+} {
+
+ # Since .LRN Forum doesn't provide a page with all the threads in
+ # one single HTML, we simply return a page stating that this
+ # feature is not implemented
+
+ set return_string "Export Portfolio for .LRN ForumSorry, this feature is not implemented
"
+
+ set tmp_folder [ns_tmpnam]
+ file mkdir $tmp_folder
+ set path_to_file [file join $tmp_folder export_portfolio_$forum_id]
+
+ set filer [open $path_to_file w+]
+
+ puts -nonewline $filer $return_string
+
+ close $filer
+
+ # send the file back to the call
+
+ ns_set put [ad_conn outputheaders] Content-Disposition "attachment;filename=\"export_portfolio_$forum_id\""
+ ns_set put [ad_conn outputheaders] Content-Type "text/txt"
+ ns_set put [ad_conn outputheaders] Content-Size "[file size $path_to_file]"
+ ns_returnfile 200 text/html $path_to_file
+
+
+}