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

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

version 1.278, 2009/08/06 04:09:45 version 1.279, 2009/08/12 18:38:04
Line 617  if(length($annotation) > 0){ Line 617  if(length($annotation) > 0){
 $menuitems.="&anno-[_1]&tations[_1]&annotate()&";  $menuitems.="&anno-[_1]&tations[_1]&annotate()&";
 $menuitems.="Make notes and annotations about this resource&&1\n";  $menuitems.="Make notes and annotations about this resource&&1\n";
   
               unless ($noremote) { 
                   my $showreqcrs = &check_for_rcrs();
                   if ($showreqcrs) {
                       $menuitems.="s&8&1&rcrs.gif&request[_1]&course[_16]".
                                   "&go('/adm/requestcourse')&Course requests\n";
                   }
               }
             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {
  if (!$env{'request.enc'}) {   if (!$env{'request.enc'}) {
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
Line 1272  sub rawconfig { Line 1279  sub rawconfig {
                     next;                      next;
                 }                  }
             } elsif (($prt eq 'reqcrsnsc') || ($prt eq 'reqcrsshc')) {              } elsif (($prt eq 'reqcrsnsc') || ($prt eq 'reqcrsshc')) {
                 next if (&Apache::lonnet::allowed('mky',$requested_domain));  
                 if (($prt eq 'reqcrsnsc') && ($show_course))   {                  if (($prt eq 'reqcrsnsc') && ($show_course))   {
                     next;                      next;
                 }                  }
                 if (($prt eq 'reqcrsshc') && (!$show_course)) {                  if (($prt eq 'reqcrsshc') && (!$show_course)) {
                     next;                      next;
                 }                  }
                 my $showreqcrs = 0;                  my $showreqcrs = &check_for_rcrs();
                 foreach my $type ('official','unofficial','community') {  
                     if (&Apache::lonnet::usertools_access($env{'user.name'},  
                                                     $env{'user.domain'},  
                                                     $type,undef,'requestcourses')) {  
                         $showreqcrs = 1;  
                         last;  
                     }  
                 }  
                 if (!$showreqcrs) {                  if (!$showreqcrs) {
                     $output.=&clear($row,$col);                      $output.=&clear($row,$col);
                     next;                      next;
Line 1308  sub rawconfig { Line 1306  sub rawconfig {
     return $output;      return $output;
 }  }
   
   sub check_for_rcrs {
       my $showreqcrs = 0;
       foreach my $type ('official','unofficial','community') {
           if (&Apache::lonnet::usertools_access($env{'user.name'},
                                                 $env{'user.domain'},
                                                 $type,undef,'requestcourses')) {
               $showreqcrs = 1;
               last;
           }
       }
       return $showreqcrs;
   }
   
 # ======================================================================= Close  # ======================================================================= Close
   
 sub close {  sub close {
Removed from v.1.278  
changed lines
  Added in v.1.279

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