Index: openacs-4/packages/invoices/www/invoice-join.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-join.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/invoices/www/invoice-join.tcl	31 May 2013 20:27:17 -0000	1.3
+++ openacs-4/packages/invoices/www/invoice-join.tcl	26 Nov 2024 09:23:38 -0000	1.4
@@ -25,11 +25,11 @@
 db_transaction {
     db_1row last_checkout {}
 
-    set tmpdir [ns_tmpnam]
+    set tmpdir [ns_mktemp]
     file mkdir $tmpdir
     set files {}
     db_foreach pdfs_to_join {} {
-	ns_cp "${root_dir}$content" "${tmpdir}/[file tail $content].pdf"
+	file copy "${root_dir}$content" "${tmpdir}/[file tail $content].pdf"
 	lappend files "${tmpdir}/[file tail $content].pdf"
     }
 
@@ -42,10 +42,10 @@
 
 	# delete old files
 	foreach one_file $files {
-	    ns_unlink $one_file
+	    file delete $one_file
 	}
     }
-    ns_rmdir $tmpdir
+    file delete $tmpdir
 }
 
 set actions [list "[_ invoices.ok]" $return_url "[_ invoices.ok]"]