Forum OpenACS Development: chat broken

Collapse
Posted by Ben Koot on
I managed to set up one chat room (OACS 5.3.1 / clean install. It is not possible to add a second chatroom here's the error message when hitting"create new room"

Server Error

There was a server error processing your request. We apologize.

Take me back where I was (before the error)

undefined variable `room_id'
while executing
"ns_pg_bind 0or1row nsdb0 {
select rm.room_id,
rm.pretty_name as pretty_name,
rm.description as description,
r..."
("uplevel" body line 1)
invoked from within
"uplevel $ulevel [list ns_pg_bind $type $db $sql]"
("postgresql" arm line 2)
invoked from within
"switch $driverkey {
oracle {
return [uplevel $ulevel [list ns_ora $type $db $sql] $args]
}
..."
invoked from within
"db_exec 0or1row $db $full_statement_name $sql"
invoked from within
"set selection [db_exec 0or1row $db $full_statement_name $sql]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $code_block "
invoked from within
"db_with_handle -dbn $dbn db {
set selection [db_exec 0or1row $db $full_statement_name $sql]
}"
(procedure "db_0or1row" line 50)
invoked from within
"db_0or1row room_info {
select rm.room_id,
rm.pretty_name as pretty_name,
rm.description as description,
rm.mo..."
("uplevel" body line 1)
invoked from within
"uplevel db_0or1row $args"
(procedure "db_1row" line 2)
invoked from within
"db_1row room_info {
select rm.room_id,
rm.pretty_name as pretty_name,
rm.description as description,
rm.moder..."
("uplevel" body line 23)
invoked from within
"uplevel {
#/chat/www/room-edit.tcl
ad_page_contract {
Display a form to edit room information.

@author Peter Alberer (mailto:peter@alberer.co...";
(procedure "code::tcl::/usr/local/www/villagetalk.net/openacs-5.3.1/pack..." line 2)
invoked from within
"code::tcl::$__adp_stub"
invoked from within
"if { [file exists $__adp_stub.tcl] } {

# ensure that data source preparation procedure exists and is up-to-date
adp_init tcl $__adp_stub
..."
("uplevel" body line 3)
invoked from within
"uplevel {

if { [file exists $__adp_stub.tcl] } {

# ensure that data source preparation procedure exists and is up-to-date
adp_init t..."
(procedure "adp_prepare" line 2)
invoked from within
"adp_prepare"
invoked from within
"template::adp_parse [file root [ad_conn file]] {}"
(procedure "adp_parse_ad_conn_file" line 5)
invoked from within
"$handler"
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
$handler
} ad_script_abort val {
# do nothing
}"
invoked from within
"rp_serve_concrete_file [ad_conn file]"
(procedure "rp_serve_abstract_file" line 60)
invoked from within
"rp_serve_abstract_file "$root/$path""
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
rp_serve_abstract_file "$root/$path"
set tcl_url2file([ad_conn url]) [ad_conn file]
set tcl_url2path_info..."

Collapse
2: Re: chat broken (response to 1)
Posted by Emmanuelle Raffenne on
I just fixed it and committed at oacs-5-3 branch. Thanks for reporting it.
Collapse
3: Re: chat broken (response to 1)
Posted by Ben Koot on
Thanks for the fix.
I have one other simple idea. Can you add a sound allert so we hear when someone enters a chatroom. Can't be rocket science 😉 In an ideal world we would have a parameter "upload soundfile" to add different sounds, like on a mobile phone.

Cheers

Ben