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 -r1.5 -r1.6 --- openacs-4/packages/lors/tcl/lors-imscp-procs.tcl 21 Apr 2005 15:36:29 -0000 1.5 +++ openacs-4/packages/lors/tcl/lors-imscp-procs.tcl 26 Apr 2005 16:33:14 -0000 1.6 @@ -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] @@ -214,9 +211,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] } @@ -309,9 +303,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] } @@ -412,9 +403,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] } @@ -540,9 +528,6 @@ @author Ernie Ghiglione (ErnieG@mm.st) } { - # set utf-8 system encoding - encoding system utf-8 - set retlist "" foreach item $itemlist { @@ -629,9 +614,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] }