Index: openacs-4/packages/lors/tcl/lors-imscp-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-procs.tcl,v diff -u -N -r1.4.2.1 -r1.4.2.2 --- openacs-4/packages/lors/tcl/lors-imscp-procs.tcl 5 Jan 2005 17:00:37 -0000 1.4.2.1 +++ openacs-4/packages/lors/tcl/lors-imscp-procs.tcl 26 Apr 2005 16:49:12 -0000 1.4.2.2 @@ -38,9 +38,6 @@ @author Ernie Ghiglione (ErnieG@mm.st) } { - # set utf-8 system encoding - encoding system utf-8 - set items "" set itemx [$tree child all item] @@ -213,9 +210,6 @@ @option creation_ip ip-address of the user that adds the category. [ad_conn peeraddr] used by default. @author Ernie Ghiglione (ErnieG@mm.st) } { - # set utf-8 system encoding - encoding system utf-8 - if {[empty_string_p $user_id]} { set user_id [ad_conn user_id] } @@ -307,9 +301,6 @@ @option creation_ip ip-address of the user that adds the category. [ad_conn peeraddr] used by default. @author Ernie Ghiglione (ErnieG@mm.st) } { - # set utf-8 system encoding - encoding system utf-8 - if {[empty_string_p $user_id]} { set user_id [ad_conn user_id] } @@ -410,9 +401,6 @@ @option creation_ip ip-address of the user that adds the category. [ad_conn peeraddr] used by default. @author Ernie Ghiglione (ErnieG@mm.st) } { - # set utf-8 system encoding - encoding system utf-8 - if {[empty_string_p $user_id]} { set user_id [ad_conn user_id] } @@ -538,9 +526,6 @@ @author Ernie Ghiglione (ErnieG@mm.st) } { - # set utf-8 system encoding - encoding system utf-8 - set retlist "" foreach item $itemlist { @@ -627,9 +612,6 @@ @option creation_ip ip-address of the user that adds the category. [ad_conn peeraddr] used by default. @author Ernie Ghiglione (ErnieG@mm.st) } { - # set utf-8 system encoding - encoding system utf-8 - if {[empty_string_p $user_id]} { set user_id [ad_conn user_id] }