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

Diff for /rat/lonpage.pm between versions 1.127 and 1.130

version 1.127, 2019/08/11 12:27:15 version 1.130, 2020/02/17 16:12:35
Line 360  ENDEXT Line 360  ENDEXT
   if ($env{'form.all_submit_pressed'}) {    if ($env{'form.all_submit_pressed'}) {
       $posthash{'all_submit'}='yes';        $posthash{'all_submit'}='yes';
   }    }
       }        } elsif ($env{'form.'.$prefix.'markaccess'} eq 'yes') {
                     $posthash{'markaccess'} = $env{'form.'.$prefix.'markaccess'};
                 }
                               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 621  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 987  sub get_buttons { Line 991  sub get_buttons {
                     if (($env{'request.course.adhocsrcaccess'} ne '') &&                      if (($env{'request.course.adhocsrcaccess'} ne '') &&
                         (grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {                          (grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {
                         $viewsrcbutton = 1;                          $viewsrcbutton = 1;
                       } elsif ((&Apache::lonnet::metadata($url,'sourceavail') eq 'open') &&
                                (&Apache::lonnet::allowed('bre','/'))) {
                           $viewsrcbutton = 1;
                     }                      }
                 }                  }
             }              }
Removed from v.1.127  
changed lines
  Added in v.1.130

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