<%
#
# Copyright (C) 2004 University of Valencia
#
# This file is part of dotLRN.
#
# dotLRN is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
# details.
#
%>
@context;noquote@
#chat.Chat_main_page#
[#chat.Create_a_new_room#]
#chat.There_are_no_rooms_available#
<% set num_rooms 0 %>
<%
set can_see 0
if {($rooms(active_p) eq "t" && $rooms(user_p) eq "t") || ($rooms(admin_p) eq "t")} {
set can_see 1
set num_rooms [expr $num_rooms + 1]
}
%>
| @rooms.pretty_name@ |
[ HTML | java ]
|
[#chat.room_admin#]
(NO #chat.Active#)
<%
if {$inside_comm_p eq "1"} {
set desc [string range $rooms(description) 0 50]
} else {
set desc $rooms(keyclub)
}
%>
|
@desc@
|
#chat.There_are_no_rooms_available#