version 1.62, 2007/05/02 01:33:48
|
version 1.64, 2007/07/20 00:15:06
|
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); |
Line 300 sub aboutme_info {
|
Line 327 sub aboutme_info {
|
sub print_portfiles_link { |
sub print_portfiles_link { |
my ($r,$is_course) = @_; |
my ($r,$is_course) = @_; |
my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course); |
my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course); |
my $filecounts = &portfolio_files($r,'showlink',undef,$is_course); |
my $filecounts = &portfolio_files($r,'showlink',undef,$is_course, |
|
$cdom,$cnum,$name); |
my $query_string = &build_query_string(); |
my $query_string = &build_query_string(); |
my $output; |
my $output; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
Line 432 sub display_portfolio_files {
|
Line 460 sub display_portfolio_files {
|
&mt('Update display').'" />'; |
&mt('Update display').'" />'; |
$output .= '</form><br /><br />'; |
$output .= '</form><br /><br />'; |
$r->print($output); |
$r->print($output); |
my $filecounts = &portfolio_files($r,'listfiles',\%lt,$is_course); |
my $filecounts = &portfolio_files($r,'listfiles',\%lt,$is_course, |
|
$cdom,$cnum,$name); |
if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) { |
if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) { |
my $query_string = &build_query_string(); |
my $query_string = &build_query_string(); |
$r->print('<br /><br /><a href="/adm/'.$cdom.'/'.$cnum. |
$r->print('<br /><br /><a href="/adm/'.$cdom.'/'.$cnum. |
Line 448 sub display_portfolio_files {
|
Line 477 sub display_portfolio_files {
|
} |
} |
|
|
sub portfolio_files { |
sub portfolio_files { |
my ($r,$mode,$lt,$is_course) = @_; |
my ($r,$mode,$lt,$is_course,$cdom,$cnum,$name) = @_; |
my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course); |
|
my $filecounts = { |
my $filecounts = { |
withpass => 0, |
withpass => 0, |
withoutpass => 0, |
withoutpass => 0, |