version 1.62, 2007/05/02 01:33:48
|
version 1.63, 2007/05/23 21:44:11
|
Line 252 sub handler {
|
Line 252 sub handler {
|
&print_portfiles_link($r,$is_course); |
&print_portfiles_link($r,$is_course); |
} |
} |
|
|
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'} |
if (&Apache::lonnet::allowed('srm',$env{'request.course.id'})) { |
&& &Apache::lonnet::allowed('srm',$env{'request.course.id'}) |
if ($target ne 'tex') { |
&& &in_course($cdom,$cnum)) { |
$r->print('<a name="coursecomment" />'); |
if ($target ne 'tex') { |
$r->print('<hr /><h3>'. |
$r->print('<a name="coursecomment" />'); |
&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'</h3>'. |
$r->print('<hr /><h3>'. |
&mt('Shared by course faculty and staff'). |
&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'</h3>'. |
&Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message"). |
&mt('Shared by course faculty and staff'). |
'<br />'); |
&Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message"). |
&Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom); |
'<br />'); |
$r->print('<hr />'); |
&Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom); |
if (&Apache::lonnet::allowed('vsa', |
$r->print('<hr />'); |
$env{'request.course.id'}) || |
if (&Apache::lonnet::allowed('vsa', |
&Apache::lonnet::allowed('vsa', |
$env{'request.course.id'}) || |
$env{'request.course.id'}.'/'. |
&Apache::lonnet::allowed('vsa', |
$env{'request.course.sec'})) { |
$env{'request.course.id'}.'/'. |
$r->print(&Apache::loncommon::track_student_link |
$env{'request.course.sec'})) { |
('View recent activity by this student', |
$r->print(&Apache::loncommon::track_student_link |
$cnum,$cdom).(' 'x2)); |
('View recent activity by this student', |
} |
$cnum,$cdom).(' 'x2)); |
$r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom)); |
|
} else { |
|
$r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\'); |
|
&Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom); |
|
} |
} |
} |
$r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom)); |
|
} else { |
|
$r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\'); |
|
&Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom); |
|
} |
} |
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
Line 287 sub handler {
|
Line 287 sub handler {
|
return OK; |
return OK; |
} |
} |
|
|
|
sub in_course { |
|
my ($udom,$uname,$cdom,$cnum,$type) = @_; |
|
$type ||= 'any'; |
|
if (!defined($cdom) || !defined($cnum)) { |
|
my $cid = $env{'request.course.id'}; |
|
$cdom = $env{'course.'.$cid.'.domain'}; |
|
$cnum = $env{'course.'.$cid.'.num'}; |
|
} |
|
my %roles = &Apache::lonnet::dump('roles',$udom,$uname); |
|
my @course_roles = grep(m{^/\Q$cdom\E/\Q$cnum\E[/_]}, keys(%roles)); |
|
return 0 if (!@course_roles); |
|
return 1 if ($type eq 'any'); |
|
my $now = time(); |
|
foreach my $role (@course_roles) { |
|
my (undef,$role_end,$role_start)=split(/\_/,$roles{$role}); |
|
my $status = 'active'; |
|
if ($role_start > 0 && $now < $role_start) { |
|
$status = 'future'; |
|
} |
|
if ($role_end > 0 && $now > $role_end) { |
|
$status = 'previous'; |
|
} |
|
return 1 if ($status eq $type); |
|
} |
|
return 0; |
|
} |
|
|
sub aboutme_info { |
sub aboutme_info { |
my ($r,$is_course) = @_; |
my ($r,$is_course) = @_; |
my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); |
my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); |