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

Diff for /loncom/interface/lonblockingmenu.pm between versions 1.5 and 1.7

version 1.5, 2012/04/04 21:04:56 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 1180  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) {
Removed from v.1.5  
changed lines
  Added in v.1.7

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