[BACK]Return to lonblockingmenu.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonblockingmenu.pm between versions 1.14.2.1 and 1.15

version 1.14.2.1, 2016/01/27 01:21:22 version 1.15, 2015/09/13 21:48:05
Line 561  sub handler { Line 561  sub handler {
             '<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("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>'.
             '<li>'.&mt("changing user's own password").'</li>'.  
             '</ul>'.              '</ul>'.
             '<p class="LC_warning">'.$lt{'blca'}.'<br />'.$lt{'pobl'}.'</p>'              '<p class="LC_warning">'.$lt{'blca'}.'<br />'.$lt{'pobl'}.'</p>'
         );          );
Line 951  sub get_block_choices { Line 950  sub get_block_choices {
   
 sub check_release_required {  sub check_release_required {
     my ($value,$chomemajor,$chomeminor) = @_;       my ($value,$chomemajor,$chomeminor) = @_; 
     my $needsrelease = $Apache::lonnet::needsrelease{'course:commblock:'.$value};      my $needsrelease = $Apache::lonnet::needsrelease{'course:commblock:'.$value.':'};
     if ($needsrelease) {      if ($needsrelease) {
         my ($needsmajor,$needsminor) = split(/\./,$needsrelease);          my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
         if (($chomemajor < $needsmajor) ||           if (($chomemajor < $needsmajor) || 
Line 1502  sub blocktype_text { Line 1501  sub blocktype_text {
         'blogs' => 'Blogs',          'blogs' => 'Blogs',
         'docs' => 'Content',          'docs' => 'Content',
         'printout' => 'Printouts',          'printout' => 'Printouts',
         'passwd' => 'Password',  
     );      );
     my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs','passwd'];      my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs'];
     return ($typeorder,\%types);      return ($typeorder,\%types);
 }  }
   
Removed from v.1.14.2.1  
changed lines
  Added in v.1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>