Diff for /rat/lonpage.pm between versions 1.120.2.3 and 1.133

version 1.120.2.3, 2020/06/03 11:24:55 version 1.133, 2020/02/18 22:28:41
Line 42  use Apache::lonlocal; Line 42  use Apache::lonlocal;
 use Apache::lonmenu;  use Apache::lonmenu;
 use Apache::lonhomework;  use Apache::lonhomework;
 use Apache::lonparmset;  use Apache::lonparmset;
   use Apache::lonenc();
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
 use Apache::lonsequence;  use Apache::lonsequence;
Line 185  sub handler { Line 186  sub handler {
       my $fn=$env{'request.course.fn'};        my $fn=$env{'request.course.fn'};
       if (-e "$fn.db") {        if (-e "$fn.db") {
           my %buttonshide;            my %buttonshide;
             my $hostname = $r->hostname();
           if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {            if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
 # ------------------------------------------------------------------- Hash tied  # ------------------------------------------------------------------- Hash tied
               my $firstres=$hash{'map_start_'.$requrl};                my $firstres=$hash{'map_start_'.$requrl};
Line 323  ENDEXT Line 325  ENDEXT
                           } elsif ($cellemb{$_} eq 'ssi') {                            } elsif ($cellemb{$_} eq 'ssi') {
 # --------------------------------------------------------- This is an SSI cell  # --------------------------------------------------------- This is an SSI cell
       my $prefix='p_'.$_.'_';        my $prefix='p_'.$_.'_';
                               my $idprefix='p_'.join('_',($mapid,$resid,''));                                my $idprefix= 'p_'.join('_',($mapid,$resid,''));
                               my %posthash=('request.prefix' => $prefix,                                my %posthash=('request.prefix' => $prefix,
     'LONCAPA_INTERNAL_no_discussion' => 'true',      'LONCAPA_INTERNAL_no_discussion' => 'true',
     'symb' => $symb);      'symb' => $symb);
Line 349  ENDEXT Line 351  ENDEXT
       }        }
                               if ($submitted) {                                if ($submitted) {
   foreach my $key (keys(%env)) {    foreach my $key (keys(%env)) {
       if ($key=~/^\Qform.$prefix\E/) {         if ($key=~/^\Qform.$prefix\E/) {
   my $name=$key;    my $name=$key;
           $name=~s/^\Qform.$prefix\E//;    $name=~s/^\Qform.$prefix\E//;
   $posthash{$name}=$env{$key};    $posthash{$name}=$env{$key};
                                       }                                        }
   }    }
Line 361  ENDEXT Line 363  ENDEXT
       } elsif ($env{'form.'.$prefix.'markaccess'} eq 'yes') {        } elsif ($env{'form.'.$prefix.'markaccess'} eq 'yes') {
                   $posthash{'markaccess'} = $env{'form.'.$prefix.'markaccess'};                    $posthash{'markaccess'} = $env{'form.'.$prefix.'markaccess'};
               }                }
                               if ($env{'environment.remote'} eq 'on') {  
                                   $posthash{'inhibitmenu'} = 'yes';  
                               }  
                               my $output=Apache::lonnet::ssi($src,%posthash);                                my $output=Apache::lonnet::ssi($src,%posthash);
       $output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s*(-->)?\s||gs;        $output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s*(-->)?\s||gs;
                               if (($target eq 'tex') || ($target eq 'tex_answer')) {                                if (($target eq 'tex') || ($target eq 'tex_answer')) {
Line 624  ENDEXT Line 623  ENDEXT
   "\n</script>\n";    "\n</script>\n";
   }    }
                           if (($nforms) && ($nuploads)) {                            if (($nforms) && ($nuploads)) {
                               $allscript .= &Apache::lonhtmlcommon::file_submissionchk_js(\%turninpaths,\%multiresps);                                $allscript .= &Apache::lonhtmlcommon::file_submissionchk_js(\%turninpaths,\%multiresps).
                                               '<script type="text/javascript" '.
                                               'src="/res/adm/includes/file_upload.js"></script>';
                           }                            }
                           if (($nforms) && (&Apache::lonhtmlcommon::htmlareabrowser())) {                            if (($nforms) && (&Apache::lonhtmlcommon::htmlareabrowser())) {
                               my %textarea_args = (                                my %textarea_args = (
Line 642  ENDEXT Line 643  ENDEXT
                                             '// ]]>'.                                              '// ]]>'.
                                             "\n</script>\n";                                              "\n</script>\n";
                           }                            }
                             &Apache::lonhtmlcommon::clear_breadcrumb_tools();
                           if (keys(%hastimeleft)) {                            if (keys(%hastimeleft)) {
                               my (%uniquetimes,%uniquedisplays);                                my (%uniquetimes,%uniquedisplays);
                               foreach my $item (values(%hastimeleft)) {                                foreach my $item (values(%hastimeleft)) {
Line 754  ENDEXT Line 756  ENDEXT
                           my $avespan=$lcm/($#colcont+1);                            my $avespan=$lcm/($#colcont+1);
                           for ($j=0;$j<=$#colcont;$j++) {                            for ($j=0;$j<=$#colcont;$j++) {
                               my $rid=$colcont[$j];                                my $rid=$colcont[$j];
       my $metainfo =&get_buttons(\%hash,$rid,\%buttonshide).'<br />';        my $metainfo =&get_buttons(\%hash,$rid,\%buttonshide,$hostname).'<br />';
     unless (($target eq 'tex') || ($target eq 'tex_answer')) {      unless (($target eq 'tex') || ($target eq 'tex_answer')) {
  $r->print('<td colspan="'.$avespan.'"');   $r->print('<td colspan="'.$avespan.'"');
     }      }
Line 884  ENDEXT Line 886  ENDEXT
 }  }
   
 sub get_buttons {  sub get_buttons {
     my ($hash,$rid,$buttonshide) = @_;      my ($hash,$rid,$buttonshide,$hostname) = @_;
   
     my $metainfo = '';      my $metainfo = '';
     my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid});      my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid});
Line 897  sub get_buttons { Line 899  sub get_buttons {
             return;              return;
         }          }
     }      }
       my $crs_sec = $env{'request.course.id'} . (($env{'request.course.sec'} ne '')
                                                  ? "/$env{'request.course.sec'}"
                                                  : '');
     if ($hash->{'encrypted_'.$rid}) {      if ($hash->{'encrypted_'.$rid}) {
  $symb=&Apache::lonenc::encrypted($symb);   $symb=&Apache::lonenc::encrypted($symb);
  $esrc=&Apache::lonenc::encrypted($esrc);   $esrc=&Apache::lonenc::encrypted($esrc);
Line 926  sub get_buttons { Line 931  sub get_buttons {
     if (($hash->{'src_'.$rid}=~/$LONCAPA::assess_re/) &&      if (($hash->{'src_'.$rid}=~/$LONCAPA::assess_re/) &&
  ($hash->{'src_'.$rid} !~ m-^/uploaded/-)) {   ($hash->{'src_'.$rid} !~ m-^/uploaded/-)) {
   
  if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) {   if ((&Apache::lonnet::allowed('mgr',$crs_sec)) ||
               (&Apache::lonnet::allowed('vgr',$crs_sec))) {
     $metainfo.=      $metainfo.=
  '<a href="/adm/grades?symb='.&escape($symb).   '<a href="/adm/grades?symb='.&escape($symb).
 #               '&command=submission" target="LONcatInfo">'.  #               '&command=submission" target="LONcatInfo">'.
Line 934  sub get_buttons { Line 940  sub get_buttons {
                 '<img src="/adm/lonMisc/subm_button.png" class="LC_icon"'.                  '<img src="/adm/lonMisc/subm_button.png" class="LC_icon"'.
                 ' alt="'.&mt('View Submissions for a Student or a Group of Students').'"'.                  ' alt="'.&mt('View Submissions for a Student or a Group of Students').'"'.
                 ' title="'.&mt('View Submissions for a Student or a Group of Students').'" />'.                  ' title="'.&mt('View Submissions for a Student or a Group of Students').'" />'.
  '</a>'.   '</a>';
           }
           if (&Apache::lonnet::allowed('mgr',$crs_sec)) {
               $metainfo.=
  '<a href="/adm/grades?symb='.&escape($symb).   '<a href="/adm/grades?symb='.&escape($symb).
 #               '&command=gradingmenu" target="LONcatInfo">'.  #               '&command=gradingmenu" target="LONcatInfo">'.
  '&command=gradingmenu">'.   '&command=gradingmenu">'.
Line 943  sub get_buttons { Line 952  sub get_buttons {
                 ' title="'.&mt('Content Grades').'" />'.                  ' title="'.&mt('Content Grades').'" />'.
  '</a>';   '</a>';
  }   }
  if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {   if ((&Apache::lonnet::allowed('opa',$crs_sec)) ||
               (&Apache::lonnet::allowed('vpa',$crs_sec))) {
     $metainfo.=      $metainfo.=
  '<a href="/adm/parmset?symb='.&escape($symb).   '<a href="/adm/parmset?symb='.&escape($symb).
 #               '" target="LONcatInfo">'.  #               '" target="LONcatInfo">'.
Line 954  sub get_buttons { Line 964  sub get_buttons {
  '</a>';   '</a>';
  }   }
     }      }
     if (($env{'request.course.id'}) && (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {      if ($env{'request.course.id'}) {
         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};          my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
         my $file=&Apache::lonnet::declutter($hash->{'src_'.$rid});          my $file=&Apache::lonnet::declutter($hash->{'src_'.$rid});
         my ($cfile,$home,$switchserver,$forceedit,$forceview) =          my $editbutton = '';
             &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,$hash->{'src_'.$rid},$symb);          if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
         if ($cfile ne '') {              my ($cfile,$home,$switchserver,$forceedit,$forceview) =
             my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,                  &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,$hash->{'src_'.$rid},$symb);
                                                                  $forceedit,1,$symb,undef,              if ($cfile ne '') {
                                                                  &escape($env{'form.title'}));                  my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,
             if ($jscall) {                                                                       $forceedit,1,$symb,undef,
                                                                        &escape($env{'form.title'}),
                                                                        $hostname);
                   if ($jscall) {
                       $editbutton = 1;
                       my $icon = 'pcstr.png';
                       my $label = &mt('Edit');
                       my $title = &mt('Edit this resource');
                       my $pic = '<img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$icon).'"'.
                                 ' class="LC_icon" alt="'.$label.'" title="'.$title.'" />';
                       $metainfo .= '&nbsp;<a href="javascript:'.$jscall.';">'.$pic.'</a>';
                   }
               }
           }
           if ((!$editbutton) && ($file=~/$LONCAPA::assess_re/)) {
               my $url = &Apache::lonnet::clutter($file);
               my $viewsrcbutton;
               if ((&Apache::lonnet::allowed('cre','/')) &&
                   (&Apache::lonnet::metadata($url,'sourceavail') eq 'open')) {
                   $viewsrcbutton = 1;
               } elsif (&Apache::lonnet::allowed('vxc',$crs_sec)) {
                   if ($url =~ m{^\Q/res/$cdom/\E($LONCAPA::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($url,'sourceavail') eq 'open') &&
                                (&Apache::lonnet::allowed('bre',$crs_sec))) {
                           $viewsrcbutton = 1;
                       }
                   }
               }
               if ($viewsrcbutton) {
                 my $icon = 'pcstr.png';                  my $icon = 'pcstr.png';
                 my $label = &mt('Edit');                  my $label = &mt('View Source');
                 my $title = &mt('Edit this resource');                  my $title = &mt('View source code');
                   my $jsrid = $rid;
                   $jsrid =~ s/\./_/g;
                   my $showurl = &escape(&Apache::lonenc::check_encrypt($url));
                 my $pic = '<img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$icon).'"'.                  my $pic = '<img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$icon).'"'.
                           ' class="LC_icon" alt="'.$label.'" title="'.$title.'" />';                            ' class="LC_icon" alt="'.$label.'" title="'.$title.'" />';
                 $metainfo .= '&nbsp;<a href="javascript:'.$jscall.';">'.$pic.'</a>';                  $metainfo .= '&nbsp;<a href="javascript:open_source_'.$jsrid.'();">'.$pic.'</a>'."\n".
                                '<script type="text/javascript">'."\n".
                                "function open_source_$jsrid() {\n".
                                "  sourcewin=window.open('/adm/source?inhibitmenu=yes&viewonly=1&filename=$showurl','LONsource',".
                                "'height=500,width=600,resizable=yes,location=no,menubar=no,toolbar=no,scrollbars=yes');\n".
                                "}\n".
                                "</script>\n";
             }              }
         }          }
     }      }
Line 1014  $collapse Line 1065  $collapse
 <span id="ddcountexpand" class="LC_menubuttons_inline_text" >$expand</span>  <span id="ddcountexpand" class="LC_menubuttons_inline_text" >$expand</span>
 <img src="/res/adm/pages/timer.png" title="$desc" class="LC_icon" alt="$alttxt" /><span class="LC_menubuttons_inline_text">$title</span></a>  <img src="/res/adm/pages/timer.png" title="$desc" class="LC_icon" alt="$alttxt" /><span class="LC_menubuttons_inline_text">$title</span></a>
 END  END
     &Apache::lonhtmlcommon::clear_breadcrumb_tools();  
     &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$output);      &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$output);
     return;      return;
 }  }

Removed from v.1.120.2.3  
changed lines
  Added in v.1.133


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