[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 and 1.239.4.3

version 1.239, 2008/07/05 23:21:23 version 1.239.4.3, 2008/12/30 18:39:03
Line 251  ENDCRELOAD Line 251  ENDCRELOAD
         }          }
         my $form=&serverform();          my $form=&serverform();
  my $utility=&utilityfunctions();   my $utility=&utilityfunctions();
  my $remote;  
  if ($env{'user.adv'}) {  
     $remote = '<td><a href="/adm/remote?action=launch&amp;url='.$escurl.'" target="_top">'.$lt{'launch'}.'</a></td>'  
  }  
   
         my $helplink=&Apache::loncommon::top_nav_help('Help');          my $helplink=&Apache::loncommon::top_nav_help('Help');
  return (<<ENDINLINEMENU);   return (<<ENDINLINEMENU);
Line 272  $reloadlink Line 268  $reloadlink
 $navmaps  $navmaps
 $docs  $docs
 $groups  $groups
 $remote  
 $roles  $roles
 <td class="LC_top_nav_help">$helplink</td>  <td class="LC_top_nav_help">$helplink</td>
 <td class="LC_top_nav_exit"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>  <td class="LC_top_nav_exit"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>
Line 519  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 1126  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  
changed lines
  Added in v.1.239.4.3

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