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

Diff for /loncom/interface/lonmenu.pm between versions 1.486 and 1.490

version 1.486, 2018/04/14 17:52:43 version 1.490, 2018/04/27 23:01:05
Line 384  sub getauthor{ Line 384  sub getauthor{
 }  }
   
 sub secondary_menu {  sub secondary_menu {
     my ($httphost) = @_;      my ($httphost,$ltiscope) = @_;
     my $menu;      my $menu;
   
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
Line 405  sub secondary_menu { Line 405  sub secondary_menu {
     my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);      my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);
     my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);      my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);
     my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec);       my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec); 
       my $canplc        = &Apache::lonnet::allowed('plc', $crs_sec);
     my $author        = &getauthor();      my $author        = &getauthor();
   
     my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools);      my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools);
Line 488  sub secondary_menu { Line 489  sub secondary_menu {
                 && !$showsyllabus;                  && !$showsyllabus;
         next if    $$menuitem[4]   eq 'showfeeds'          next if    $$menuitem[4]   eq 'showfeeds'
                 && !$showfeeds;                  && !$showfeeds;
           next if     $$menuitem[4]  eq 'plc'
                   && !$canplc;
         next if    $$menuitem[4]    eq 'author'          next if    $$menuitem[4]    eq 'author'
                 && !$author;                  && !$author;
         next if    $$menuitem[4]    eq 'cca'          next if    $$menuitem[4]    eq 'cca'
                 && !$canmodifycoauthor;                  && !$canmodifycoauthor;
           next if    $$menuitem[4]    eq 'notltimapres'
                   && (($ltiscope eq 'resource') || ($ltiscope eq 'map'));
   
         my $title = $menuitem->[3];          my $title = $menuitem->[3];
         if (defined($secondary_submenu{$title})) {          if (defined($secondary_submenu{$title})) {
Line 529  sub secondary_menu { Line 534  sub secondary_menu {
             }              }
         } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {          } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
             # special treatment for role selector              # special treatment for role selector
             ($roleswitcher_js,$roleswitcher_form,my $switcher) =              unless ($env{'request.lti.login'}) {
                 &roles_selector(                  ($roleswitcher_js,$roleswitcher_form,my $switcher) =
                       &roles_selector(
                         $env{'course.' . $env{'request.course.id'} . '.domain'},                          $env{'course.' . $env{'request.course.id'} . '.domain'},
                         $env{'course.' . $env{'request.course.id'} . '.num'},                          $env{'course.' . $env{'request.course.id'} . '.num'},
                         $httphost,$ltitarget                          $httphost,$ltitarget
                 );                      );
             $menu .= $switcher;                  $menu .= $switcher;
               }
         } else {          } else {
             if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) {              if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) {
                 my $url = $$menuitem[0];                  my $url = $$menuitem[0];
Line 582  sub secondary_menu { Line 589  sub secondary_menu {
     }      }
     $menu =~ s/\[uname\]/$$author{user}/g;      $menu =~ s/\[uname\]/$$author{user}/g;
     $menu =~ s/\[udom\]/$$author{dom}/g;      $menu =~ s/\[udom\]/$$author{dom}/g;
       $menu =~ s/\[javascript\]/javascript:/;
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         $menu =~ s/\[cnum\]/$cnum/g;          $menu =~ s/\[cnum\]/$cnum/g;
         $menu =~ s/\[cdom\]/$cdom/g;          $menu =~ s/\[cdom\]/$cdom/g;
Line 665  sub build_submenu { Line 673  sub build_submenu {
                     next unless (($env{'user.name'} ne '') && ($env{'user.domain'} ne ''));                      next unless (($env{'user.name'} ne '') && ($env{'user.domain'} ne ''));
                     $href =~ s/\[domain\]/$env{'user.domain'}/g;                      $href =~ s/\[domain\]/$env{'user.domain'}/g;
                     $href =~ s/\[user\]/$env{'user.name'}/g;                      $href =~ s/\[user\]/$env{'user.name'}/g;
                   } elsif (($href =~ m{^/adm/preferences\?}) && ($href =~ /\[returnurl\]/)) {
                       my $returnurl = $ENV{'REQUEST_URI'};
                       if ($ENV{'REQUEST_URI'} =~ m{/adm/preferences\?action=(?:changedomcoord|authorsettings)\&returnurl=([^\&]+)$}) {
                           $returnurl = $1;
                       }
                       if (($returnurl =~ m{^/adm/createuser($|\?action=)}) ||
                           ($returnurl =~ m{^/priv/$match_domain/$match_username}) ||
                           ($returnurl =~ m{^/res(/?$|/$match_domain/$match_username)})) {
                           $returnurl =~ s{\?.*$}{};
                           $returnurl = '&amp;returnurl='.&HTML::Entities::encode($returnurl,'"<>&\'');
                       } else {
                           undef($returnurl);
                       }
                       $href =~ s/\[returnurl\]/$returnurl/;
                 }                  }
                 unless (($href eq '') || ($href =~ /^\#/)) {                  unless (($href eq '') || ($href =~ /^\#/)) {
                     if ($target eq '_top') {                      if ($target eq '_top') {
Line 682  sub build_submenu { Line 704  sub build_submenu {
 }  }
   
 sub innerregister {  sub innerregister {
     my ($forcereg,$bread_crumbs,$group,$pagebuttonshide,$hostname) = @_;      my ($forcereg,$bread_crumbs,$group,$pagebuttonshide,$hostname,$ltiscope,$ltiuri) = @_;
     my $const_space = ($env{'request.state'} eq 'construct');      my $const_space = ($env{'request.state'} eq 'construct');
     my $is_const_dir = 0;      my $is_const_dir = 0;
   
Line 692  sub innerregister { Line 714  sub innerregister {
   
     undef(@inlineremote);      undef(@inlineremote);
   
     my ($mapurl,$resurl,$crstype,$navmap,$ltiscope,$ltiuri);      my ($mapurl,$resurl,$crstype,$navmap);
   
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
 #  #
 #course_type:  Course, Community, or Placement  #course_type:  Course, Community, or Placement
 #  #
         $crstype = &Apache::loncommon::course_type();          $crstype = &Apache::loncommon::course_type();
         if (($env{'request.lti.login'}) && ($env{'request.lti.uri'})) {  
             my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
             my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
             ($ltiscope,$ltiuri) = &LONCAPA::ltiutils::lti_provider_scope($env{'request.lti.uri'},$cdom,$cnum);  
         }  
         if ($env{'request.symb'}) {          if ($env{'request.symb'}) {
             my $ignorenull;              my $ignorenull;
             unless ($env{'request.noversionuri'} eq '/adm/navmaps') {              unless ($env{'request.noversionuri'} eq '/adm/navmaps') {
Line 2053  sub utilityfunctions { Line 2070  sub utilityfunctions {
   
     my $countdown = &countdown_toggle_js();      my $countdown = &countdown_toggle_js();
   
       my $ltitarget;
       if ($env{'request.lti.login'}) {
           $ltitarget = $env{'request.lti.target'};
       }
   
     my $hostvar = '      my $hostvar = '
 function setLCHost() {  function setLCHost() {
     var lcHostname="";      var lcHostname="";
Line 2149  function golist(url) { Line 2171  function golist(url) {
        currentURL = null;         currentURL = null;
        currentSymb= null;         currentSymb= null;
        var lcHostname = setLCHost();         var lcHostname = setLCHost();
        top.location.href=lcHostname+url;         var ltitarget = '$ltitarget';
          if (ltitarget == 'iframe') {
              document.location.href=lcHostname+url;
          } else {
              top.location.href=lcHostname+url;
          }
    }     }
 }  }
   
Line 2243  ENDSERVERFORM Line 2270  ENDSERVERFORM
 }  }
   
 sub constspaceform {  sub constspaceform {
       my ($target,$printtarget);
       unless (($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) {
           $target = ' target="_top"';
           $printtarget = ' target="_parent"';
       }
     return(<<ENDCONSTSPACEFORM);      return(<<ENDCONSTSPACEFORM);
 <form name="constspace" action="/adm/logout" method="post" target="_top">  <form name="constspace" action="/adm/logout" method="post"$target>
 <input type="hidden" name="filename" value="" />  <input type="hidden" name="filename" value="" />
 </form>  </form>
 <form name="cstrdelete" action="/adm/cfile" method="post" target="_top">  <form name="cstrdelete" action="/adm/cfile" method="post"$target>
 <input type="hidden" name="action" value="delete" />   <input type="hidden" name="action" value="delete" /> 
 <input type="hidden" name="filename" value="" />  <input type="hidden" name="filename" value="" />
 </form>  </form>
 <form name="cstrprint" action="/adm/printout" target="_parent" method="post">  <form name="cstrprint" action="/adm/printout" method="post"$printtarget>
 <input type="hidden" name="postdata" value="" />  <input type="hidden" name="postdata" value="" />
 <input type="hidden" name="curseed" value="" />  <input type="hidden" name="curseed" value="" />
 <input type="hidden" name="problemtype" value="" />  <input type="hidden" name="problemtype" value="" />
Removed from v.1.486  
changed lines
  Added in v.1.490

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