ad_page_contract { @cvs-id index.tcl, @creation-date 04/12/02 @author bkiesbye@sussdorff-roy.com } { group_id:integer,notnull last_visit:optional } -properties { room_table:multirow context:onevalue is_room_table:onevalue time:onevalue } set time [ns_time] set adp_count 0 set context "" set package_installed_p [apm_package_installed_p jabber] #set package_url [apm_package_url_from_key jabber] set user_id [ad_conn user_id] set is_room_table "true" set active_value "-1" set active "false" set active_rooms [jb_activeconferencerooms] if {$active_rooms != -1} { set room_count [ns_set size $active_rooms] } else { set room_count "-1" } if {![info exists last_visit]} { if {[db_0or1row get_last_visit ""]} { set last_visit_t $last_visit } } elseif {$last_visit == -1} { if {[db_0or1row get_last_visit_2 ""]} { set last_visit_t $last_visit } } multirow create rooms_table room_name room_id active thread_table active_value party_id db_foreach get_conference_group_rooms "" { set active "false" if {$room_count != -1} { set active "false" set active_value "-1" for {set i 0 } {$i < $room_count} {incr i} { if { [ns_set key $active_rooms $i ] == $room_name } { set active "true" set active_value [jb_invite_user $room_name 1 index.tcl] } } } set thread_table "