version 1.35, 2006/03/23 22:32:11
|
version 1.37, 2006/04/07 21:56:02
|
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 72 sub handler {
|
Line 72 sub handler {
|
$namespace = 'grppage_'.$marker; |
$namespace = 'grppage_'.$marker; |
my %curr_groups; |
my %curr_groups; |
if (!&Apache::loncommon::coursegroups(\%curr_groups,$dom,$crs,$marker)) { |
if (!&Apache::loncommon::coursegroups(\%curr_groups,$dom,$crs,$marker)) { |
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 313 sub display_group_links {
|
Line 314 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 326 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', |