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

Diff for /loncom/interface/lonmenu.pm between versions 1.369.2.49 and 1.369.2.57

version 1.369.2.49, 2013/12/27 19:10:02 version 1.369.2.57, 2016/08/13 21:14:50
Line 124  dropdown list when mouse hovers over top Line 124  dropdown list when mouse hovers over top
 (no hover psuedo class) via LC_hoverable class for <li> tag for top-  (no hover psuedo class) via LC_hoverable class for <li> tag for top-
 level item, which employs jQuery to handle behavior on mouseover.  level item, which employs jQuery to handle behavior on mouseover.
   
 Inputs: 4 - (a) link and (b) target for anchor href in top level item,  Inputs: 6 - (a) link and (b) target for anchor href in top level item,
             (c) title for text wrapped by anchor tag in top level item.              (c) title for text wrapped by anchor tag in top level item.
             (d) reference to array of arrays of sub-menu items.              (d) reference to array of arrays of sub-menu items.
               (e) boolean to indicate whether to call &mt() to translate
                   name of menu item,
               (f) optional class for <li> element in primary menu, for which
                   sub menu is being generated.
   
   
 =item innerregister()  =item innerregister()
   
Line 525  sub secondary_menu { Line 530  sub secondary_menu {
 }  }
   
 sub create_submenu {  sub create_submenu {
     my ($link,$target,$title,$submenu,$translate) = @_;      my ($link,$target,$title,$submenu,$translate,$addclass) = @_;
     return unless (ref($submenu) eq 'ARRAY');      return unless (ref($submenu) eq 'ARRAY');
     my $disptarget;      my $disptarget;
     if ($target ne '') {      if ($target ne '') {
Line 541  sub create_submenu { Line 546  sub create_submenu {
     } else {      } else {
         $name = &mt($title);          $name = &mt($title);
     }      }
     my $menu = '<li class="LC_hoverable">'.      my $menu = '<li class="LC_hoverable '.$addclass.'">'.
                '<a href="'.$link.'"'.$disptarget.'>'.                 '<a href="'.$link.'"'.$disptarget.'>'.
                '<span class="LC_nobreak">'.$name.                 '<span class="LC_nobreak">'.$name.
                '<span class="LC_fontsize_small" style="font-weight:normal;">'.                 '<span class="LC_fontsize_small" style="font-weight:normal;">'.
Line 562  sub create_submenu { Line 567  sub create_submenu {
             if ($count == $numsub) {              if ($count == $numsub) {
                 $borderbot = 'border-bottom:1px solid black;';                  $borderbot = 'border-bottom:1px solid black;';
             }              }
               unless (($href eq '') || ($href =~ /^\#/)) {
                   $target = ' target="_top"';
               }
             $menu .= '<li style="margin:0;padding:0;'.              $menu .= '<li style="margin:0;padding:0;'.
                      $borderbot.'"><a href="'.$href.'">';                       $borderbot.'"><a href="'.$href.'"'.$target.'>';
             if ($translate) {              if ($translate) {
                 $menu .= &mt($item->[1]);                  $menu .= &mt($item->[1]);
             } else {              } else {
Line 657  sub innerregister { Line 665  sub innerregister {
                                                        && $maptitle ne 'default.sequence'                                                          && $maptitle ne 'default.sequence' 
                                                        && $maptitle ne $coursetitle);                                                         && $maptitle ne $coursetitle);
   
             push @crumbs, {text => $restitle, no_mt => 1} if $restitle;               push @crumbs, {text => $restitle, no_mt => 1} if $restitle;
               my @tools;
               if ($env{'request.filename'} =~ /\.page$/) {
                   my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();
                   if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') {
                       @tools = @{$breadcrumb_tools{'tools'}};
                   }
               }
             &Apache::lonhtmlcommon::clear_breadcrumbs();              &Apache::lonhtmlcommon::clear_breadcrumbs();
             &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);              &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
               if (@tools) {
                   &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',@tools);
               }
         } else {          } else {
             $resurl = $env{'request.noversionuri'};              $resurl = $env{'request.noversionuri'};
             my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});              my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});
Line 810  sub innerregister { Line 828  sub innerregister {
             my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;              my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;
             if ($currdir =~ m-/$-) {              if ($currdir =~ m-/$-) {
                 $is_const_dir = 1;                  $is_const_dir = 1;
                   if ($thisdisfn eq '') {
                       $is_const_dir = 2;
                   }
             } else {              } else {
                 $currdir =~ s|[^/]+$||;                  $currdir =~ s|[^/]+$||;
  my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);   my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
Line 857  ENDMENUITEMS Line 878  ENDMENUITEMS
                 # wishlist is only available for users with access to resource-pool                  # wishlist is only available for users with access to resource-pool
                 # and links can only be set for resources within the resource-pool                  # and links can only be set for resources within the resource-pool
                 $menuitems .= (<<ENDMENUITEMS);                  $menuitems .= (<<ENDMENUITEMS);
 s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink()&Save a link for this resource in my personal Stored Links repository&&1  s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink('',currentURL)&Save a link for this resource in my personal Stored Links repository&&1
 ENDMENUITEMS  ENDMENUITEMS
                 $got_wishlist = 1;                  $got_wishlist = 1;
             }              }
Line 873  if(length($annotation) > 0){ Line 894  if(length($annotation) > 0){
 }  }
 $menuitems.="&$swtext{'anot'}&tations[_1]&annotate()&";  $menuitems.="&$swtext{'anot'}&tations[_1]&annotate()&";
 $menuitems.="Make notes and annotations about this resource&&1\n";  $menuitems.="Make notes and annotations about this resource&&1\n";
   my $is_mobile;
   if ($env{'browser.mobile'}) {
       $is_mobile = 1;
   }
   
             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {
  if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) {   if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) {
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info()&Show Metadata  s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info('$is_mobile')&Show Metadata
 ENDREALRES  ENDREALRES
                 }                  }
                 unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) ||                  unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) ||
Line 904  ENDMENUITEMS Line 929  ENDMENUITEMS
                 if (($env{'user.adv'}) && (!$env{'request.enc'})) {                  if (($env{'user.adv'}) && (!$env{'request.enc'})) {
                     # wishlist is only available for users with access to resource-pool                      # wishlist is only available for users with access to resource-pool
                     $menuitems .= (<<ENDMENUITEMS);                      $menuitems .= (<<ENDMENUITEMS);
 s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1  s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink('',currentURL)&Save a link for this resource in your personal Stored Links repository&&1
 ENDMENUITEMS  ENDMENUITEMS
                     $got_wishlist = 1;                      $got_wishlist = 1;
                 }                  }
Line 948  ENDMENUITEMS Line 973  ENDMENUITEMS
                 &Apache::lonhtmlcommon::add_breadcrumb_tool(                  &Apache::lonhtmlcommon::add_breadcrumb_tool(
                     'navigation', @inlineremote[21,23]);                      'navigation', @inlineremote[21,23]);
   
                 my $countdown = &countdown_timer();                  my $countdown;
                   if ($env{'request.filename'} =~ /\.page$/) {
                       my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();
                       if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') {
                           $countdown = $breadcrumb_tools{'tools'}[0];
                       }
                   } else {
                       $countdown = &countdown_timer();
                   }
                 if (&hidden_button_check() eq 'yes') {                  if (&hidden_button_check() eq 'yes') {
                     if ($countdown) {                      if ($countdown) {
                         &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);                          &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
Line 972  ENDMENUITEMS Line 1005  ENDMENUITEMS
                     &advtools_crumbs(@inlineremote);                      &advtools_crumbs(@inlineremote);
                 }                  }
             }              }
               my ($topic_help,$topic_help_text);
               if ($is_const_dir == 2) {
                   if ((($ENV{'SERVER_PORT'} == 443) ||
                        ($Apache::lonnet::protocol{$Apache::lonnet::perlvar{'lonHostID'}} eq 'https')) &&
                        (&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},'webdav'))) {
                       $topic_help = 'Authoring_WebDAV,Authoring_WebDAV_Mac_10v6,Authoring_WebDAV_Mac_10v10,'.
                                    'Authoring_WebDAV_Windows_v7,Authoring_WebDAV_Linux_Centos';
                       $topic_help_text = 'About WebDAV access';
                   }
               }
             return   &Apache::lonhtmlcommon::scripttag('', 'start')              return   &Apache::lonhtmlcommon::scripttag('', 'start')
                    . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)                     . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'','','','',$topic_help,$topic_help_text)
                    . &Apache::lonhtmlcommon::scripttag('', 'end');                     . &Apache::lonhtmlcommon::scripttag('', 'end');
   
         } else {          } else {
Line 1709  sub rawconfig { Line 1752  sub rawconfig {
     my $pub=($env{'request.state'} eq 'published');      my $pub=($env{'request.state'} eq 'published');
     my $con=($env{'request.state'} eq 'construct');      my $con=($env{'request.state'} eq 'construct');
     my $rol=$env{'request.role'};      my $rol=$env{'request.role'};
     my $requested_domain = $env{'request.role.domain'};      my $requested_domain;
       if ($rol) {
          $requested_domain = $env{'request.role.domain'};
       }
     foreach my $line (@desklines) {      foreach my $line (@desklines) {
         my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);          my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);
         $prt=~s/\$uname/$uname/g;          $prt=~s/\$uname/$uname/g;
Line 1723  sub rawconfig { Line 1769  sub rawconfig {
             next if ($crstype ne 'Community');              next if ($crstype ne 'Community');
             $prt=~s/\$cmty/$crs/g;              $prt=~s/\$cmty/$crs/g;
         }          }
         $prt=~s/\$requested_domain/$requested_domain/g;          if ($prt =~ m/\$requested_domain/) {
               if ((!$requested_domain) && ($pro eq 'pbre') && ($env{'user.adv'})) {
                   $prt=~s/\$requested_domain/$env{'user.domain'}/g;
               } else {
                   $prt=~s/\$requested_domain/$requested_domain/g;
               }
           }
         if ($category_names{$cat}!~/\w/) { $cat='oth'; }          if ($category_names{$cat}!~/\w/) { $cat='oth'; }
         if ($pro eq 'clear') {          if ($pro eq 'clear') {
     $output.=&clear($row,$col);      $output.=&clear($row,$col);
Line 1759  sub rawconfig { Line 1811  sub rawconfig {
                     next;                      next;
                 }                  }
             }              }
     if (&Apache::lonnet::allowed($priv,$prt)) {              if ((($priv eq 'bre') && (&Apache::lonnet::allowed($priv,$prt) eq 'F')) ||
                $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);                  (($priv ne 'bre') && (&Apache::lonnet::allowed($priv,$prt)))) {
                   $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
             }              }
         } elsif ($pro eq 'course')  {          } elsif ($pro eq 'course')  {
             if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {              if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {
Line 2000  sub utilityfunctions { Line 2053  sub utilityfunctions {
   
     my $countdown = &countdown_toggle_js();      my $countdown = &countdown_toggle_js();
   
       my $hostvar = '
   function setLCHost() {
       var lcHostname="";
   ';
       if ($httphost =~ m{^https?\://}) {
           $hostvar .= '    var lcServer="'.$httphost.'";'."\n".
                       '    var hostReg = /^https?:\/\/([^\/]+)$/i;'."\n".
                       '    var match = hostReg.exec(lcServer);'."\n".
                       '    if (match.length) {'."\n".
                       '        if (match[1] == location.hostname) {'."\n".
                       '            lcHostname=lcServer;'."\n".
                       '        }'."\n".
                       '    }'."\n";
       }
   
       $hostvar .= '    return lcHostname;'."\n".
   '}'."\n";
   
 return (<<ENDUTILITY)  return (<<ENDUTILITY)
     var host="$httphost";      $hostvar
     var currentURL=unescape("$esc_url");      var currentURL=unescape("$esc_url");
     var reloadURL=unescape("$esc_url");      var reloadURL=unescape("$esc_url");
     var currentSymb=unescape("$esc_symb");      var currentSymb=unescape("$esc_symb");
Line 2012  function go(url) { Line 2083  function go(url) {
    if (url!='' && url!= null) {     if (url!='' && url!= null) {
        currentURL = null;         currentURL = null;
        currentSymb= null;         currentSymb= null;
        window.location.href=host+url;         var lcHostname = setLCHost();
          window.location.href=lcHostname+url;
    }     }
 }  }
   
Line 2020  $jumptores Line 2092  $jumptores
   
 function gopost(url,postdata) {  function gopost(url,postdata) {
    if (url!='') {     if (url!='') {
       this.document.server.action=host+url;        var lcHostname = setLCHost();
         this.document.server.action=lcHostname+url;
       this.document.server.postdata.value=postdata;        this.document.server.postdata.value=postdata;
       this.document.server.command.value='';        this.document.server.command.value='';
       this.document.server.url.value='';        this.document.server.url.value='';
Line 2031  function gopost(url,postdata) { Line 2104  function gopost(url,postdata) {
   
 function gocmd(url,cmd) {  function gocmd(url,cmd) {
    if (url!='') {     if (url!='') {
       this.document.server.action=host+url;        var lcHostname = setLCHost();
         this.document.server.action=lcHostname+url;
       this.document.server.postdata.value='';        this.document.server.postdata.value='';
       this.document.server.command.value=cmd;        this.document.server.command.value=cmd;
       this.document.server.url.value=currentURL;        this.document.server.url.value=currentURL;
Line 2083  function golist(url) { Line 2157  function golist(url) {
    if (url!='' && url!= null) {     if (url!='' && url!= null) {
        currentURL = null;         currentURL = null;
        currentSymb= null;         currentSymb= null;
        top.location.href=host+url;         var lcHostname = setLCHost();
          top.location.href=lcHostname+url;
    }     }
 }  }
   
   
   
 function catalog_info() {  function catalog_info(isMobile) {
    openMyModal(window.location.pathname+'.meta',500,400,'yes');      if (isMobile == 1) {
           openMyModal(window.location.pathname+'.meta?modal=1',500,400,'yes');
       } else {
           loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
       }
 }  }
   
 function chat_win() {  function chat_win() {
    lonchat=window.open(host+'/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');     var lcHostname = setLCHost();
      lonchat=window.open(lcHostname+'/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');
 }  }
   
 function group_chat(group) {  function group_chat(group) {
    var url = host+'/adm/groupchat?group='+group;     var lcHostname = setLCHost();
      var url = lcHostname+'/adm/groupchat?group='+group;
    var winName = 'LONchat_'+group;     var winName = 'LONchat_'+group;
    grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');     grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
 }  }
Line 2118  function annotate() { Line 2199  function annotate() {
   
 function open_StoredLinks_Import(rat) {  function open_StoredLinks_Import(rat) {
    var newWin;     var newWin;
      var lcHostname = setLCHost();
    if (rat) {     if (rat) {
        newWin = window.open(host+'/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,         newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,
                             'wishlistImport','scrollbars=1,resizable=1,menubar=0');                              'wishlistImport','scrollbars=1,resizable=1,menubar=0');
    }     }
    else {     else {
        newWin = window.open(host+'/adm/wishlist?inhibitmenu=yes&mode=import',         newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import',
                             'wishlistImport','scrollbars=1,resizable=1,menubar=0');                              'wishlistImport','scrollbars=1,resizable=1,menubar=0');
    }     }
    newWin.focus();     newWin.focus();
Removed from v.1.369.2.49  
changed lines
  Added in v.1.369.2.57

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