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

Diff for /loncom/interface/lonmenu.pm between versions 1.239.4.1 and 1.239.4.3

version 1.239.4.1, 2008/12/13 15:51:51 version 1.239.4.3, 2008/12/30 18:39:03
Line 514  c&8&1 Line 514  c&8&1
 c&8&2  c&8&2
 s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document  s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
 s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1  s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1
 s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&&1  
 ENDMENUITEMS  ENDMENUITEMS
               my $currentURL = &Apache::loncommon::get_symb();
               my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);
               my $annotation = &Apache::loncommon::get_annotation($symb_old,$symb_old_enc);
               $menuitems.="s&9&3&";
               if (length($annotation) > 0){
                   $menuitems.="anot2.gif";
               } else {
                   $menuitems.="anot.gif";
               }
               $menuitems.="&anno-[_1]&tations[_1]&annotate()&";
               $menuitems.="Make notes and annotations about this resource&&1\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'}) {
Line 1121  sub rawconfig { Line 1131  sub rawconfig {
                     }                      }
                 }                  }
             }              }
           } elsif ($pro eq 'tools') {
               my @tools = ('aboutme','blog','portfolio');
               if (grep(/^\Q$prt\E$/,@tools)) {
                   if (!&Apache::lonnet::usertools_access($env{'user.name'},
                                                          $env{'user.domain'},$prt)) {
                       $output.=&clear($row,$col);
                       next;
                   }
               }
               $prt='any';
               $output.=&secondlevel(
             $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
         }          }
     }      }
     unless (($env{'browser.interface'} eq 'textual') ||      unless (($env{'browser.interface'} eq 'textual') ||
Removed from v.1.239.4.1  
changed lines
  Added in v.1.239.4.3

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