[BACK]Return to lonpage.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonpage.pm between versions 1.120 and 1.125

version 1.120, 2016/10/29 05:49:28 version 1.125, 2017/09/29 19:18:18
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 442  ENDEXT Line 444  ENDEXT
       s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;        s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
                                   $output=~                                    $output=~
                                       s/\<((?:input|select|button|textarea)[^\>]+)id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 id="$idprefix$2" $3\>/gsi;                                        s/\<((?:input|select|button|textarea)[^\>]+)id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 id="$idprefix$2" $3\>/gsi;
                                     $output=~
                                         s/(\Qthis.form.elements['\E)(HW(?:VAL|CHK)_[^']+\'\]\.(?:value=\'|checked))/$1$prefix$2/gsi;
                                   if ($hastimer) {                                    if ($hastimer) {
                                       $output=~                                        $output=~
                                           s/\<(input[^\>]+name=\Q"$prefix\Eaccessbutton"[^\>]+)(?:\Qdocument.markaccess.submit();\E)([^\>]*)\>/\<$1pageTimer(this.form,'$prefix')$2\>/gsi;                                            s/\<(input[^\>]+name=\Q"$prefix\Eaccessbutton"[^\>]+)(?:\Qdocument.markaccess.submit();\E)([^\>]*)\>/\<$1pageTimer(this.form,'$prefix')$2\>/gsi;
Line 746  ENDEXT Line 750  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 874  ENDEXT Line 878  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 944  sub get_buttons { Line 948  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',$env{'request.course.id'})) {
                   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;
                       }
                   }
               }
               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";
             }              }
         }          }
     }      }
Removed from v.1.120  
changed lines
  Added in v.1.125

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.