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

Diff for /loncom/interface/lonmenu.pm between versions 1.527 and 1.535

version 1.527, 2022/09/13 12:22:14 version 1.535, 2023/07/15 03:34:40
Line 210  use Apache::lonenc(); Line 210  use Apache::lonenc();
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonmsg();  use Apache::lonmsg();
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
 use LONCAPA::ltiutils;  
 use HTML::Entities();  use HTML::Entities();
 use Apache::lonwishlist();  use Apache::lonwishlist();
   
Line 935  sub innerregister { Line 934  sub innerregister {
                 if ($env{'form.title'}) {                  if ($env{'form.title'}) {
                     $title = $env{'form.title'};                      $title = $env{'form.title'};
                 }                  }
                 my $trail;                  my ($trail,$cnum,$cdom);
                   if ($env{'form.folderpath'}) {
                       $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                       $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                       &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);
                   }
                 if ($env{'form.folderpath'}) {                  if ($env{'form.folderpath'}) {
                     &prepare_functions($resurl,$forcereg,$group,undef,undef,1,$hostname);                      &prepare_functions($resurl,$forcereg,$group,undef,undef,1,$hostname);
                       $title = &HTML::Entities::encode($title,'\'"<>&');
                     ($trail) =                      ($trail) =
                         &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);                          &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);
                 } else {                  } else {
                     &Apache::lonhtmlcommon::add_breadcrumb(                      &Apache::lonhtmlcommon::add_breadcrumb(
                     {text  => "Supplemental $crstype Content",                      {text  => "Supplemental $crstype Content",
                      href  => "javascript:gopost('/adm/supplemental','')"});                       href  => "javascript:gopost('/adm/supplemental','')"});
                     $title = &mt('View Resource');                      $title = &HTML::Entities::encode(&mt('View Resource'),'\'"<>&');
                     ($trail) =                       ($trail) = 
                         &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);                          &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);
                 }                  }
