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

Diff for /loncom/interface/lonmenu.pm between versions 1.279 and 1.282

version 1.279, 2009/08/12 18:38:04 version 1.282, 2009/09/27 11:05:06
Line 137  use Apache::loncommon(); Line 137  use Apache::loncommon();
 use Apache::lonenc();  use Apache::lonenc();
 use Apache::lonlocal;  use Apache::lonlocal;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   use HTML::Entities();
   
 use vars qw(@desklines %category_names %category_members %category_positions $readdesk);  use vars qw(@desklines %category_names %category_members %category_positions $readdesk);
   
Line 149  my @inlineremote; Line 150  my @inlineremote;
   
 sub initlittle {  sub initlittle {
     return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',      return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',
        'nav' => 'Navigate Contents',         'nav' => 'Course Contents',
        'main' => 'Main Menu',         'main' => 'Main Menu',
                                        'roles' => (&Apache::loncommon::show_course()?                                         'roles' => (&Apache::loncommon::show_course()?
                                                     'Courses':'Roles'),                                                      'Courses':'Roles'),
Line 1308  sub rawconfig { Line 1309  sub rawconfig {
   
 sub check_for_rcrs {  sub check_for_rcrs {
     my $showreqcrs = 0;      my $showreqcrs = 0;
     foreach my $type ('official','unofficial','community') {      my @reqtypes = ('official','unofficial','community');
       foreach my $type (@reqtypes) {
         if (&Apache::lonnet::usertools_access($env{'user.name'},          if (&Apache::lonnet::usertools_access($env{'user.name'},
                                               $env{'user.domain'},                                                $env{'user.domain'},
                                               $type,undef,'requestcourses')) {                                                $type,undef,'requestcourses')) {
Line 1316  sub check_for_rcrs { Line 1318  sub check_for_rcrs {
             last;              last;
         }          }
     }      }
       if (!$showreqcrs) {
           foreach my $type (@reqtypes) {
               if ($env{'environment.reqcrsotherdom.'.$type} ne '') {
                   $showreqcrs = 1;
                   last;
               }
           }
       }
     return $showreqcrs;      return $showreqcrs;
 }  }
   
Line 1679  sub roles_selector { Line 1689  sub roles_selector {
         }          }
         $role_selector .= '</select>'."\n".          $role_selector .= '</select>'."\n".
                '<input type="hidden" name="destinationurl" value="'.                 '<input type="hidden" name="destinationurl" value="'.
                $ENV{'REQUEST_URI'}.'" />'."\n".                 &HTML::Entities::encode($ENV{'REQUEST_URI'}).'" />'."\n".
                '<input type="hidden" name="gotorole" value="1" />'."\n".                 '<input type="hidden" name="gotorole" value="1" />'."\n".
                '<input type="hidden" name="selectrole" value="" />'."\n".                 '<input type="hidden" name="selectrole" value="" />'."\n".
                '<input type="hidden" name="switch" value="1" />'."\n".                 '<input type="hidden" name="switch" value="1" />'."\n".
Removed from v.1.279  
changed lines
  Added in v.1.282

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