Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -N -r1.106.2.47 -r1.106.2.48
--- openacs-4/packages/xotcl-core/xotcl-core.info 8 Nov 2022 13:24:15 -0000 1.106.2.47
+++ openacs-4/packages/xotcl-core/xotcl-core.info 26 Nov 2022 17:00:30 -0000 1.106.2.48
@@ -10,7 +10,7 @@
t
xotcl
-
+
Gustaf Neumann
XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)
2021-09-16
@@ -42,13 +42,13 @@
BSD-Style
2
-
+
-
+
Index: openacs-4/packages/xotcl-core/www/show-class-graph.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-class-graph.tcl,v
diff -u -N -r1.12.2.5 -r1.12.2.6
--- openacs-4/packages/xotcl-core/www/show-class-graph.tcl 29 Nov 2021 13:20:11 -0000 1.12.2.5
+++ openacs-4/packages/xotcl-core/www/show-class-graph.tcl 26 Nov 2022 17:00:30 -0000 1.12.2.6
@@ -4,7 +4,7 @@
@author Gustaf Neumann
@cvs-id $Id$
} -query {
- {classes}
+ {classes:token}
{documented_only:boolean 1}
{with_children:boolean 0}
{dpi:integer 96}
@@ -22,14 +22,17 @@
ad_script_abort
}
-set stem [ad_tmpnam]
-set dotfile $stem.dot
-set outfile $stem.$format
try {
- set f [open $dotfile w]; puts $f $dot_code; close $f
- exec $dot -T$format -o $outfile $dotfile
+ set F [ad_opentmpfile dotfile dot]
+ puts $F $dot_code
+ close $F
+
+ exec $dot -T$format -O $dotfile
+ set outfile $dotfile.$format
+
} on error {errorMsg} {
+ catch {close $F}
ns_log warning "show-class-graph: dot returned $errorMsg"
ad_return_error "dot error" $errorMsg
} on ok {result} {
Index: openacs-4/packages/xowf/xowf.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/xowf.info,v
diff -u -N -r1.12.2.95 -r1.12.2.96
--- openacs-4/packages/xowf/xowf.info 28 Oct 2022 12:52:41 -0000 1.12.2.95
+++ openacs-4/packages/xowf/xowf.info 26 Nov 2022 17:00:29 -0000 1.12.2.96
@@ -10,16 +10,16 @@
t
xowf
-
+
Gustaf Neumann
XoWiki Content Flow - an XoWiki based workflow system implementing state-based behavior of wiki pages and forms
2021-09-15
WU Vienna
BSD-Style
2
-
-
+
+
Index: openacs-4/packages/xowf/tcl/test/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test/Attic/test-item-procs.tcl,v
diff -u -N -r1.1.2.32 -r1.1.2.33
--- openacs-4/packages/xowf/tcl/test/test-item-procs.tcl 24 Aug 2022 17:45:54 -0000 1.1.2.32
+++ openacs-4/packages/xowf/tcl/test/test-item-procs.tcl 26 Nov 2022 17:00:30 -0000 1.1.2.33
@@ -329,8 +329,10 @@
sample_mc_0_ 2
}
- set tmpfile [ad_tmpnam]
- file copy $::acs::rootdir/packages/xowf/tcl/test/test-item-procs.tcl $tmpfile
+ set fn $::acs::rootdir/packages/xowf/tcl/test/test-item-procs.tcl
+ set F [ad_opentmpfile tmpfile test]
+ set F0 [open $fn]; set content [read $F0]; close $F0
+ close $F
dict set q_dict sample_st_0 type ShortText
dict set q_dict sample_st_0 nr_hrefs 1
Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -N -r1.180.2.107 -r1.180.2.108
--- openacs-4/packages/xowiki/xowiki.info 8 Nov 2022 13:24:14 -0000 1.180.2.107
+++ openacs-4/packages/xowiki/xowiki.info 26 Nov 2022 17:00:29 -0000 1.180.2.108
@@ -10,7 +10,7 @@
t
xowiki
-
+
Gustaf Neumann
A xotcl-based enterprise wiki system with multiple object types
2021-09-15
@@ -55,11 +55,11 @@
BSD-Style
2
-
+
-
+
Index: openacs-4/packages/xowiki/tcl/import-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/import-procs.tcl,v
diff -u -N -r1.42.2.10 -r1.42.2.11
--- openacs-4/packages/xowiki/tcl/import-procs.tcl 2 Jun 2022 09:25:27 -0000 1.42.2.10
+++ openacs-4/packages/xowiki/tcl/import-procs.tcl 26 Nov 2022 17:00:29 -0000 1.42.2.11
@@ -419,8 +419,7 @@
ArchiveFile instproc init {} {
:destroy_on_cleanup
::xo::db::CrClass get_instance_from_db -item_id ${:parent_id}
- set :tmpdir [ad_tmpnam]
- file mkdir ${:tmpdir}
+ set :tmpdir [ad_mktmpdir import]
}
ArchiveFile instproc delete {} {
file delete -force -- ${:tmpdir}