version 1.4, 2012/03/31 14:15:24
|
version 1.7, 2012/04/05 21:36:28
|
Line 506 sub handler {
|
Line 506 sub handler {
|
} |
} |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/setblock', |
({href=>'/adm/setblock', |
text=>'Blocking communication/resource access'}); |
text=>'Blocking communication/content access'}); |
|
|
my $js = &blockingmenu_javascript($blockcount); |
my $js = &blockingmenu_javascript($blockcount); |
|
|
Line 565 sub handler {
|
Line 565 sub handler {
|
'<li>'.&mt("displaying LON-CAPA messages sent by other $usertype in the $lctype").'</li>'."\n". |
'<li>'.&mt("displaying LON-CAPA messages sent by other $usertype in the $lctype").'</li>'."\n". |
'<li>'.&mt("displaying or posting to LON-CAPA discussion boards or live chat in the $lctype").'</li>'."\n". |
'<li>'.&mt("displaying or posting to LON-CAPA discussion boards or live chat in the $lctype").'</li>'."\n". |
'<li>'.&mt('accessing content in LON-CAPA portfolios or blogs').'</li>'."\n". |
'<li>'.&mt('accessing content in LON-CAPA portfolios or blogs').'</li>'."\n". |
|
'<li>'.&mt("generating printouts of $lctype content").'</li>'. |
'<li>'.&mt("accessing $lctype content in specified folders or resources").'</li>'. |
'<li>'.&mt("accessing $lctype content in specified folders or resources").'</li>'. |
'</ul>'. |
'</ul>'. |
'<p class="LC_warning">'.$lt{'blca'}.'<br />'.$lt{'pobl'}.'</p>' |
'<p class="LC_warning">'.$lt{'blca'}.'<br />'.$lt{'pobl'}.'</p>' |
Line 754 sub blockstore {
|
Line 755 sub blockstore {
|
if ($blockdocs) { |
if ($blockdocs) { |
&check_release_required('docs'); |
&check_release_required('docs'); |
} |
} |
|
if (ref($blocktypes) eq 'HASH') { |
|
if ($blocktypes->{'printout'} eq 'on') { |
|
&check_release_required('printout'); |
|
} |
|
} |
if (exists($removals{$key})) { |
if (exists($removals{$key})) { |
$modtotal ++; |
$modtotal ++; |
} else { |
} else { |
Line 1175 sub convlim {
|
Line 1181 sub convlim {
|
my @toshow; |
my @toshow; |
foreach my $cat (@order) { |
foreach my $cat (@order) { |
if ($cat eq 'seconds') { |
if ($cat eq 'seconds') { |
last if ($timelimit <= 0); |
if ($timelimit > 0) { |
|
push(@toshow,&mt("[_1] $cat",$timelimit)); |
|
} |
} elsif ($timelimit >= $catlimits{$cat}) { |
} elsif ($timelimit >= $catlimits{$cat}) { |
my $val = int($timelimit/$catlimits{$cat}); |
my $val = int($timelimit/$catlimits{$cat}); |
if ($val > 0) { |
if ($val > 0) { |
Line 1471 sub blocktype_text {
|
Line 1479 sub blocktype_text {
|
'port' => 'Portfolio', |
'port' => 'Portfolio', |
'groups' => 'Groups', |
'groups' => 'Groups', |
'blogs' => 'Blogs', |
'blogs' => 'Blogs', |
'docs' => 'Content', |
'docs' => 'Content', |
|
'printout' => 'Printouts', |
); |
); |
my $typeorder = ['com','chat','boards','port','groups','blogs','docs']; |
my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs']; |
return ($typeorder,\%types); |
return ($typeorder,\%types); |
} |
} |
|
|