version 1.35, 2006/03/23 22:32:11
|
version 1.39, 2006/05/09 14:38:10
|
Line 52 sub handler {
|
Line 52 sub handler {
|
# Is this even in a course? |
# Is this even in a course? |
unless ($env{'request.course.id'}) { |
unless ($env{'request.course.id'}) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
return &Apache::loncommon::simple_error_page($r,'', |
&Apache::loncommon::simple_error_page($r,'','Not in a course'); |
'Not in a course'); |
|
} else { |
} else { |
$r->print('\textbf{Not in a course}\end{document}'); |
$r->print('\textbf{Not in a course}\end{document}'); |
} |
} |
|
return OK; |
} |
} |
|
|
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
Line 70 sub handler {
|
Line 70 sub handler {
|
if ($caller eq 'grppg') { |
if ($caller eq 'grppg') { |
$marker =~ s/\W//g; |
$marker =~ s/\W//g; |
$namespace = 'grppage_'.$marker; |
$namespace = 'grppage_'.$marker; |
my %curr_groups; |
my %curr_groups = &Apache::loncommon::coursegroups($dom,$crs,$marker); |
if (!&Apache::loncommon::coursegroups(\%curr_groups,$dom,$crs,$marker)) { |
if (!%curr_groups) { |
return &Apache::loncommon::simple_error_page($r,'', |
&Apache::loncommon::simple_error_page($r,'','Invalid group name'); |
'Invalid group name'); |
return OK; |
} |
} |
%groupinfo = |
%groupinfo = |
&Apache::loncommon::get_group_settings($curr_groups{$marker}); |
&Apache::loncommon::get_group_settings($curr_groups{$marker}); |
Line 83 sub handler {
|
Line 83 sub handler {
|
} |
} |
|
|
if (!$marker) { |
if (!$marker) { |
return &Apache::loncommon::simple_error_page($r,'','Invalid call'); |
&Apache::loncommon::simple_error_page($r,'','Invalid call'); |
|
return OK; |
} |
} |
|
|
# --------------------------------------------------------- The syllabus fields |
# --------------------------------------------------------- The syllabus fields |
Line 99 sub handler {
|
Line 100 sub handler {
|
# ------------------------------------------------------------ Get query string |
# ------------------------------------------------------------ Get query string |
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['forcestudent','forceedit','register']); |
($ENV{'QUERY_STRING'},['forcestudent','forceedit','register']); |
# ----------------------------------------------------- Force menu registration |
|
my $addentries=''; |
|
if ($env{'form.register'}) { |
|
$addentries=' onLoad="'.&Apache::lonmenu::loadevents(). |
|
'" onUnload="'.&Apache::lonmenu::unloadevents().'"'; |
|
} |
|
# --------------------------------------------------------------- Force Student |
# --------------------------------------------------------------- Force Student |
my $forcestudent=''; |
my $forcestudent=''; |
if ($env{'form.forcestudent'} || $target eq 'tex' ) { $forcestudent='student'; }; |
if ($env{'form.forcestudent'} || $target eq 'tex' ) { $forcestudent='student'; }; |
my $forceedit=''; |
my $forceedit=''; |
if ($env{'form.forceedit'}) { $forceedit='edit'; } |
if ($env{'form.forceedit'}) { $forceedit='edit'; } |
|
|
|
|
my %syllabus=&Apache::lonnet::dump($namespace,$dom,$crs); |
my %syllabus=&Apache::lonnet::dump($namespace,$dom,$crs); |
Line 124 sub handler {
|
Line 119 sub handler {
|
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page($title,undef, |
&Apache::loncommon::start_page($title,undef, |
{'function' => $forcestudent, |
{'function' => $forcestudent, |
'add_entries' => $addentries, |
|
'domain' => $dom, |
'domain' => $dom, |
'force_register' => |
'force_register' => |
$env{'form.register'},}); |
$env{'form.register'},}); |
Line 313 sub display_group_links {
|
Line 307 sub display_group_links {
|
my %menu = (); |
my %menu = (); |
%{$menu{'email'}} = ( |
%{$menu{'email'}} = ( |
text => 'Group e-mail', |
text => 'Group e-mail', |
href => '/adm/email?group='.$marker, |
href => '/adm/email?compose=group&group='.$marker, |
); |
); |
%{$menu{'discussion'}} = ( |
%{$menu{'discussion'}} = ( |
text => 'Discussion Boards', |
text => 'Discussion Boards', |
Line 325 sub display_group_links {
|
Line 319 sub display_group_links {
|
); |
); |
%{$menu{'files'}} = ( |
%{$menu{'files'}} = ( |
text => 'File repository', |
text => 'File repository', |
href => '/adm/portfolio?group='.$marker, |
href => '/adm/coursegrp_portfolio?group='.$marker, |
); |
); |
%{$menu{'roster'}} = ( |
%{$menu{'roster'}} = ( |
text => 'Membership roster', |
text => 'Membership roster', |