Line 956  sub innerregister { Line 961  sub innerregister {
                 &Apache::lonhtmlcommon::clear_breadcrumbs();                  &Apache::lonhtmlcommon::clear_breadcrumbs();
                 &prepare_functions('/public'.$courseurl."/syllabus",                  &prepare_functions('/public'.$courseurl."/syllabus",
                                    $forcereg,$group,undef,undef,1,$hostname);                                     $forcereg,$group,undef,undef,1,$hostname);
                 $title = &mt('Syllabus File');                  $title = &HTML::Entities::encode(&mt('Syllabus File'),'\'"<>&');
                 my ($trail) =                  my ($trail) =
                     &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);                      &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);
                 if (ref($showncrumbsref)) {                  if (ref($showncrumbsref)) {
Line 1056  sub innerregister { Line 1061  sub innerregister {
                     'Folder/Page Content');                      'Folder/Page Content');
         }          }
 # End modifiable folder/page container check  # End modifiable folder/page container check
   
   #
   # Determine whether to show View As button for shortcut to display problem, answer, and submissions
   #
   
           if (($env{'request.symb'} ne '') &&
               ($env{'request.filename'}=~/$LONCAPA::assess_re/) &&
               (($perms{'mgr'}) || ($perms{'vgr'}))) {
               my ($viewas,$text,$change,$visibility,$vuname,$vudom,$vid,$leftvis,$defdom,$righticon);
               my %lt = &Apache::lonlocal::texthash(
                                                    view => 'View',
                                                    upda => 'Update',
               );
               if ($env{'request.user_in_effect'} =~ /^($match_username):($match_domain)$/) {
                   ($vuname,$vudom) = ($1,$2);
                   unless (&Apache::lonnet::is_advanced_user($vudom,$vuname)) {
                       $vid = (&Apache::lonnet::idrget($vudom,$vuname))[1];
                   }
                   $viewas = $env{'request.user_in_effect'};
                   $text = $lt{'upda'};
                   $change = 'off';
                   $visibility = 'inline';
                   $leftvis = 'none';
                   $defdom = $vudom;
                   $righticon = '&#10006;';
               } else {
                   $text = $lt{'view'};
                   $change = 'on';
                   $visibility = 'none';
                   $leftvis = 'inline';
                   $defdom = $cdom;
               }
               my $sellink = &Apache::loncommon::selectstudent_link('userview','vuname','vudom');
               my $selscript=&Apache::loncommon::studentbrowser_javascript();
               my $shownsymb = &HTML::Entities::encode(&Apache::lonenc::check_encrypt($env{'request.symb'}),'<>&"');
               my $input = &mt('User: [_1] or ID: [_2] at: [_3]',
                               '<input name="vuname" type="text" size="8" value="'.$vuname.'" />',
                               '<input name="vid" type="text" size="8" value="'.$vid.'" />',
                               &Apache::loncommon::select_dom_form($defdom,'vudom')).
                               '<input name="LC_viewas" type="hidden" value="'.$viewas.'" />',
                               '<input name="symb" type="hidden" value="'.$shownsymb.'" />';
               my $chooser = <<END;
   $selscript
   <a href="javascript:toggleViewAsUser('$change');" class="LC_menubuttons_link">
   <span id="usexpand" class="LC_menubuttons_inline_text" style="display:$leftvis">&#9658;&nbsp;</span>
   </a>
   <fieldset id="LC_selectuser" style="display:$visibility">
   <form name="userview" action="" method="post" onsubmit="event.preventDefault(); return validCourseUser(this,'$change');">
   <span class="LC_menubuttons_inline_text LC_nobreak">
   $input
   $sellink
   </span>
   &nbsp;<input type="submit" value="$text" />
   </form>
   </fieldset>
   <a href="javascript:toggleViewAsUser('$change');" class="LC_menubuttons_link">
   <span id="uscollapse" class="LC_menubuttons_inline_text">$righticon</span>
   </a>
   END
               &switch('','',7,5,'viewuser.png','View As','user[_1]',
                       'toggleViewAsUser('."'$change'".')',
                       'View As','','',$chooser);
           }
   # End view as user check
   
     }      }
 # End course context  # End course context
   
 # Prepare the rest of the buttons  # Prepare the rest of the buttons
         my ($menuitems,$got_prt,$got_wishlist);          my ($menuitems,$got_prt,$got_wishlist,$crsauthor);
         if ($const_space) {          if ($const_space) {
 #  #
 # We are in construction space  # We are in construction space
Line 1069  sub innerregister { Line 1139  sub innerregister {
             my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};              my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
     my ($udom,$uname,$thisdisfn) =      my ($udom,$uname,$thisdisfn) =
  ($env{'request.filename'}=~m{^\Q$londocroot/priv/\E([^/]+)/([^/]+)/(.*)$});   ($env{'request.filename'}=~m{^\Q$londocroot/priv/\E([^/]+)/([^/]+)/(.*)$});
               my $crsauthor;
               if (($env{'request.course.id'}) &&
                   ($env{'course.'.$env{'request.course.id'}.'.num'} eq $uname) &&
                   ($env{'course.'.$env{'request.course.id'}.'.domain'} eq $udom)) {
                   $crsauthor = 1;
               }
             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 '') {                  if (($thisdisfn eq '') && ($crsauthor)) {
                     unless (($env{'request.course.id'}) &&                       $is_const_dir = 2;
                             ($env{'course.'.$env{'request.course.id'}.'.num'} eq $uname) &&  
                             ($env{'course.'.$env{'request.course.id'}.'.domain'} eq $udom)) {   
                         $is_const_dir = 2;  
                     }  
                 }                  }
                   my $esc_currdir = &Apache::loncommon::escape_single($currdir);
                   $menuitems=(<<ENDMENUITEMS);
   s&6&3&pub.png&Publish&dir[_2]&gocstr('/adm/publish','$esc_currdir')&Publish this Directory
   s&7&4&docs-22x22.png&Edit Metadata&defaults[_1]&gopost('${esc_currdir}default.meta','')&Edit metadata for this Directory
   s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','$esc_currdir')&Print contents of directory
   s&7&1&del.png&Delete&dir[_3]&gocstr('/adm/cfile?action=delete','$esc_currdir')&Delete this Directory
   ENDMENUITEMS
             } else {              } else {
                 $currdir =~ s|[^/]+$||;                  $currdir =~ s|[^/]+$||;
  my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);   my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
Line 1093  sub innerregister { Line 1172  sub innerregister {
 #  #
 # Probably should be in mydesk.tab  # Probably should be in mydesk.tab
 #  #
                 $menuitems=(<<ENDMENUITEMS);                  if (($crsauthor) && ($pubfile eq "/res/$udom/$uname/default.rights")) {
                       $menuitems=(<<ENDMENUITEMS);
   s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory
   s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource
   ENDMENUITEMS
                   } else {
                       $menuitems=(<<ENDMENUITEMS);
 s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory  s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory
 s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version  s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version
 s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource  s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource
 s&7&3&copy.png&Copy&resource[_4]&gocstr('/adm/cfile?action=copy','/priv/$udom/$uname/$cleandisfn')&Copy this resource  s&7&3&copy.png&Copy&resource[_4]&gocstr('/adm/cfile?action=copy','/priv/$udom/$uname/$cleandisfn')&Copy this resource
 ENDMENUITEMS  ENDMENUITEMS
                   }
 #  #
 # Rename and Delete only available if obsolete or unpublished  # Rename and Delete only available if obsolete or unpublished
 #  #
Line 1184  ENDMENUITEMS Line 1270  ENDMENUITEMS
             $got_prt = 1;              $got_prt = 1;
             if (($env{'user.adv'}) && ($env{'request.uri'} =~ /^\/res/)              if (($env{'user.adv'}) && ($env{'request.uri'} =~ /^\/res/)
                 && (!$env{'request.enc'})) {                  && (!$env{'request.enc'})) {
                 my ($cnum,$cdom) = &Apache::loncommon::crsauthor_url($env{'request.uri'});                  my $privurl = $env{'request.uri'};
                 unless ($cnum) {                  $privurl =~ s{^/res/}{/priv/};
                   my ($cnum,$cdom) = &Apache::loncommon::crsauthor_url($privurl);
                   if ($cnum) {
                       $crsauthor = 1;
                   } else {
                     # 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);
Line 1240  s&8&3&prt.png&Print&printout[_1]&gopost( Line 1330  s&8&3&prt.png&Print&printout[_1]&gopost(
 ENDMENUITEMS  ENDMENUITEMS
                 $got_prt = 1;                  $got_prt = 1;
             }              }
             unless ($got_wishlist) {              unless (($got_wishlist) || ($crsauthor)) {
                 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);
Line 1635  sub advtools_crumbs { Line 1725  sub advtools_crumbs {
                 'advtools', @funcs[61,73,74,71,72]);                  'advtools', @funcs[61,73,74,71,72]);
         } else {          } else {
             &Apache::lonhtmlcommon::add_breadcrumb_tool(              &Apache::lonhtmlcommon::add_breadcrumb_tool(
                 'advtools', @funcs[61,71,72,73,74,92]);                  'advtools', @funcs[61,71,72,73,74,75,92]);
         }          }
     } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {      } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {
         &Apache::lonhtmlcommon::add_breadcrumb_tool(          &Apache::lonhtmlcommon::add_breadcrumb_tool(
Line 1657  sub clear { Line 1747  sub clear {
 # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".  # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".
   
 sub switch {  sub switch {
     my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak)=@_;      my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak,$form)=@_;
     $act=~s/\$uname/$uname/g;      $act=~s/\$uname/$uname/g;
     $act=~s/\$udom/$udom/g;      $act=~s/\$udom/$udom/g;
     $top=&mt($top);      $top=&mt($top);
Line 1708  sub switch { Line 1798  sub switch {
         } else {          } else {
             $inlineremote[$idx] =              $inlineremote[$idx] =
        '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.         '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
        '<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';         '<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>'.$form;
         }          }
     }      }
     return '';      return '';
Line 2249  END Line 2339  END
     }      }
 }  }
   
   sub view_as_js {
       my ($url,$symb) = @_;
       my %lt = &Apache::lonlocal::texthash(
                   ente => 'Enter a username or a student/employee ID',
                   info => 'Information you entered does not match a valid course user',
       );
       &js_escape(\%lt);
       return <<"END";
   
   function toggleViewAsUser(change) {
       var seluserid = document.getElementById('LC_selectuser');
       var currstyle = seluserid.style.display;
       if (change == 'off') {
           document.userview.elements['LC_viewas'].value = '';
           document.userview.elements['vuname'].value = '';
           document.userview.elements['vid'].value = '';
           document.userview.submit();
           return;
       }
       if (currstyle == 'inline') {
           seluserid.style.display = 'none';
           document.getElementById('usexpand').innerHTML='&#9658;&nbsp;';
           document.getElementById('uscollapse').innerHTML='';
       } else {
           seluserid.style.display = 'inline';
           document.getElementById('usexpand').innerHTML='';
           document.getElementById('uscollapse').innerHTML='&#9668;&nbsp;';
       }
       return;
   }
   
   function validCourseUser(form,change) {
       var possuname = form.elements['vuname'].value;
       var possuid = form.elements['vid'].value;
       var possudom = form.elements['vudom'].options[form.elements['vudom'].selectedIndex].value;
       if ((possuname == '') && (possuid == '')) {
           if (change == 'off') {
               form.elements['LC_viewas'].value = '';
               form.submit();
           } else {
               alert("$lt{'ente'}");
           }
           return;
       }
       var http = new XMLHttpRequest();
       var url = "/adm/courseuser";
       var params = "uname="+possuname+"&uid="+possuid+"&udom="+possudom;
       http.open("POST", url, true);
       http.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
       http.onreadystatechange = function() {
           if (http.readyState == 4 && http.status == 200) {
               var data = JSON.parse(http.responseText);
               if (Array.isArray(data.match)) {
                  var len = data.match.length;
                  if (len == 2) {
                      if (data.match[0] != '' && data.match[1] != '') {
                          form.elements['LC_viewas'].value = data.match[0]+':'+data.match[1];
                          form.submit(); 
                      }
                  } else {
                      alert("$lt{'info'}");
                  }
               }
           }
           return;
       }
       http.send(params);
       return false;
   }
   
   END
   }
   
 sub utilityfunctions {  sub utilityfunctions {
     my ($httphost) = @_;      my ($httphost) = @_;
     my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));      my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
Line 2290  sub utilityfunctions { Line 2453  sub utilityfunctions {
   
     my $countdown = &countdown_toggle_js();      my $countdown = &countdown_toggle_js();
   
       my $viewuser;
       if (($env{'request.course.id'}) &&
           ($env{'request.symb'} ne '') &&
           ($env{'request.filename'}=~/$LONCAPA::assess_re/)) {
           my $canview;
           foreach my $priv ('msg','vgr') {
               $canview = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
               if (!$canview && $env{'request.course.sec'} ne '') {
                   $canview =
                       &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
               }
               last if ($canview);
           }
           if ($canview) {
               $viewuser = &view_as_js($esc_url,$esc_symb);
           }
       }
   
     my ($ltitarget,$deeplinktarget);      my ($ltitarget,$deeplinktarget);
     if ($env{'request.lti.login'}) {      if ($env{'request.lti.login'}) {
         $ltitarget = $env{'request.lti.target'};          $ltitarget = $env{'request.lti.target'};
Line 2506  function open_aboutLC() { Line 2687  function open_aboutLC() {
   
 $countdown  $countdown
   
   $viewuser
   
 ENDUTILITY  ENDUTILITY
 }  }
   
Removed from v.1.527  
changed lines
  Added in v.1.535

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