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

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

version 1.13, 2014/06/12 00:33:41 version 1.14.2.1, 2016/01/27 01:21:22
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 913  sub get_block_choices { Line 914  sub get_block_choices {
                     if (ref($symb_ref) eq 'HASH') {                      if (ref($symb_ref) eq 'HASH') {
                         my %resources = map { $symb_ref->{$_} => 1; }                           my %resources = map { $symb_ref->{$_} => 1; } 
                                             (split(/,/,$env{'form.docs_resources_'.$item}));                                              (split(/,/,$env{'form.docs_resources_'.$item}));
                           if (exists($resources{''})) {
                               delete($resources{''});
                           }
                         $blocklist->{$type}->{resources} = \%resources;                          $blocklist->{$type}->{resources} = \%resources;
                         if (keys(%resources) > 0) {                          if (keys(%resources) > 0) {
                             $blockdocs = 1;                              $blockdocs = 1;
Line 924  sub get_block_choices { Line 928  sub get_block_choices {
                     if (ref($map_ref) eq 'HASH') {                      if (ref($map_ref) eq 'HASH') {
                         my %maps = map { $map_ref->{$_} => 1; }                                                       my %maps = map { $map_ref->{$_} => 1; }                             
                                        (split(/,/,$env{'form.docs_maps_'.$item}));                                         (split(/,/,$env{'form.docs_maps_'.$item}));
                           if (exists($maps{''})) {
                               delete($maps{''});
                           }
                         $blocklist->{$type}->{maps} = \%maps;                          $blocklist->{$type}->{maps} = \%maps;
                         if (keys(%maps) > 0) {                          if (keys(%maps) > 0) {
                             $blockdocs = 1;                              $blockdocs = 1;
Line 1495  sub blocktype_text { Line 1502  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'];      my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs','passwd'];
     return ($typeorder,\%types);      return ($typeorder,\%types);
 }  }
   
Removed from v.1.13  
changed lines
  Added in v.1.14.2.1

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