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

Diff for /loncom/interface/lonmenu.pm between versions 1.476 and 1.481

version 1.476, 2017/09/04 19:17:02 version 1.481, 2017/10/07 21:07:17
Line 665  sub innerregister { Line 665  sub innerregister {
             my $maptitle = &Apache::lonnet::gettitle($mapurl);              my $maptitle = &Apache::lonnet::gettitle($mapurl);
             my $restitle = &Apache::lonnet::gettitle($symb);              my $restitle = &Apache::lonnet::gettitle($symb);
             my (@crumbs,@mapcrumbs);              my (@crumbs,@mapcrumbs);
             if (($env{'request.noversionuri'} ne '/adm/navmaps') && ($mapurl ne '')) {              if (($env{'request.noversionuri'} ne '/adm/navmaps') && ($mapurl ne '') &&
                   (!(($crstype eq 'Placement') && !$env{'request.role.adv'}))) {
                 $navmap = Apache::lonnavmaps::navmap->new();                  $navmap = Apache::lonnavmaps::navmap->new();
                 if (ref($navmap)) {                  if (ref($navmap)) {
                     @mapcrumbs = $navmap->recursed_crumbs($mapurl);                      @mapcrumbs = $navmap->recursed_crumbs($mapurl,$restitle);
                 }                  }
             }              }
             unless (($forcereg) &&              unless (($forcereg) &&
Line 681  sub innerregister { Line 682  sub innerregister {
             if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {               if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { 
                 if (@mapcrumbs) {                  if (@mapcrumbs) {
                     push(@crumbs,@mapcrumbs);                      push(@crumbs,@mapcrumbs);
                 } else {                  } elsif (!(($crstype eq 'Placement') && (!$env{'request.role.adv'}))) {
                     push(@crumbs, {text  => '...',                      push(@crumbs, {text  => '...',
                                    no_mt => 1});                                     no_mt => 1});
                 }                  }
Line 692  sub innerregister { Line 693  sub innerregister {
                     ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {                      ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
                 push @crumbs, {text => $maptitle, no_mt => 1, href => $mapurl};                  push @crumbs, {text => $maptitle, no_mt => 1, href => $mapurl};
             }              }
               if ($restitle && !@mapcrumbs) {
             push @crumbs, {text => $restitle, no_mt => 1} if $restitle;                   push(@crumbs,{text => $restitle, no_mt => 1});
               }
             my @tools;              my @tools;
             if ($env{'request.filename'} =~ /\.page$/) {              if ($env{'request.filename'} =~ /\.page$/) {
                 my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();                  my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();
Line 1112  sub prepare_functions { Line 1114  sub prepare_functions {
     }      }
   
     my $editbutton = '';      my $editbutton = '';
       my $viewsrcbutton = '';
 #  #
 # Determine whether or not to display 'Edit' icon/button  # Determine whether or not to display 'Edit' or 'View Source' icon/button
 #  #
     if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {      if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
         my $file=&Apache::lonnet::declutter($env{'request.filename'});          my $file=&Apache::lonnet::declutter($env{'request.filename'});
Line 1145  sub prepare_functions { Line 1148  sub prepare_functions {
 #  #
         if (($perms{'mdc'}) &&          if (($perms{'mdc'}) &&
             (($resurl =~ m{^/?public/$cdom/$cnum/syllabus}) ||              (($resurl =~ m{^/?public/$cdom/$cnum/syllabus}) ||
             ($resurl =~ m{^/?uploaded/$cdom/$cnum/portfolio/syllabus/}))) {               ($resurl =~ m{^/?uploaded/$cdom/$cnum/portfolio/syllabus/}) ||
                (($resurl =~ m{^/?uploaded/$cdom/$cnum/default_\d+\.sequence$}) && ($env{'form.navmap'})))) {
             if ($resurl =~ m{^/}) {              if ($resurl =~ m{^/}) {
                 $cfile = $resurl;                  $cfile = $resurl;
             } else {              } else {
Line 1157  sub prepare_functions { Line 1161  sub prepare_functions {
             } else {              } else {
                 $forceedit = 1;                  $forceedit = 1;
             }              }
             $editbutton = &get_editbutton($cfile,$home,$switchserver,              if ($cfile =~ m{^/uploaded/$cdom/$cnum/default_\d+\.sequence$}) {
                                           $forceedit,$forceview,$forcereg,                  my $text = 'Edit Folder';
                                           $hostname);                  &switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',
                           "gocmd('/adm/coursedocs','direct')",
                           'Folder/Page Content');
                   $editbutton = 1;
               } else {
                   $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                                 $forceedit,$forceview,$forcereg,
                                                 $hostname);
               }
         } elsif (($resurl eq '/adm/extresedit') &&          } elsif (($resurl eq '/adm/extresedit') &&
                  (($env{'form.symb'}) || ($env{'form.folderpath'}))) {                   (($env{'form.symb'}) || ($env{'form.folderpath'}))) {
             ($cfile,$home,$switchserver,$forceedit,$forceview) =              ($cfile,$home,$switchserver,$forceedit,$forceview) =
Line 1188  sub prepare_functions { Line 1200  sub prepare_functions {
                                                   $forceedit,$forceview,$forcereg,                                                    $forceedit,$forceview,$forcereg,
                                                   $hostname);                                                    $hostname);
                 }                  }
                   if ((($cfile eq '') || (!$editbutton)) &&
                       ($resurl =~ /$LONCAPA::assess_re/)) {
                       my $showurl = &Apache::lonnet::clutter($resurl);
                       if ((&Apache::lonnet::allowed('cre','/')) &&
                           (&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open')) {
                           $viewsrcbutton = 1;
                       } elsif (&Apache::lonnet::allowed('vxc',$env{'request.course.id'})) {
                           if ($showurl =~ m{^\Q/res/$cdom/\E($match_username)/}) {
                               my $auname = $1;
                               if (($env{'request.course.adhocsrcaccess'} ne '') &&
                                   (grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {
                                   $viewsrcbutton = 1;
                               } elsif ((&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open') &&
                                        (&Apache::lonnet::allowed('bre','/'))) {
                                   $viewsrcbutton = 1;
                               }
                           }
                       }
                       if ($viewsrcbutton) {
                           &switch('','',6,1,'pcstr.png','View Source','resource[_2]','open_source()',
                                   'View source code');
                       }
                   }
             }              }
         }          }
     }      }
Line 1265  sub prepare_functions { Line 1300  sub prepare_functions {
         &advtools_crumbs(@inlineremote);          &advtools_crumbs(@inlineremote);
         return $editbutton;          return $editbutton;
     } elsif ($env{'request.registered'}) {      } elsif ($env{'request.registered'}) {
         return $editbutton;          return $editbutton || $viewsrcbutton;
     } else {      } else {
         if (ref($bread_crumbs) eq 'ARRAY') {          if (ref($bread_crumbs) eq 'ARRAY') {
             if (@inlineremote > 0) {              if (@inlineremote > 0) {
Line 2072  function open_StoredLinks_Import(rat) { Line 2107  function open_StoredLinks_Import(rat) {
    newWin.focus();     newWin.focus();
 }  }
   
   function open_source() {
      var url = escape(window.location.pathname);
      sourcewin=window.open('/adm/source?inhibitmenu=yes&viewonly=1&filename='+url,'LONsource',
                            'height=500,width=600,resizable=yes,location=no,menubar=no,toolbar=no,scrollbars=yes');
   }
   
 (function (\$) {  (function (\$) {
   \$(document).ready(function () {    \$(document).ready(function () {
     \$.single=function(a){return function(b){a[0]=b;return a}}(\$([1]));      \$.single=function(a){return function(b){a[0]=b;return a}}(\$([1]));
Removed from v.1.476  
changed lines
  Added in v.1.481

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