Index: openacs-4/packages/chat/tcl/chat-ajax-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-ajax-procs.tcl,v diff -u -r1.23.2.10 -r1.23.2.11 --- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 13 Mar 2020 15:16:39 -0000 1.23.2.10 +++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 8 Apr 2020 12:00:38 -0000 1.23.2.11 @@ -43,13 +43,15 @@ namespace eval ::chat { ::xo::ChatClass Chat -superclass ::xowiki::Chat - Chat proc login {-chat_id {-package_id ""} {-mode ""} {-path ""}} { + Chat proc login {-chat_id {-package_id ""} {-mode ""} {-path ""} {-skin ""}} { if {![::xo::db::Class exists_in_db -id $chat_id]} { return [_ chat.Room_not_found] } else { set r [::xo::db::Class get_instance_from_db -id $chat_id] set package_id [$r set package_id] - set chat_skin [parameter::get -package_id $package_id -parameter ChatSkin] + if {$skin eq ""} { + set chat_skin [parameter::get -package_id $package_id -parameter ChatSkin] + } next -chat_id $chat_id \ -skin $chat_skin \ -package_id $package_id \