version 1.865, 2009/07/25 23:16:04
|
version 1.866, 2009/07/26 20:39:46
|
Line 3766 sub blockcheck {
|
Line 3766 sub blockcheck {
|
($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E})); |
($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E})); |
next if ($no_userblock); |
next if ($no_userblock); |
|
|
# Retrieve blocking times and identity of blocker for course |
# Retrieve blocking times and identity of locker for course |
# of specified user, unless user has 'evb' privilege. |
# of specified user, unless user has 'evb' privilege. |
|
|
my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum); |
my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum); |
Line 3916 sub blocking_status_print {
|
Line 3916 sub blocking_status_print {
|
my $category; |
my $category; |
if ($activity eq 'boards') { |
if ($activity eq 'boards') { |
$category = 'Discussion posts in this course'; |
$category = 'Discussion posts in this course'; |
|
} elsif ($activity eq 'chat') { |
|
$category = 'Chat'; |
|
} elsif ($activity eq 'msgdisplay') { |
|
$category = 'This message'; |
} elsif ($activity eq 'blogs') { |
} elsif ($activity eq 'blogs') { |
$category = 'Blogs'; |
$category = 'Blogs'; |
} elsif ($activity eq 'port') { |
} elsif ($activity eq 'port') { |
if (defined($uname) && defined($udom)) { |
if (defined($uname) && defined($udom)) { |
if ($uname eq $env{'user.name'} && |
if ($uname eq $env{'user.name'} && |
Line 3947 sub blocking_status_print {
|
Line 3951 sub blocking_status_print {
|
} |
} |
} elsif ($activity eq 'groups') { |
} elsif ($activity eq 'groups') { |
$category = 'Groups in this course'; |
$category = 'Groups in this course'; |
|
} else { |
|
$category = 'Communication'; |
} |
} |
my $showstart = &Apache::lonlocal::locallocaltime($startblock); |
my $showstart = &Apache::lonlocal::locallocaltime($startblock); |
my $showend = &Apache::lonlocal::locallocaltime($endblock); |
my $showend = &Apache::lonlocal::locallocaltime($endblock); |