Index: openacs-4/packages/acs-lang/ACS4.1b-PATCHES/util-procs.patch =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/ACS4.1b-PATCHES/Attic/util-procs.patch,v diff -u -N --- openacs-4/packages/acs-lang/ACS4.1b-PATCHES/util-procs.patch 20 Apr 2001 20:51:08 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,33 +0,0 @@ -*** ./packages/acs-templating/tcl/util-procs.tcl Fri Jan 12 11:50:24 2001 ---- /web/acs41b/packages/acs-templating/tcl/util-procs.tcl Sun Jan 21 22:41:28 2001 -*************** -*** 414,425 **** - - proc template::util::read_file { path } { - -! set fd [open $path] -! set text [read $fd] -! close $fd - -! return $text - } - - # @public write_file - ---- 414,429 ---- - - proc template::util::read_file { path } { - -! set type [ns_guesstype $path] -! set encoding [ns_encodingfortype $type] -! set fd [open $path r] -! fconfigure $fd -encoding $encoding -! set text [read $fd] -! close $fd - -! return $text - } -+ - - # @public write_file -