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 -N -r1.23 -r1.24 --- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 24 Oct 2018 11:05:08 -0000 1.23 +++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 19 Nov 2018 14:32:29 -0000 1.24 @@ -7,11 +7,36 @@ @cvs-id $Id$ } +namespace eval ::xowiki::includelet { + + ::xowiki::IncludeletClass create chat_room \ + -superclass ::xowiki::Includelet \ + -parameter { + {parameter_declaration { + {-chat_id} + {-mode:optional ""} + {-path:optional ""} + }} + } + + chat_room instproc render {} { + :get_parameters + template::head::add_css -href /chat/resources/chat.css + return [::chat::Chat login \ + -chat_id $chat_id \ + -mode $mode \ + -path $path] + } + +} + namespace eval ::chat { ::xo::ChatClass Chat -superclass ::xowiki::Chat Chat proc login {-chat_id {-package_id ""} {-mode ""} {-path ""}} { - if {$package_id eq "" && [chat_room_exists_p $chat_id]} { + if {![chat_room_exists_p $chat_id]} { + return [_ chat.Room_not_found] + } else { chat_room_get -room_id $chat_id -array c set package_id $c(context_id) } Index: openacs-4/packages/chat/www/chat.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat.tcl,v diff -u -N -r1.20 -r1.21 --- openacs-4/packages/chat/www/chat.tcl 24 Oct 2018 10:29:13 -0000 1.20 +++ openacs-4/packages/chat/www/chat.tcl 19 Nov 2018 14:32:29 -0000 1.21 @@ -56,7 +56,7 @@ template::head::add_css -href resources/chat.css set chat_frame [::chat::Chat login \ - -chat_id $room_id] + -chat_id $room_id] # Local variables: # mode: tcl Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v diff -u -N -r1.232 -r1.233 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 19 Nov 2018 11:15:07 -0000 1.232 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 19 Nov 2018 14:32:29 -0000 1.233 @@ -4665,7 +4665,6 @@ {-chat_id ""} {-mode ""} {-path ""} - {-package_id ""} }} } chat instproc render {} { @@ -4674,7 +4673,7 @@ # make the chat just for including page set chat_id [${:__including_page} item_id] } - set r [::xowiki::Chat login -chat_id $chat_id -mode $mode -path $path -package_id $package_id] + set r [::xowiki::Chat login -chat_id $chat_id -mode $mode -path $path] #ns_log notice chat=>$r return $r