--- rat/lonpage.pm 2019/08/11 12:27:15 1.127 +++ rat/lonpage.pm 2020/02/17 16:12:35 1.130 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Page Handler # -# $Id: lonpage.pm,v 1.127 2019/08/11 12:27:15 raeburn Exp $ +# $Id: lonpage.pm,v 1.130 2020/02/17 16:12:35 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -360,7 +360,9 @@ ENDEXT if ($env{'form.all_submit_pressed'}) { $posthash{'all_submit'}='yes'; } - } + } elsif ($env{'form.'.$prefix.'markaccess'} eq 'yes') { + $posthash{'markaccess'} = $env{'form.'.$prefix.'markaccess'}; + } my $output=Apache::lonnet::ssi($src,%posthash); $output=~s|//(\s*)?\s||gs; if (($target eq 'tex') || ($target eq 'tex_answer')) { @@ -621,7 +623,9 @@ ENDEXT "\n\n"; } if (($nforms) && ($nuploads)) { - $allscript .= &Apache::lonhtmlcommon::file_submissionchk_js(\%turninpaths,\%multiresps); + $allscript .= &Apache::lonhtmlcommon::file_submissionchk_js(\%turninpaths,\%multiresps). + ''; } if (($nforms) && (&Apache::lonhtmlcommon::htmlareabrowser())) { my %textarea_args = ( @@ -987,6 +991,9 @@ sub get_buttons { 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','/'))) { + $viewsrcbutton = 1; } } }