version 1.83, 2008/12/11 10:48:05
|
version 1.86, 2008/12/16 09:22:14
|
Line 167 sub handler {
|
Line 167 sub handler {
|
|
|
if ($is_course) { |
if ($is_course) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
my @brcrum = [{href=>"/adm/navmaps",text=>"Navigate Course Contents"}, |
my $brcrum = [{href=>"/adm/navmaps",text=>"Navigate Course Contents"}, |
{href=>"/adm/aboutme",text=>"Course Information"}]; |
{href=>"/adm/aboutme",text=>"Course Information"}]; |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page( |
&Apache::loncommon::start_page( |
"Course Information", |
"Course Information", |
Line 176 sub handler {
|
Line 176 sub handler {
|
{'function' => $env{'forcestudent'}, |
{'function' => $env{'forcestudent'}, |
'domain' => $cdom, |
'domain' => $cdom, |
'force_register' => $env{'forceregister'}, |
'force_register' => $env{'forceregister'}, |
bread_crumbs => @brcrum}); |
'bread_crumbs' => $brcrum}); |
$r->print($start_page); |
$r->print($start_page); |
$r->print('<h2>'.&mt('Group files').'</h2>'); |
$r->print('<h2>'.&mt('Group files').'</h2>'); |
&print_portfiles_link($r,$is_course); |
&print_portfiles_link($r,$is_course); |
Line 302 my $image;
|
Line 302 my $image;
|
'); |
'); |
|
|
} |
} |
|
|
|
if($allowed) { |
|
$r->print('<form method="post">'); |
|
} |
|
|
&Apache::lontemplate::start_columnSection($r); |
&Apache::lontemplate::start_columnSection($r); |
&Apache::lontemplate::print_content_template($r,$allowed,$target,\%syllabusfields,\%syllabus); |
&Apache::lontemplate::print_content_template($r,$allowed,$target,\%syllabusfields,\%syllabus); |
if($target ne 'tex') |
if($target ne 'tex') |
Line 780 sub aboutme_access {
|
Line 785 sub aboutme_access {
|
$cdom = $coursehash{'domain'}; |
$cdom = $coursehash{'domain'}; |
$cnum = $coursehash{'cnum'}; |
$cnum = $coursehash{'cnum'}; |
} |
} |
if ((&allowed('srm',$privcheck)) || (&allowed('dff',$privcheck))) { |
if ((&Apache::lonnet::allowed('srm',$privcheck)) || |
|
(&Apache::lonnet::allowed('dff',$privcheck))) { |
if (&in_course($uname,$udom,$cnum,$cdom)) { |
if (&in_course($uname,$udom,$cnum,$cdom)) { |
return 1; |
return 1; |
} |
} |