version 1.12, 2006/03/29 19:56:28
|
version 1.14, 2006/06/28 23:56:09
|
Line 44 sub handler {
|
Line 44 sub handler {
|
if (defined($env{'form.group'})) { |
if (defined($env{'form.group'})) { |
$group = $env{'form.group'}; |
$group = $env{'form.group'}; |
$group_elem = '<input type="hidden" name="group" value="'.$group.'" />'; |
$group_elem = '<input type="hidden" name="group" value="'.$group.'" />'; |
if (! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'. |
if ((! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'. |
$group) ) { |
$group)) |
|
&& (! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}))) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
} else { |
} else { |
Line 61 sub handler {
|
Line 62 sub handler {
|
} |
} |
# --------------------------------------------------- Print login screen header |
# --------------------------------------------------- Print login screen header |
my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); |
my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); |
my $loaditems = 'onLoad="this.document.chatentry.newchat.focus();"'; |
my %loaditems = (onload => 'this.document.chatentry.newchat.focus();'); |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Chat',undef, |
&Apache::loncommon::start_page('Chat',undef, |
{'only_body' => 1, |
{'only_body' => 1, |
'add_entries' => $loaditems,}); |
'add_entries' => \%loaditems,}); |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
$start_page |
$start_page |