version 1.20, 2006/03/23 22:32:10
|
version 1.22, 2006/03/29 21:16:18
|
Line 37 use Apache::lonnet;
|
Line 37 use Apache::lonnet;
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
|
|
if (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['lastid','group']); |
|
my ($group,$grouptitle); |
|
my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
if (defined($env{'form.group'})) { |
|
$group = $env{'form.group'}; |
|
if (! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'. |
|
$group) ) { |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
|
my %curr_groups; |
|
my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, |
|
$cnum,$group); |
|
if ($numgroups) { |
|
my %group_info = |
|
&Apache::loncommon::get_group_settings($curr_groups{$group}); |
|
$grouptitle = |
|
'<b>'.&Apache::lonnet::unescape($group_info{description}). |
|
'</b><br />'; |
|
} |
|
} elsif (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) |
) { |
) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
Line 56 sub handler {
|
Line 77 sub handler {
|
|
|
# ------------------------------------------------------------ retrieve entries |
# ------------------------------------------------------------ retrieve entries |
|
|
my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $chome=$env{'course.'.$env{'request.course.id'}.'.home'}; |
my $chome=$env{'course.'.$env{'request.course.id'}.'.home'}; |
|
|
my @entries=split(/\:/, |
my @entries=split(/\:/, |
&Apache::lonnet::reply( |
&Apache::lonnet::reply( |
"chatretr:$cdom:$cnum:$env{'user.domain'}:$env{'user.name'}",$chome)); |
"chatretr:$cdom:$cnum:$env{'user.domain'}:$env{'user.name'}:$group", |
|
$chome)); |
# Figure out what the last valid entry-id is |
# Figure out what the last valid entry-id is |
my ($lastid,$thentime,$idnum); |
my ($lastid,$thentime,$idnum); |
foreach (@entries) { |
foreach (@entries) { |
Line 73 sub handler {
|
Line 93 sub handler {
|
} |
} |
} |
} |
# ----------------------------------------------------------- Can see identity? |
# ----------------------------------------------------------- Can see identity? |
my $crs='/'.$env{'request.course.id'}; |
my $seeid = &get_seeid_status(); |
if ($env{'request.course.sec'}) { |
|
$crs.='_'.$env{'request.course.sec'}; |
|
} |
|
$crs=~s/\_/\//g; |
|
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
|
# -------------------------------------------------------- see which ones apply |
# -------------------------------------------------------- see which ones apply |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']); |
|
my $include=0; |
my $include=0; |
my $newstuff=''; |
my $newstuff=''; |
my $bottomid=''; |
my $bottomid=''; |
Line 153 sub handler {
|
Line 167 sub handler {
|
} |
} |
} |
} |
my $participant_output=join('<br />',sort @participants); |
my $participant_output=join('<br />',sort @participants); |
|
my $refresh_cmd = "/adm/chatfetch?lastid=$lastid"; |
|
if (defined($group)) { |
|
$refresh_cmd .= "&group=$group"; |
|
} |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Chat',undef, |
&Apache::loncommon::start_page('Chat',undef, |
{'redirect' => [5,"/adm/chatfetch?lastid=$lastid"], |
{'redirect' => [5,$refresh_cmd], |
'only_body' => 1,}); |
'only_body' => 1,}); |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
Line 164 $start_page
|
Line 182 $start_page
|
parent.chatout.document.writeln('$newstuff'); |
parent.chatout.document.writeln('$newstuff'); |
parent.chatout.scroll(0,10000000); |
parent.chatout.scroll(0,10000000); |
</script> |
</script> |
|
$grouptitle |
$participant_output |
$participant_output |
$end_page |
$end_page |
ENDDOCUMENT |
ENDDOCUMENT |
return OK; |
return OK; |
} |
} |
|
|
|
sub get_seeid_status { |
|
my $crs='/'.$env{'request.course.id'}; |
|
my $seeid; |
|
if (exists($env{'form.group'})) { |
|
$seeid = &Apache::lonnet::allowed('rci',$crs.'/'.$env{'form.group'}); |
|
} else { |
|
if ($env{'request.course.sec'}) { |
|
$crs.='_'.$env{'request.course.sec'}; |
|
} |
|
$crs=~s/\_/\//g; |
|
$seeid=&Apache::lonnet::allowed('rin',$crs); |
|
} |
|
return $seeid; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |