Index: openacs-4/packages/acs-tcl/tcl/pdf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/pdf-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/pdf-procs.tcl	4 Jun 2006 00:45:47 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/pdf-procs.tcl	27 Oct 2014 16:40:07 -0000	1.3
@@ -29,7 +29,7 @@
     @return the pdf-file-name
 } {
 
-    set tmp_filename [ns_tmpnam]
+    set tmp_filename [ad_tmpnam]
     # create html.file
     set html_content [create_html_content -template_id $template_id -set_var_call $set_var_call]
     set tmp_html_filename "${tmp_filename}.html"
@@ -61,7 +61,7 @@
     @param html_content HTML Content that is transformed into PDF
     @return filename of the pdf file
 } {
-    set tmp_filename [ns_tmpnam]
+    set tmp_filename [ad_tmpnam]
     set tmp_html_filename "${tmp_filename}.html"
     set fp [open $tmp_html_filename w]
     puts $fp $html_content
@@ -92,15 +92,14 @@
     @creation-date 2005-07-07
     @param pdf_file the pdf-file to save
     @param folder_id the folder the document is stored in
-    @title Title or name of the document
-    @description Description of the document
-    @return 
+    @param title Title or name of the document
+    @param description Description of the document
+    @return item_id
     
-    @error 
 } {
     set file_size [file size $pdf_file]
     set item_id [cr_import_content -title $title -description $description $folder_id $pdf_file $file_size application/pdf $title]
-    return item_id
+    return $item_id
 }
 
 ad_proc -private text_templates::create_html_content {
@@ -118,7 +117,7 @@
     @param set_var_call procedure-name which sets the variables used
 } {
 
-    eval $set_var_call
+    {*}$set_var_call
     
     # retrieve template and write to tmpfile
     # set content [content::get_content_value $template_id]