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 -r1.12.2.2 -r1.12.2.3 --- openacs-4/packages/xotcl-core/www/show-class-graph.tcl 8 Aug 2020 08:08:20 -0000 1.12.2.2 +++ openacs-4/packages/xotcl-core/www/show-class-graph.tcl 26 Aug 2020 18:50:43 -0000 1.12.2.3 @@ -1,6 +1,6 @@ ad_page_contract { Show an XOTcl class or object - + @author Gustaf Neumann @cvs-id $Id$ } -query { @@ -20,7 +20,7 @@ # final resort for cases, where ::util::which is not available if {$dot eq "" && [file executable /usr/bin/dot]} {set dot /usr/bin/dot} if {$dot eq ""} {ns_return 404 plain/text "dot not found"; ad_script_abort} - + set tmpnam [ad_tmpnam] set tmpfile $tmpnam.$format set f [open $tmpnam.$format w]; puts $f $dot_code; close $f