--- loncom/homework/grades.pm 2019/01/28 21:36:53 1.756 +++ loncom/homework/grades.pm 2019/02/09 04:02:09 1.759 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.756 2019/01/28 21:36:53 raeburn Exp $ +# $Id: grades.pm,v 1.759 2019/02/09 04:02:09 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5902,7 +5902,6 @@ sub scantron_selectphase { $r->print('
'); - my $default_form_data=&defaultFormData($symb); my $cdom= $env{'course.'.$env{'request.course.id'}.'.domain'}; my $cnum= $env{'course.'.$env{'request.course.id'}.'.num'}; my $alertmsg = &mt('Please use the browse button to select a file from your local directory.'); @@ -9111,7 +9110,9 @@ END } if ($count > 1) { $formatextra = ''; + ''. + &mt('Bubblesheet type:').' '. + &scantron_scantab().''; $onclick = ' onclick="toggleScantab(this.form);"'; $formatjs = <<"END"; function toggleScantab(form) { @@ -9126,7 +9127,7 @@ function toggleScantab(form) { if (chosen == 'dat') { document.getElementById(divid).style.display = 'none'; } else if (chosen == 'csv') { - document.getElementById(divid).style.display = 'inline-block'; + document.getElementById(divid).style.display = 'block'; } } } @@ -9152,7 +9153,7 @@ END } elsif (keys(%{$domconfig{'scantron'}{'config'}}) == 1) { if (ref($domconfig{'scantron'}{'config'}{'csv'}{'fields'}) eq 'HASH') { if (keys(%{$domconfig{'scantron'}{'config'}{'csv'}{'fields'}})) { - $formattitle = &mt('Format of bubblesheet data file:'); + $formattitle = &mt('Bubblesheet type'); $formatoptions = &scantron_scantab(); } } @@ -10637,7 +10638,7 @@ sub startpage { } if ($nomenu) { $args{'only_body'} = 1; - $r->print(&Apache::loncommon::start_page("Student's Version",$js,\%args); + $r->print(&Apache::loncommon::start_page("Student's Version",$js,\%args)); } else { unshift(@$crumbs,{href=>&href_symb_cmd($symb,'gradingmenu'),text=>"Grading"}); $args{'bread_crumbs'} = $crumbs; @@ -10645,7 +10646,7 @@ sub startpage { &Apache::lonquickgrades::startGradeScreen($r,($env{'form.symb'}?'probgrading':'grading')); } unless ($nodisplayflag) { - $r->print(&Apache::lonhtmlcommon::resource_info_box($symb,$onlyfolderflag,$stuvcurrent,$stuvdisp)); + $r->print(&Apache::lonhtmlcommon::resource_info_box($symb,$onlyfolderflag,$stuvcurrent,$stuvdisp)); } } @@ -11024,7 +11025,7 @@ Side Effects: None. $r - Apache request object $i - number of the current scanline $scan_record - hash ref as returned from &scantron_parse_scanline() - $scan_config - hash ref as returned from &get_scantron_config() + $scan_config - hash ref as returned from &Apache::lonnet::get_scantron_config() $line - full contents of the current scanline $error - error condition, valid values are 'incorrectCODE', 'duplicateCODE',