loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.756 and 1.790

version 1.756, 2019/01/28 21:36:53	version 1.790, 2022/06/11 14:38:28
Line 48 use Apache::lonquickgrades;	Line 48 use Apache::lonquickgrades;
use Apache::bridgetask();	use Apache::bridgetask();
use Apache::lontexconvert();	use Apache::lontexconvert();
use String::Similarity;	use String::Similarity;
	use HTML::Parser();
	use File::MMagic;
use LONCAPA;	use LONCAPA;

use POSIX qw(floor);	use POSIX qw(floor);
Line 145 sub nameUserString {	Line 147 sub nameUserString {
}	}

#--- Get the partlist and the response type for a given problem. ---	#--- Get the partlist and the response type for a given problem. ---
#--- Indicate if a response type is coded handgraded or not. ---	#--- Count responseIDs, essayresponse items, and dropbox items ---
#--- Sets response_error pointer to "1" if navmaps object broken ---	#--- Sets response_error pointer to "1" if navmaps object broken ---
sub response_type {	sub response_type {
my ($symb,$response_error) = @_;	my ($symb,$response_error) = @_;
Line 163 sub response_type {	Line 165 sub response_type {
return;	return;
}	}
my $partlist = $res->parts();	my $partlist = $res->parts();
	my ($numresp,$numessay,$numdropbox) = (0,0,0);
my %vPart =	my %vPart =
map { $_ => 1 } (&Apache::loncommon::get_env_multiple('form.vPart'));	map { $_ => 1 } (&Apache::loncommon::get_env_multiple('form.vPart'));
my (%response_types,%handgrade);	my (%response_types,%handgrade);
Line 172 sub response_type {	Line 175 sub response_type {
my @types = $res->responseType($part);	my @types = $res->responseType($part);
my @ids = $res->responseIds($part);	my @ids = $res->responseIds($part);
for (my $i=0; $i < scalar(@ids); $i++) {	for (my $i=0; $i < scalar(@ids); $i++) {
	$numresp ++;
$response_types{$part}{$ids[$i]} = $types[$i];	$response_types{$part}{$ids[$i]} = $types[$i];
	if ($types[$i] eq 'essay') {
	$numessay ++;
	if (&Apache::lonnet::EXT("resource.$part".'_'.$ids[$i].".uploadedfiletypes",$symb)) {
	$numdropbox ++;
	}
	}
$handgrade{$part.'_'.$ids[$i]} =	$handgrade{$part.'_'.$ids[$i]} =
&Apache::lonnet::EXT('resource.'.$part.'_'.$ids[$i].	&Apache::lonnet::EXT('resource.'.$part.'_'.$ids[$i].
'.handgrade',$symb);	'.handgrade',$symb);
}	}
}	}
return ($partlist,\%handgrade,\%response_types);	return ($partlist,\%handgrade,\%response_types,$numresp,$numessay,$numdropbox);
}	}

sub flatten_responseType {	sub flatten_responseType {
Line 205 sub get_display_part {	Line 215 sub get_display_part {
return $display;	return $display;
}	}

	#--- Show parts and response type
	sub showResourceInfo {
	my ($symb,$partlist,$responseType,$formname,$checkboxes,$uploads) = @_;
	unless ((ref($partlist) eq 'ARRAY') && (ref($responseType) eq 'HASH')) {
	return '<br clear="all">';
	}
	my $coltitle = &mt('Problem Part Shown');
	if ($checkboxes) {
	$coltitle = &mt('Problem Part');
	} else {
	my $checkedparts = 0;
	foreach my $partid (&Apache::loncommon::get_env_multiple('form.vPart')) {
	if (grep(/^\Q$partid\E$/,@{$partlist})) {
	$checkedparts ++;
	}
	}
	if ($checkedparts == scalar(@{$partlist})) {
	return '<br clear="all">';
	}
	if ($uploads) {
	$coltitle = &mt('Problem Part Selected');
	}
	}
	my $result = '<div class="LC_left_float" style="display:inline-block;">';
	if ($checkboxes) {
	my $legend = &mt('Parts to display');
	if ($uploads) {
	$legend = &mt('Part(s) with dropbox');
	}
	$result .= '<fieldset style="display:inline-block;"><legend>'.$legend.'</legend>'.
	'<span class="LC_nobreak">'.
	'<label><input type="radio" name="chooseparts" value="0" onclick="toggleParts('."'$formname'".');" checked="checked" />'.
	&mt('All parts').'</label>'.(' 'x2).
	'<label><input type="radio" name="chooseparts" value="1" onclick="toggleParts('."'$formname'".');" />'.
	&mt('Selected parts').'</label></span>'.
	'<div id="LC_partselector" style="display:none">';
	}
	$result .= &Apache::loncommon::start_data_table()
	.&Apache::loncommon::start_data_table_header_row();
	if ($checkboxes) {
	$result .= '<th>'.&mt('Display?').'</th>';
	}
	$result .= '<th>'.$coltitle.'</th>'
	.'<th>'.&mt('Res. ID').'</th>'
	.'<th>'.&mt('Type').'</th>'
	.&Apache::loncommon::end_data_table_header_row();
	my %partsseen;
	foreach my $partID (sort(keys(%$responseType))) {
	foreach my $resID (sort(keys(%{ $responseType->{$partID} }))) {
	my $responsetype = $responseType->{$partID}->{$resID};
	if ($uploads) {
	next unless ($responsetype eq 'essay');
	next unless (&Apache::lonnet::EXT("resource.$partID".'_'."$resID.uploadedfiletypes",$symb));
	}
	my $display_part=&get_display_part($partID,$symb);
	if (exists($partsseen{$partID})) {
	$result.=&Apache::loncommon::continue_data_table_row();
	} else {
	$partsseen{$partID}=scalar(keys(%{$responseType->{$partID}}));
	$result.=&Apache::loncommon::start_data_table_row().
	'<td rowspan="'.$partsseen{$partID}.'" style="vertical-align:middle">';
	if ($checkboxes) {
	$result.='<input type="checkbox" name="vPart" checked="checked" value="'.$partID.'" /></td>'.
	'<td rowspan="'.$partsseen{$partID}.'" style="vertical-align:middle">'.$display_part.'</td>';
	} else {
	$result.=$display_part.'</td>';
	}
	}
	$result.='<td>'.'<span class="LC_internal_info">'.$resID.'</span></td>'
	.'<td>'.&mt($responsetype).'</td>'
	.&Apache::loncommon::end_data_table_row();
	}
	}
	$result.=&Apache::loncommon::end_data_table();
	if ($checkboxes) {
	$result .= '</div></fieldset>';
	}
	$result .= '</div><div style="padding:0;clear:both;margin:0;border:0"></div>';
	if (!keys(%partsseen)) {
	$result = '';
	if ($uploads) {
	return '<div style="padding:0;clear:both;margin:0;border:0"></div>'.
	'<p class="LC_info">'.
	&mt('No dropbox items or essayresponse items with uploadedfiletypes set.').
	'</p>';
	} else {
	return '<br clear="all" />';
	}
	}
	return $result;
	}

	sub part_selector_js {
	my $js = <<"END";
	function toggleParts(formname) {
	if (document.getElementById('LC_partselector')) {
	var index = '';
	if (document.forms.length) {
	for (var i=0; i<document.forms.length; i++) {
	if (document.forms[i].name == formname) {
	index = i;
	break;
	}
	}
	}
	if ((index != '') && (document.forms[index].elements['chooseparts'].length > 1)) {
	for (var i=0; i<document.forms[index].elements['chooseparts'].length; i++) {
	if (document.forms[index].elements['chooseparts'][i].checked) {
	var val = document.forms[index].elements['chooseparts'][i].value;
	if (document.forms[index].elements['chooseparts'][i].value == 1) {
	document.getElementById('LC_partselector').style.display = 'block';
	} else {
	document.getElementById('LC_partselector').style.display = 'none';
	}
	}
	}
	}
	}
	}
	END
	return &Apache::lonhtmlcommon::scripttag($js);
	}

sub reset_caches {	sub reset_caches {
&reset_analyze_cache();	&reset_analyze_cache();
&reset_perm();	&reset_perm();
Line 313 sub reset_caches {	Line 446 sub reset_caches {
$add_to_form = { 'code_for_randomlist' => $scancode,};	$add_to_form = { 'code_for_randomlist' => $scancode,};
}	}
}	}
my $analyze =	my $analyze =
&get_analyze($symb,$uname,$udom,undef,$add_to_form,	&get_analyze($symb,$uname,$udom,undef,$add_to_form,
undef,undef,undef,$bubbles_per_row);	undef,undef,undef,$bubbles_per_row);
if (ref($analyze) eq 'HASH') {	if (ref($analyze) eq 'HASH') {
Line 343 sub cleanRecord {	Line 476 sub cleanRecord {
if ($response =~ /^(option\|rank)$/) {	if ($response =~ /^(option\|rank)$/) {
my %answer=&Apache::lonnet::str2hash($answer);	my %answer=&Apache::lonnet::str2hash($answer);
my @answer = %answer;	my @answer = %answer;
%answer = map {&HTML::Entities::encode($_, '"<>&')} @answer;	%answer = map {&HTML::Entities::encode($_, '"<>&')} @answer;
my %grading=&Apache::lonnet::str2hash($record->{$version."resource.$partid.$respid.submissiongrading"});	my %grading=&Apache::lonnet::str2hash($record->{$version."resource.$partid.$respid.submissiongrading"});
my ($toprow,$bottomrow);	my ($toprow,$bottomrow);
foreach my $foil (@$order) {	foreach my $foil (@$order) {
Line 361 sub cleanRecord {	Line 494 sub cleanRecord {
} elsif ($response eq 'match') {	} elsif ($response eq 'match') {
my %answer=&Apache::lonnet::str2hash($answer);	my %answer=&Apache::lonnet::str2hash($answer);
my @answer = %answer;	my @answer = %answer;
%answer = map {&HTML::Entities::encode($_, '"<>&')} @answer;	%answer = map {&HTML::Entities::encode($_, '"<>&')} @answer;
my %grading=&Apache::lonnet::str2hash($record->{$version."resource.$partid.$respid.submissiongrading"});	my %grading=&Apache::lonnet::str2hash($record->{$version."resource.$partid.$respid.submissiongrading"});
my @items=&Apache::lonnet::str2array($record->{$version."resource.$partid.$respid.submissionitems"});	my @items=&Apache::lonnet::str2array($record->{$version."resource.$partid.$respid.submissionitems"});
my ($toprow,$middlerow,$bottomrow);	my ($toprow,$middlerow,$bottomrow);
Line 420 sub cleanRecord {	Line 553 sub cleanRecord {
}	}
$answer = &Apache::lontexconvert::msgtexconverted($answer);	$answer = &Apache::lontexconvert::msgtexconverted($answer);
return '<br /><br /><blockquote><tt>'.&keywords_highlight($answer).'</tt></blockquote>';	return '<br /><br /><blockquote><tt>'.&keywords_highlight($answer).'</tt></blockquote>';

} elsif ( $response eq 'organic') {	} elsif ( $response eq 'organic') {
my $result=&mt('Smile representation: [_1]',	my $result=&mt('Smile representation: [_1]',
'"<tt>'.&HTML::Entities::encode($answer, '"<>&').'</tt>"');	'"<tt>'.&HTML::Entities::encode($answer, '"<>&').'</tt>"');
Line 537 sub getclasslist {	Line 669 sub getclasslist {
$cdom = $env{"course.$env{'request.course.id'}.domain"};	$cdom = $env{"course.$env{'request.course.id'}.domain"};
$cnum = $env{"course.$env{'request.course.id'}.num"};	$cnum = $env{"course.$env{'request.course.id'}.num"};
my $res_error;	my $res_error;
($partlist,my $handgrade,my $responseType) = &response_type($symb,\$res_error);	($partlist) = &response_type($symb,\$res_error);
}	}
foreach my $student (keys(%$classlist)) {	foreach my $student (keys(%$classlist)) {
my $end =	my $end =
Line 653 sub canmodify {	Line 785 sub canmodify {
#can modify the requested section	#can modify the requested section
return 1;	return 1;
} else {	} else {
# can't modify the request section	# can't modify the requested section
return 0;	return 0;
}	}
}	}
Line 666 sub canview {	Line 798 sub canview {
my ($sec)=@_;	my ($sec)=@_;
if ($perm{'vgr'}) {	if ($perm{'vgr'}) {
if (!defined($perm{'vgr_section'})) {	if (!defined($perm{'vgr_section'})) {
# can modify whole class	# can view whole class
return 1;	return 1;
} else {	} else {
if ($sec eq $perm{'vgr_section'}) {	if ($sec eq $perm{'vgr_section'}) {
#can modify the requested section	#can view the requested section
return 1;	return 1;
} else {	} else {
# can't modify the request section	# can't view the requested section
return 0;	return 0;
}	}
}	}
}	}
#can't modify	#can't view
return 0;	return 0;
}	}

Line 819 sub initialverifyreceipt {	Line 951 sub initialverifyreceipt {

#--- Check whether a receipt number is valid.---	#--- Check whether a receipt number is valid.---
sub verifyreceipt {	sub verifyreceipt {
my ($request,$symb) = @_;	my ($request,$symb) = @_;

my $courseid = $env{'request.course.id'};	my $courseid = $env{'request.course.id'};
my $receipt = &Apache::lonnet::recprefix($courseid).'-'.	my $receipt = &Apache::lonnet::recprefix($courseid).'-'.
$env{'form.receipt'};	$env{'form.receipt'};
$receipt =~ s/[^\-\d]//g;	$receipt =~ s/[^\-\d]//g;

my $title.=	my $title =
'<h3><span class="LC_info">'.	'<h3><span class="LC_info">'.
&mt('Verifying Receipt Number [_1]',$receipt).	&mt('Verifying Receipt Number [_1]',$receipt).
'</span></h3>'."\n";	'</span></h3>'."\n";
Line 907 sub verifyreceipt {	Line 1039 sub verifyreceipt {
#--- Also called directly when one clicks on the subm button	#--- Also called directly when one clicks on the subm button
# on the problem page.	# on the problem page.
sub listStudents {	sub listStudents {
my ($request,$symb,$submitonly) = @_;	my ($request,$symb,$submitonly,$divforres) = @_;

my $is_tool = ($symb =~ /ext\.tool$/);	my $is_tool = ($symb =~ /ext\.tool$/);
my $cdom = $env{"course.$env{'request.course.id'}.domain"};	my $cdom = $env{"course.$env{'request.course.id'}.domain"};
Line 915 sub listStudents {	Line 1047 sub listStudents {
my $getsec = $env{'form.section'} eq '' ? 'all' : $env{'form.section'};	my $getsec = $env{'form.section'} eq '' ? 'all' : $env{'form.section'};
my $getgroup = $env{'form.group'} eq '' ? 'all' : $env{'form.group'};	my $getgroup = $env{'form.group'} eq '' ? 'all' : $env{'form.group'};
unless ($submitonly) {	unless ($submitonly) {
$submitonly= $env{'form.submitonly'} eq '' ? 'all' : $env{'form.submitonly'};	$submitonly = $env{'form.submitonly'} eq '' ? 'all' : $env{'form.submitonly'};
}	}

my $result='';	my $result='';
my $res_error;	my $res_error;
my ($partlist,$handgrade,$responseType) = &response_type($symb,\$res_error);	my ($partlist,$handgrade,$responseType,$numresp,$numessay) = &response_type($symb,\$res_error);

	my $table;
	if (ref($partlist) eq 'ARRAY') {
	if (scalar(@$partlist) > 1 ) {
	$table = &showResourceInfo($symb,$partlist,$responseType,'gradesub',1);
	} elsif ($divforres) {
	$table = '<div style="padding:0;clear:both;margin:0;border:0"></div>';
	} else {
	$table = '<br clear="all" />';
	}
	}

my %js_lt = &Apache::lonlocal::texthash (	my %js_lt = &Apache::lonlocal::texthash (
'multiple' => 'Please select a student or group of students before clicking on the Next button.',	'multiple' => 'Please select a student or group of students before clicking on the Next button.',
Line 962 LISTJAVASCRIPT	Line 1105 LISTJAVASCRIPT
$request->print($result);	$request->print($result);

my $gradeTable='<form action="/adm/grades" method="post" name="gradesub">'.	my $gradeTable='<form action="/adm/grades" method="post" name="gradesub">'.
"\n";	"\n".$table;

$gradeTable .= &Apache::lonhtmlcommon::start_pick_box();	$gradeTable .= &Apache::lonhtmlcommon::start_pick_box();
unless ($is_tool) {	unless ($is_tool) {
$gradeTable .= &Apache::lonhtmlcommon::row_title(&mt('View Problem Text'))	$gradeTable .= &Apache::lonhtmlcommon::row_title(&mt('View Problem Text'))
Line 978 LISTJAVASCRIPT	Line 1121 LISTJAVASCRIPT
.&Apache::lonhtmlcommon::row_closure();	.&Apache::lonhtmlcommon::row_closure();
}	}

my $submission_options;
my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));	my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));
my $saveStatus = $stu_status eq '' ? 'Active' : $stu_status;	my $saveStatus = $stu_status eq '' ? 'Active' : $stu_status;
$env{'form.Status'} = $saveStatus;	$env{'form.Status'} = $saveStatus;
Line 998 LISTJAVASCRIPT	Line 1140 LISTJAVASCRIPT
all => 'all submissions with details',	all => 'all submissions with details',
);	);
}	}
$submission_options.=	my $submission_options =
'<span class="LC_nobreak">'.	'<span class="LC_nobreak">'.
'<label><input type="radio" name="lastSub" value="lastonly" /> '.	'<label><input type="radio" name="lastSub" value="lastonly" /> '.
$optiontext{'lastonly'}.' </label></span>'."\n".	$optiontext{'lastonly'}.' </label></span>'."\n".
Line 1017 LISTJAVASCRIPT	Line 1159 LISTJAVASCRIPT
} else {	} else {
$viewtitle = &mt('View Submissions');	$viewtitle = &mt('View Submissions');
}	}
	my ($compmsg,$nocompmsg);
	$nocompmsg = ' checked="checked"';
	if ($numessay) {
	$compmsg = $nocompmsg;
	$nocompmsg = '';
	}
$gradeTable .= &Apache::lonhtmlcommon::row_title($viewtitle)	$gradeTable .= &Apache::lonhtmlcommon::row_title($viewtitle)
.$submission_options	.$submission_options;
	# Check if any gradable
	my $showmore;
	if ($perm{'mgr'}) {
	my @sections;
	if ($env{'request.course.sec'} ne '') {
	@sections = ($env{'request.course.sec'});
	} elsif ($env{'form.section'} eq '') {
	@sections = ('all');
	} else {
	@sections = &Apache::loncommon::get_env_multiple('form.section');
	}
	if (grep(/^all$/,@sections)) {
	$showmore = 1;
	} else {
	foreach my $sec (@sections) {
	if (&canmodify($sec)) {
	$showmore = 1;
	last;
	}
	}
	}
	}

	if ($showmore) {
	$gradeTable .=
	&Apache::lonhtmlcommon::row_closure()
	.&Apache::lonhtmlcommon::row_title(&mt('Send Messages'))
	.'<span class="LC_nobreak">'
	.'<label><input type="radio" name="compmsg" value="0"'.$nocompmsg.' />'
	.&mt('No').(' 'x2).'</label>'
	.'<label><input type="radio" name="compmsg" value="1"'.$compmsg.' />'
	.&mt('Yes').(' 'x2).'</label>'
.&Apache::lonhtmlcommon::row_closure();	.&Apache::lonhtmlcommon::row_closure();

my $closure;	$gradeTable .=
if (($is_tool) && (exists($env{'form.Status'}))) {	&Apache::lonhtmlcommon::row_title(&mt('Grading Increments'))
$closure = 1;
}
$gradeTable .= &Apache::lonhtmlcommon::row_title(&mt('Grading Increments'))
.'<select name="increment">'	.'<select name="increment">'
.'<option value="1">'.&mt('Whole Points').'</option>'	.'<option value="1">'.&mt('Whole Points').'</option>'
.'<option value=".5">'.&mt('Half Points').'</option>'	.'<option value=".5">'.&mt('Half Points').'</option>'
.'<option value=".25">'.&mt('Quarter Points').'</option>'	.'<option value=".25">'.&mt('Quarter Points').'</option>'
.'<option value=".1">'.&mt('Tenths of a Point').'</option>'	.'<option value=".1">'.&mt('Tenths of a Point').'</option>'
.'</select>'	.'</select>';
.&Apache::lonhtmlcommon::row_closure($closure);	}

$gradeTable .=	$gradeTable .=
&build_section_inputs().	&build_section_inputs().
'<input type="hidden" name="submitonly" value="'.$submitonly.'" />'."\n".	'<input type="hidden" name="submitonly" value="'.$submitonly.'" />'."\n".
'<input type="hidden" name="symb" value="'.&Apache::lonenc::check_encrypt($symb).'" />'."\n".	'<input type="hidden" name="symb" value="'.&Apache::lonenc::check_encrypt($symb).'" />'."\n".
'<input type="hidden" name="saveStatusOld" value="'.$saveStatus.'" />'."\n";	'<input type="hidden" name="saveStatusOld" value="'.$saveStatus.'" />'."\n";

if (exists($env{'form.Status'})) {	if (exists($env{'form.Status'})) {
$gradeTable .= '<input type="hidden" name="Status" value="'.$stu_status.'" />'."\n";	$gradeTable .= '<input type="hidden" name="Status" value="'.$env{'form.Status'}.'" />'."\n";
} else {	} else {
if ($is_tool) {	$gradeTable .= &Apache::lonhtmlcommon::row_closure()
$closure = 1;	.&Apache::lonhtmlcommon::row_title(&mt('Student Status'))
}
$gradeTable .= &Apache::lonhtmlcommon::row_title(&mt('Student Status'))
.&Apache::lonhtmlcommon::StatusOptions(	.&Apache::lonhtmlcommon::StatusOptions(
$saveStatus,undef,1,'javascript:reLoadList(this.form);')	$saveStatus,undef,1,'javascript:reLoadList(this.form);');
.&Apache::lonhtmlcommon::row_closure($closure);
}	}
	if ($numessay) {
unless ($is_tool) {	$gradeTable .= &Apache::lonhtmlcommon::row_closure()
$closure = 1;	.&Apache::lonhtmlcommon::row_title(&mt('Check For Plagiarism'))
$gradeTable .= &Apache::lonhtmlcommon::row_title(&mt('Check For Plagiarism'))	.'<input type="checkbox" name="checkPlag" checked="checked" />';
.'<input type="checkbox" name="checkPlag" checked="checked" />'
.&Apache::lonhtmlcommon::row_closure($closure);
}	}
$gradeTable .= &Apache::lonhtmlcommon::end_pick_box();	$gradeTable .= &Apache::lonhtmlcommon::row_closure(1)
	.&Apache::lonhtmlcommon::end_pick_box();
my $regrademsg;	my $regrademsg;
if ($is_tool) {	if ($is_tool) {
$regrademsg =&mt("To view/grade/regrade, click on the check box(es) next to the student's name(s). Then click on the Next button.");	$regrademsg =&mt("To view/grade/regrade, click on the check box(es) next to the student's name(s). Then click on the Next button.");
Line 1212 LISTJAVASCRIPT	Line 1383 LISTJAVASCRIPT
#---- Called from the listStudents routine	#---- Called from the listStudents routine

sub check_script {	sub check_script {
my ($form, $type)=@_;	my ($form,$type) = @_;
my $chkallscript= &Apache::lonhtmlcommon::scripttag('	my $chkallscript = &Apache::lonhtmlcommon::scripttag('
function checkall() {	function checkall() {
for (i=0; i<document.forms.'.$form.'.elements.length; i++) {	for (i=0; i<document.forms.'.$form.'.elements.length; i++) {
ele = document.forms.'.$form.'.elements[i];	ele = document.forms.'.$form.'.elements[i];
Line 1258 sub check_buttons {	Line 1429 sub check_buttons {

# Displays the submissions for one student or a group of students	# Displays the submissions for one student or a group of students
sub processGroup {	sub processGroup {
my ($request,$symb) = @_;	my ($request,$symb) = @_;
my $ctr = 0;	my $ctr = 0;
my @stuchecked = &Apache::loncommon::get_env_multiple('form.stuinfo');	my @stuchecked = &Apache::loncommon::get_env_multiple('form.stuinfo');
my $total = scalar(@stuchecked)-1;	my $total = scalar(@stuchecked)-1;
Line 1446 sub sub_page_js {	Line 1617 sub sub_page_js {
SUBJAVASCRIPT	SUBJAVASCRIPT
}	}

#--- javascript for essay type problem --	#--- javascript for grading message center
sub sub_page_kw_js {	sub sub_grademessage_js {
my $request = shift;	my $request = shift;
my $iconpath = $request->dir_config('lonIconsURL');	my $iconpath = $request->dir_config('lonIconsURL');
&commonJSfunctions($request);	&commonJSfunctions($request);
Line 1493 sub sub_page_kw_js {	Line 1664 sub sub_page_kw_js {
</script>	</script>
INNERJS	INNERJS

my $inner_js_highlight_central= (<<INNERJS);	my $start_page_msg_central =
<script type="text/javascript">
function updateChoice(flag) {
opener.document.SCORE.kwclr.value = opener.radioSelection(document.hlCenter.kwdclr);
opener.document.SCORE.kwsize.value = opener.radioSelection(document.hlCenter.kwdsize);
opener.document.SCORE.kwstyle.value = opener.radioSelection(document.hlCenter.kwdstyle);
opener.document.SCORE.refresh.value = "on";
if (opener.document.SCORE.keywords.value!=""){
opener.document.SCORE.submit();
}
self.close()
}
</script>
INNERJS

my $start_page_msg_central =
&Apache::loncommon::start_page('Message Central',$inner_js_msg_central,	&Apache::loncommon::start_page('Message Central',$inner_js_msg_central,
{'js_ready' => 1,	{'js_ready' => 1,
'only_body' => 1,	'only_body' => 1,
'bgcolor' =>'#FFFFFF',});	'bgcolor' =>'#FFFFFF',});
my $end_page_msg_central =	my $end_page_msg_central =
&Apache::loncommon::end_page({'js_ready' => 1});


my $start_page_highlight_central =
&Apache::loncommon::start_page('Highlight Central',
$inner_js_highlight_central,
{'js_ready' => 1,
'only_body' => 1,
'bgcolor' =>'#FFFFFF',});
my $end_page_highlight_central =
&Apache::loncommon::end_page({'js_ready' => 1});	&Apache::loncommon::end_page({'js_ready' => 1});

my $docopen=&Apache::lonhtmlcommon::javascript_docopen();	my $docopen=&Apache::lonhtmlcommon::javascript_docopen();
$docopen=~s/^document\.//;	$docopen=~s/^document\.//;
my %js_lt = &Apache::lonlocal::texthash(
keyw => 'Keywords list, separated by a space. Add/delete to list if desired.',
plse => 'Please select a word or group of words from document and then click this link.',
adds => 'Add selection to keyword list? Edit if desired.',
col1 => 'red',
col2 => 'green',
col3 => 'blue',
siz1 => 'normal',
siz2 => '+1',
siz3 => '+2',
sty1 => 'normal',
sty2 => 'italic',
sty3 => 'bold',
);
my %html_js_lt = &Apache::lonlocal::texthash(	my %html_js_lt = &Apache::lonlocal::texthash(
comp => 'Compose Message for: ',	comp => 'Compose Message for: ',
incl => 'Include',	incl => 'Include',
Line 1551 INNERJS	Line 1684 INNERJS
new => 'New',	new => 'New',
save => 'Save',	save => 'Save',
canc => 'Cancel',	canc => 'Cancel',
kehi => 'Keyword Highlight Options',
txtc => 'Text Color',
font => 'Font Size',
fnst => 'Font Style',
);	);
&js_escape(\%js_lt);
&html_escape(\%html_js_lt);	&html_escape(\%html_js_lt);
&js_escape(\%html_js_lt);	&js_escape(\%html_js_lt);
$request->print(&Apache::lonhtmlcommon::scripttag(<<SUBJAVASCRIPT));	$request->print(&Apache::lonhtmlcommon::scripttag(<<SUBJAVASCRIPT));

//===================== Show list of keywords ====================
function keywords(formname) {
var nret = prompt("$js_lt{'keyw'}",formname.keywords.value);
if (nret==null) return;
formname.keywords.value = nret;

if (formname.keywords.value != "") {
formname.refresh.value = "on";
formname.submit();
}
return;
}

//===================== Script to view submitted by ==================	//===================== Script to view submitted by ==================
function viewSubmitter(submitter) {	function viewSubmitter(submitter) {
document.SCORE.refresh.value = "on";	document.SCORE.refresh.value = "on";
Line 1583 INNERJS	Line 1698 INNERJS
return;	return;
}	}

//===================== Script to add keyword(s) ==================
function getSel() {
if (document.getSelection) txt = document.getSelection();
else if (document.selection) txt = document.selection.createRange().text;
else return;
var cleantxt = txt.replace(new RegExp('([\\f\\n\\r\\t\\v ])+', 'g')," ");
if (cleantxt=="") {
alert("$js_lt{'plse'}");
return;
}
var nret = prompt("$js_lt{'adds'}",cleantxt);
if (nret==null) return;
document.SCORE.keywords.value = document.SCORE.keywords.value+" "+nret;
if (document.SCORE.keywords.value != "") {
document.SCORE.refresh.value = "on";
document.SCORE.submit();
}
return;
}

//====================== Script for composing message ==============	//====================== Script for composing message ==============
// preload images	// preload images
img1 = new Image();	img1 = new Image();
Line 1713 INNERJS	Line 1808 INNERJS
pDoc.close();	pDoc.close();
}	}

	SUBJAVASCRIPT
	}

	#--- javascript for essay type problem --
	sub sub_page_kw_js {
	my $request = shift;

	unless ($env{'form.compmsg'}) {
	&commonJSfunctions($request);
	}

	my $inner_js_highlight_central= (<<INNERJS);
	<script type="text/javascript">
	function updateChoice(flag) {
	opener.document.SCORE.kwclr.value = opener.radioSelection(document.hlCenter.kwdclr);
	opener.document.SCORE.kwsize.value = opener.radioSelection(document.hlCenter.kwdsize);
	opener.document.SCORE.kwstyle.value = opener.radioSelection(document.hlCenter.kwdstyle);
	opener.document.SCORE.refresh.value = "on";
	if (opener.document.SCORE.keywords.value!=""){
	opener.document.SCORE.submit();
	}
	self.close()
	}
	</script>
	INNERJS

	my $start_page_highlight_central =
	&Apache::loncommon::start_page('Highlight Central',
	$inner_js_highlight_central,
	{'js_ready' => 1,
	'only_body' => 1,
	'bgcolor' =>'#FFFFFF',});
	my $end_page_highlight_central =
	&Apache::loncommon::end_page({'js_ready' => 1});

	my $docopen=&Apache::lonhtmlcommon::javascript_docopen();
	$docopen=~s/^document\.//;

	my %js_lt = &Apache::lonlocal::texthash(
	keyw => 'Keywords list, separated by a space. Add/delete to list if desired.',
	plse => 'Please select a word or group of words from document and then click this link.',
	adds => 'Add selection to keyword list? Edit if desired.',
	col1 => 'red',
	col2 => 'green',
	col3 => 'blue',
	siz1 => 'normal',
	siz2 => '+1',
	siz3 => '+2',
	sty1 => 'normal',
	sty2 => 'italic',
	sty3 => 'bold',
	);
	my %html_js_lt = &Apache::lonlocal::texthash(
	save => 'Save',
	canc => 'Cancel',
	kehi => 'Keyword Highlight Options',
	txtc => 'Text Color',
	font => 'Font Size',
	fnst => 'Font Style',
	);
	&js_escape(\%js_lt);
	&html_escape(\%html_js_lt);
	&js_escape(\%html_js_lt);
	$request->print(&Apache::lonhtmlcommon::scripttag(<<SUBJAVASCRIPT));

	//===================== Show list of keywords ====================
	function keywords(formname) {
	var nret = prompt("$js_lt{'keyw'}",formname.keywords.value);
	if (nret==null) return;
	formname.keywords.value = nret;

	if (formname.keywords.value != "") {
	formname.refresh.value = "on";
	formname.submit();
	}
	return;
	}

	//===================== Script to add keyword(s) ==================
	function getSel() {
	if (document.getSelection) txt = document.getSelection();
	else if (document.selection) txt = document.selection.createRange().text;
	else return;
	if (typeof(txt) != 'string') {
	txt = String(txt);
	}
	var cleantxt = txt.replace(new RegExp('([\\f\\n\\r\\t\\v ])+', 'g')," ");
	if (cleantxt=="") {
	alert("$js_lt{'plse'}");
	return;
	}
	var nret = prompt("$js_lt{'adds'}",cleantxt);
	if (nret==null) return;
	document.SCORE.keywords.value = document.SCORE.keywords.value+" "+nret;
	if (document.SCORE.keywords.value != "") {
	document.SCORE.refresh.value = "on";
	document.SCORE.submit();
	}
	return;
	}

//====================== Script for keyword highlight options ==============	//====================== Script for keyword highlight options ==============
function kwhighlight() {	function kwhighlight() {
var kwclr = document.SCORE.kwclr.value;	var kwclr = document.SCORE.kwclr.value;
Line 1903 sub gradeBox {	Line 2099 sub gradeBox {

sub handback_box {	sub handback_box {
my ($symb,$uname,$udom,$counter,$partid,$record,$res_error_pointer) = @_;	my ($symb,$uname,$udom,$counter,$partid,$record,$res_error_pointer) = @_;
my ($partlist,$handgrade,$responseType) = &response_type($symb,$res_error_pointer);	my ($partlist,$handgrade,$responseType,$numresp,$numessay) = &response_type($symb,$res_error_pointer);
	return unless ($numessay);
my (@respids);	my (@respids);
my @part_response_id = &flatten_responseType($responseType);	my @part_response_id = &flatten_responseType($responseType);
foreach my $part_response_id (@part_response_id) {	foreach my $part_response_id (@part_response_id) {
Line 2024 sub files_exist {	Line 2221 sub files_exist {
sub download_all_link {	sub download_all_link {
my ($r,$symb) = @_;	my ($r,$symb) = @_;
unless (&files_exist($r, $symb)) {	unless (&files_exist($r, $symb)) {
$r->print(&mt('There are currently no submitted documents.'));	$r->print(&mt('There are currently no submitted documents.'));
return;	return;
}	}
my $all_students =	my $all_students =
join("\n", &Apache::loncommon::get_env_multiple('form.stuinfo'));	join("\n", &Apache::loncommon::get_env_multiple('form.stuinfo'));
Line 2045 sub download_all_link {	Line 2242 sub download_all_link {
sub submit_download_link {	sub submit_download_link {
my ($request,$symb) = @_;	my ($request,$symb) = @_;
if (!$symb) { return ''; }	if (!$symb) { return ''; }
#FIXME: Figure out which type of problem this is and provide appropriate download
my $res_error;	my $res_error;
my ($partlist,$handgrade,$responseType) = &response_type($symb,$res_error);	my ($partlist,$handgrade,$responseType,$numresp,$numessay,$numdropbox) =
if (ref($res_error)) {	&response_type($symb,\$res_error);
if ($$res_error) {	if ($res_error) {
$request->print(&mt('An error occurred retrieving response types'));	$request->print(&mt('An error occurred retrieving response types'));
return;	return;
}
}	}
my ($numupload,$numessay) = (0,0);	unless ($numessay) {
if (ref($responseType) eq 'HASH') {	$request->print(&mt('No essayresponse items found'));
foreach my $part (sort(keys(%$responseType))) {	return;
foreach my $id (sort(keys(%{ $responseType->{$part} }))) {	}
my $responsetype = $responseType->{$part}->{$id};	my @chosenparts = &Apache::loncommon::get_env_multiple('form.vPart');
if ($responsetype eq 'essay') {	if (@chosenparts) {
my $uploadedfiletypes =	$request->print(&showResourceInfo($symb,$partlist,$responseType,
&Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes",$symb);	undef,undef,1));
if ($uploadedfiletypes) {
$numupload++;
} else {
$numessay++;
}
}
}
}
}	}
if (($numupload) \|\| ($numessay)) {	if ($numessay) {
my $submitonly= $env{'form.submitonly'} eq '' ? 'all' : $env{'form.submitonly'};	my $submitonly= $env{'form.submitonly'} eq '' ? 'all' : $env{'form.submitonly'};
my $getsec = $env{'form.section'} eq '' ? 'all' : $env{'form.section'};	my $getsec = $env{'form.section'} eq '' ? 'all' : $env{'form.section'};
my $getgroup = $env{'form.group'} eq '' ? 'all' : $env{'form.group'};	my $getgroup = $env{'form.group'} eq '' ? 'all' : $env{'form.group'};
Line 2080 sub submit_download_link {	Line 2267 sub submit_download_link {
my @students = map { $_.':'.$fullname->{$_} } (keys(%{$fullname}));	my @students = map { $_.':'.$fullname->{$_} } (keys(%{$fullname}));
if (@students) {	if (@students) {
@{$env{'form.stuinfo'}} = @students;	@{$env{'form.stuinfo'}} = @students;
if ($numupload) {	if ($numdropbox) {
&download_all_link($request,$symb);	&download_all_link($request,$symb);
	} else {
	$request->print(&mt('No essayrespose items with dropbox found'));
}	}
# FIXME Need to provide a mechanism to download essays, i.e., if $numessay > 0	# FIXME Need a mechanism to download essays, i.e., if $numessay > $numdropbox
# Needs to omit user's identity if resource instance is for an anonymous survey.	# Needs to omit user's identity if resource instance is for an anonymous survey.
} else {	} else {
$request->print(&mt('No students match the criteria you selected'));	$request->print(&mt('No students match the criteria you selected'));
Line 2112 sub build_section_inputs {	Line 2301 sub build_section_inputs {

# --------------------------- show submissions of a student, option to grade	# --------------------------- show submissions of a student, option to grade
sub submission {	sub submission {
my ($request,$counter,$total,$symb) = @_;	my ($request,$counter,$total,$symb,$divforres,$calledby) = @_;
my ($uname,$udom) = ($env{'form.student'},$env{'form.userdom'});	my ($uname,$udom) = ($env{'form.student'},$env{'form.userdom'});
$udom = ($udom eq '' ? $env{'user.domain'} : $udom); #has form.userdom changed for a student?	$udom = ($udom eq '' ? $env{'user.domain'} : $udom); #has form.userdom changed for a student?
my $usec = &Apache::lonnet::getsection($udom,$uname,$env{'request.course.id'});	my $usec = &Apache::lonnet::getsection($udom,$uname,$env{'request.course.id'});
$env{'form.fullname'} = &Apache::loncommon::plainname($uname,$udom,'lastname') if $env{'form.fullname'} eq '';	$env{'form.fullname'} = &Apache::loncommon::plainname($uname,$udom,'lastname') if $env{'form.fullname'} eq '';

my $probtitle=&Apache::lonnet::gettitle($symb);
if ($symb eq '') { $request->print("Unable to handle ambiguous references:."); return ''; }	if ($symb eq '') { $request->print("Unable to handle ambiguous references:."); return ''; }
	my $probtitle=&Apache::lonnet::gettitle($symb);
my $is_tool = ($symb =~ /ext\.tool$/);	my $is_tool = ($symb =~ /ext\.tool$/);
my ($essayurl,%coursedesc_by_cid);	my ($essayurl,%coursedesc_by_cid);

Line 2133 sub submission {	Line 2322 sub submission {
return;	return;
}	}

	my $res_error;
	my ($partlist,$handgrade,$responseType,$numresp,$numessay) =
	&response_type($symb,\$res_error);
	if ($res_error) {
	$request->print(&navmap_errormsg());
	return;
	}

if (!$env{'form.lastSub'}) { $env{'form.lastSub'} = 'datesub'; }	if (!$env{'form.lastSub'}) { $env{'form.lastSub'} = 'datesub'; }
unless ($is_tool) {	unless ($is_tool) {
if (!$env{'form.vProb'}) { $env{'form.vProb'} = 'yes'; }	if (!$env{'form.vProb'}) { $env{'form.vProb'} = 'yes'; }
if (!$env{'form.vAns'}) { $env{'form.vAns'} = 'yes'; }	if (!$env{'form.vAns'}) { $env{'form.vAns'} = 'yes'; }
}	}
	if (($numessay) && ($calledby eq 'submission') && (!exists($env{'form.compmsg'}))) {
	$env{'form.compmsg'} = 1;
	}
my $last = ($env{'form.lastSub'} eq 'last' ? 'last' : '');	my $last = ($env{'form.lastSub'} eq 'last' ? 'last' : '');
my $checkIcon = '<img alt="'.&mt('Check Mark').	my $checkIcon = '<img alt="'.&mt('Check Mark').
'" src="'.$request->dir_config('lonIconsURL').	'" src="'.$request->dir_config('lonIconsURL').
Line 2145 sub submission {	Line 2345 sub submission {

# header info	# header info
if ($counter == 0) {	if ($counter == 0) {
	my @chosenparts = &Apache::loncommon::get_env_multiple('form.vPart');
	if (@chosenparts) {
	$request->print(&showResourceInfo($symb,$partlist,$responseType,'gradesub'));
	} elsif ($divforres) {
	$request->print('<div style="padding:0;clear:both;margin:0;border:0"></div>');
	} else {
	$request->print('<br clear="all" />');
	}
&sub_page_js($request);	&sub_page_js($request);
&sub_page_kw_js($request);	&sub_grademessage_js($request) if ($env{'form.compmsg'});
	&sub_page_kw_js($request) if ($numessay);

# option to display problem, only once else it cause problems	# option to display problem, only once else it cause problems
# with the form later since the problem has a form.	# with the form later since the problem has a form.
Line 2163 sub submission {	Line 2372 sub submission {
$request->print(&show_problem($request,$symb,$uname,$udom,0,1,$mode));	$request->print(&show_problem($request,$symb,$uname,$udom,0,1,$mode));
}	}

# kwclr is the only variable that is guaranteed not to be blank
# if this subroutine has been called once.
my %keyhash = ();	my %keyhash = ();
# if ($env{'form.kwclr'} eq '' && $env{'form.handgrade'} eq 'yes') {	if (($env{'form.kwclr'} eq '' && $numessay) \|\| ($env{'form.compmsg'})) {
if (1) {
%keyhash = &Apache::lonnet::dump('nohist_handgrade',	%keyhash = &Apache::lonnet::dump('nohist_handgrade',
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});
	}
	# kwclr is the only variable that is guaranteed not to be blank
	# if this subroutine has been called once.
	if ($env{'form.kwclr'} eq '' && $numessay) {
my $loginuser = $env{'user.name'}.':'.$env{'user.domain'};	my $loginuser = $env{'user.name'}.':'.$env{'user.domain'};
$env{'form.keywords'} = $keyhash{$symb.'_keywords'} ne '' ? $keyhash{$symb.'_keywords'} : '';	$env{'form.keywords'} = $keyhash{$symb.'_keywords'} ne '' ? $keyhash{$symb.'_keywords'} : '';
$env{'form.kwclr'} = $keyhash{$loginuser.'_kwclr'} ne '' ? $keyhash{$loginuser.'_kwclr'} : 'red';	$env{'form.kwclr'} = $keyhash{$loginuser.'_kwclr'} ne '' ? $keyhash{$loginuser.'_kwclr'} : 'red';
$env{'form.kwsize'} = $keyhash{$loginuser.'_kwsize'} ne '' ? $keyhash{$loginuser.'_kwsize'} : '0';	$env{'form.kwsize'} = $keyhash{$loginuser.'_kwsize'} ne '' ? $keyhash{$loginuser.'_kwsize'} : '0';
$env{'form.kwstyle'} = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : '';	$env{'form.kwstyle'} = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : '';
$env{'form.msgsub'} = $keyhash{$symb.'_subject'} ne '' ?	}
	if ($env{'form.compmsg'}) {
	$env{'form.msgsub'} = $keyhash{$symb.'_subject'} ne '' ?
$keyhash{$symb.'_subject'} : $probtitle;	$keyhash{$symb.'_subject'} : $probtitle;
$env{'form.savemsgN'} = $keyhash{$symb.'_savemsgN'} ne '' ? $keyhash{$symb.'_savemsgN'} : '0';	$env{'form.savemsgN'} = $keyhash{$symb.'_savemsgN'} ne '' ? $keyhash{$symb.'_savemsgN'} : '0';
}	}

my $overRideScore = $env{'form.overRideScore'} eq '' ? 'no' : $env{'form.overRideScore'};	my $overRideScore = $env{'form.overRideScore'} eq '' ? 'no' : $env{'form.overRideScore'};
my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));	my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));
$request->print('<form action="/adm/grades" method="post" name="SCORE" enctype="multipart/form-data">'."\n".	$request->print('<form action="/adm/grades" method="post" name="SCORE" enctype="multipart/form-data">'."\n".
Line 2194 sub submission {	Line 2406 sub submission {
'<input type="hidden" name="vProb" value="'.$env{'form.vProb'}.'" />'."\n".	'<input type="hidden" name="vProb" value="'.$env{'form.vProb'}.'" />'."\n".
'<input type="hidden" name="vAns" value="'.$env{'form.vAns'}.'" />'."\n".	'<input type="hidden" name="vAns" value="'.$env{'form.vAns'}.'" />'."\n".
'<input type="hidden" name="lastSub" value="'.$env{'form.lastSub'}.'" />'."\n".	'<input type="hidden" name="lastSub" value="'.$env{'form.lastSub'}.'" />'."\n".
	'<input type="hidden" name="compmsg" value="'.$env{'form.compmsg'}.'" />'."\n".
&build_section_inputs().	&build_section_inputs().
'<input type="hidden" name="submitonly" value="'.$env{'form.submitonly'}.'" />'."\n".	'<input type="hidden" name="submitonly" value="'.$env{'form.submitonly'}.'" />'."\n".
'<input type="hidden" name="NCT"'.	'<input type="hidden" name="NCT"'.
' value="'.($env{'form.NTSTU'} ne '' ? $env{'form.NTSTU'} : $total+1).'" />'."\n");	' value="'.($env{'form.NTSTU'} ne '' ? $env{'form.NTSTU'} : $total+1).'" />'."\n");
# if ($env{'form.handgrade'} eq 'yes') {	if ($env{'form.compmsg'}) {
if (1) {	$request->print('<input type="hidden" name="msgsub" value="'.$env{'form.msgsub'}.'" />'."\n".
	'<input type="hidden" name="shownSub" value="0" />'."\n".
	'<input type="hidden" name="savemsgN" value="'.$env{'form.savemsgN'}.'" />'."\n");
	}
	if ($numessay) {
$request->print('<input type="hidden" name="keywords" value="'.$env{'form.keywords'}.'" />'."\n".	$request->print('<input type="hidden" name="keywords" value="'.$env{'form.keywords'}.'" />'."\n".
'<input type="hidden" name="kwclr" value="'.$env{'form.kwclr'}.'" />'."\n".	'<input type="hidden" name="kwclr" value="'.$env{'form.kwclr'}.'" />'."\n".
'<input type="hidden" name="kwsize" value="'.$env{'form.kwsize'}.'" />'."\n".	'<input type="hidden" name="kwsize" value="'.$env{'form.kwsize'}.'" />'."\n".
'<input type="hidden" name="kwstyle" value="'.$env{'form.kwstyle'}.'" />'."\n".	'<input type="hidden" name="kwstyle" value="'.$env{'form.kwstyle'}.'" />'."\n");
'<input type="hidden" name="msgsub" value="'.$env{'form.msgsub'}.'" />'."\n".
'<input type="hidden" name="shownSub" value="0" />'."\n".
'<input type="hidden" name="savemsgN" value="'.$env{'form.savemsgN'}.'" />'."\n");
foreach my $partid (&Apache::loncommon::get_env_multiple('form.vPart')) {
$request->print('<input type="hidden" name="vPart" value="'.$partid.'" />'."\n");
}
}	}

my ($cts,$prnmsg) = (1,'');	my ($cts,$prnmsg) = (1,'');
while ($cts <= $env{'form.savemsgN'}) {	while ($cts <= $env{'form.savemsgN'}) {
$prnmsg.='<input type="hidden" name="savemsg'.$cts.'" value="'.	$prnmsg.='<input type="hidden" name="savemsg'.$cts.'" value="'.
Line 2224 sub submission {	Line 2435 sub submission {
}	}
$request->print($prnmsg);	$request->print($prnmsg);

# if ($env{'form.handgrade'} eq 'yes') {	if ($numessay) {
unless ($is_tool) {

my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
keyh => 'Keyword Highlighting for Essays',	keyh => 'Keyword Highlighting for Essays',
Line 2233 sub submission {	Line 2443 sub submission {
list => 'List',	list => 'List',
past => 'Paste Selection to List',	past => 'Paste Selection to List',
high => 'Highlight Attribute',	high => 'Highlight Attribute',
);	);
#	#
# Print out the keyword options line	# Print out the keyword options line
#	#
Line 2313 sub submission {	Line 2523 sub submission {
}	}

my %record = &Apache::lonnet::restore($symb,$env{'request.course.id'},$udom,$uname);	my %record = &Apache::lonnet::restore($symb,$env{'request.course.id'},$udom,$uname);
my $res_error;
my ($partlist,$handgrade,$responseType) = &response_type($symb,\$res_error);
if ($res_error) {
$request->print(&navmap_errormsg());
return;
}

# Display student info	# Display student info
$request->print(($counter == 0 ? '' : '<br />'));	$request->print(($counter == 0 ? '' : '<br />'));
Line 2331 sub submission {	Line 2535 sub submission {
.'<h3 class="LC_hcell">'.$boxtitle.'</h3>';	.'<h3 class="LC_hcell">'.$boxtitle.'</h3>';
$result.='<input type="hidden" name="name'.$counter.	$result.='<input type="hidden" name="name'.$counter.
'" value="'.$env{'form.fullname'}.'" />'."\n";	'" value="'.$env{'form.fullname'}.'" />'."\n";
# if ($env{'form.handgrade'} eq 'no') {	if (($numresp > $numessay) && !$is_tool) {
unless ($is_tool) {
$result.='<p class="LC_info">'	$result.='<p class="LC_info">'
.&mt('Part(s) graded correct by the computer is marked with a [_1] symbol.',$checkIcon)	.&mt('Part(s) graded correct by the computer is marked with a [_1] symbol.',$checkIcon)
."</p>\n";	."</p>\n";
}	}

# If any part of the problem is an essay-response (handgraded), then check for collaborators	# If any part of the problem is an essayresponse, then check for collaborators
my $fullname;	my $fullname;
my $col_fullnames = [];	my $col_fullnames = [];
# if ($env{'form.handgrade'} eq 'yes') {	if ($numessay) {
unless ($is_tool) {
(my $sub_result,$fullname,$col_fullnames)=	(my $sub_result,$fullname,$col_fullnames)=
&check_collaborators($symb,$uname,$udom,\%record,$handgrade,	&check_collaborators($symb,$uname,$udom,\%record,$handgrade,
$counter);	$counter);
$result.=$sub_result;	$result.=$sub_result;
}	}
$request->print($result."\n");	$request->print($result."\n");

# print student answer/submission	# print student answer/submission
# Options are (1) Handgraded submission only	# Options are (1) Last submission only
# (2) Last submission, includes submission that is not handgraded	# (2) Last submission (with detailed information for that submission)
# (for multi-response type part)	# (3) All transactions (by date)
# (3) Last submission plus the parts info	# (4) The whole record (with detailed information for all transactions)
# (4) The whole record for this student

my ($string,$timestamp)= &get_last_submission(\%record,$is_tool);	my ($string,$timestamp)= &get_last_submission(\%record,$is_tool);

my $lastsubonly;	my $lastsubonly;

if ($$timestamp eq '') {	if ($$timestamp eq '') {
Line 2375 sub submission {	Line 2576 sub submission {
my %seenparts;	my %seenparts;
my @part_response_id = &flatten_responseType($responseType);	my @part_response_id = &flatten_responseType($responseType);
foreach my $part (@part_response_id) {	foreach my $part (@part_response_id) {
next if ($env{'form.lastSub'} eq 'hdgrade'
&& $$handgrade{$$part[0].'_'.$$part[1]} ne 'yes');

my ($partid,$respid) = @{ $part };	my ($partid,$respid) = @{ $part };
my $display_part=&get_display_part($partid,$symb);	my $display_part=&get_display_part($partid,$symb);
if ($env{"form.$uname:$udom:$partid:submitted_by"}) {	if ($env{"form.$uname:$udom:$partid:submitted_by"}) {
Line 2392 sub submission {	Line 2590 sub submission {
$$fullname{$env{"form.$uname:$udom:$partid:submitted_by"}}.'</a>').	$$fullname{$env{"form.$uname:$udom:$partid:submitted_by"}}.'</a>').
'<br />');	'<br />');
next;	next;
}	}
my $responsetype = $responseType->{$partid}->{$respid};	my $responsetype = $responseType->{$partid}->{$respid};
if (!exists($record{"resource.$partid.$respid.submission"})) {	if (!exists($record{"resource.$partid.$respid.submission"})) {
$lastsubonly.="\n".'<div class="LC_grade_submission_part">'.	$lastsubonly.="\n".'<div class="LC_grade_submission_part">'.
Line 2416 sub submission {	Line 2614 sub submission {
$rndseed = $record{"resource.$partid.rndseed"};	$rndseed = $record{"resource.$partid.rndseed"};
}	}
if ($env{'form.checkPlag'}) {	if ($env{'form.checkPlag'}) {
my ($oname,$odom,$ocrsid,$oessay,$osim)=	my ($oname,$odom,$ocrsid,$oessay,$osim)=
&most_similar($uname,$udom,$symb,$subval);	&most_similar($uname,$udom,$symb,$subval);
if ($osim) {	if ($osim) {
$osim=int($osim*100.0);	$osim=int($osim*100.0);
if ($hide eq 'anon') {	if ($hide eq 'anon') {
Line 2471 sub submission {	Line 2669 sub submission {
}	}
my $order=&get_order($partid,$respid,$symb,$uname,$udom,	my $order=&get_order($partid,$respid,$symb,$uname,$udom,
undef,$type,$trial,$rndseed);	undef,$type,$trial,$rndseed);
if ($env{'form.lastSub'} eq 'lastonly' \|\| $env{'form.lastSub'} eq 'datesub' \|\| $env{'form.lastSub'} =~ /^(last\|all)$/ \|\| ($env{'form.lastSub'} eq 'hdgrade' &&	if (($env{'form.lastSub'} eq 'lastonly') \|\|
$$handgrade{$$part[0].'_'.$$part[1]} eq 'yes')) {	($env{'form.lastSub'} eq 'datesub') \|\|
	($env{'form.lastSub'} =~ /^(last\|all)$/)) {
my $display_part=&get_display_part($partid,$symb);	my $display_part=&get_display_part($partid,$symb);
$lastsubonly.='<div class="LC_grade_submission_part">'.	$lastsubonly.='<div class="LC_grade_submission_part">'.
'<b>'.&mt('Part: [_1]',$display_part).'</b>'.	'<b>'.&mt('Part: [_1]',$display_part).'</b>'.
Line 2480 sub submission {	Line 2679 sub submission {
'('.&mt('Response ID: [_1]',$respid).')'.	'('.&mt('Response ID: [_1]',$respid).')'.
'</span>   ';	'</span>   ';
my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);	my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);

if (@$files) {	if (@$files) {
if ($hide eq 'anon') {	if ($hide eq 'anon') {
$lastsubonly.='<br />'.&mt('[quant,_1,file] uploaded to this anonymous survey',scalar(@{$files}));	$lastsubonly.='<br />'.&mt('[quant,_1,file] uploaded to this anonymous survey',scalar(@{$files}));
Line 2492 sub submission {	Line 2690 sub submission {
} else {	} else {
$lastsubonly .= &mt('Like all files provided by users, these files may contain viruses!');	$lastsubonly .= &mt('Like all files provided by users, these files may contain viruses!');
}	}
$lastsubonly .= '</span>';	$lastsubonly .= '</span>';
foreach my $file (@$files) {	foreach my $file (@$files) {
&Apache::lonnet::allowuploaded('/adm/grades',$file);	&Apache::lonnet::allowuploaded('/adm/grades',$file);
$lastsubonly.='<br /><a href="'.$file.'?rawmode=1" target="lonGRDs"><img src="'.&Apache::loncommon::icon($file).'" border="0" alt="" /> '.$file.'</a>';	$lastsubonly.='<br /><a href="'.$file.'?rawmode=1" target="lonGRDs"><img src="'.&Apache::loncommon::icon($file).'" border="0" alt="" /> '.$file.'</a>';
Line 2503 sub submission {	Line 2701 sub submission {
if ($hide eq 'anon') {	if ($hide eq 'anon') {
$lastsubonly.='<br /><b>'.&mt('Anonymous Survey').'</b>';	$lastsubonly.='<br /><b>'.&mt('Anonymous Survey').'</b>';
} else {	} else {
$lastsubonly.='<br /><b>'.&mt('Submitted Answer:').' </b>';	$lastsubonly.='<br /><b>'.&mt('Submitted Answer:').' </b>';
if ($draft) {	if ($draft) {
$lastsubonly.= ' <span class="LC_warning">'.&mt('Draft Copy').'</span>';	$lastsubonly.= ' <span class="LC_warning">'.&mt('Draft Copy').'</span>';
}	}
Line 2515 sub submission {	Line 2713 sub submission {
}	}
$lastsubonly.=$subval."\n";	$lastsubonly.=$subval."\n";
}	}
if ($similar) {$lastsubonly.="<br /><br />$similar\n";}	if ($similar) {$lastsubonly.="<br /><br />$similar\n";}
$lastsubonly.='</div>';	$lastsubonly.='</div>';
}	}
}	}
Line 2526 sub submission {	Line 2724 sub submission {
if ($env{'form.lastSub'} eq 'datesub') {	if ($env{'form.lastSub'} eq 'datesub') {
my ($parts,$handgrade,$responseType) = &response_type($symb,\$res_error);	my ($parts,$handgrade,$responseType) = &response_type($symb,\$res_error);
$request->print(&displaySubByDates($symb,\%record,$parts,$responseType,$checkIcon,$uname,$udom));	$request->print(&displaySubByDates($symb,\%record,$parts,$responseType,$checkIcon,$uname,$udom));
	}
}
if ($env{'form.lastSub'} =~ /^(last\|all)$/) {	if ($env{'form.lastSub'} =~ /^(last\|all)$/) {
my $identifier = (&canmodify($usec)? $counter : '');	my $identifier = (&canmodify($usec)? $counter : '');
$request->print(&Apache::loncommon::get_previous_attempt($symb,$uname,$udom,	$request->print(&Apache::loncommon::get_previous_attempt($symb,$uname,$udom,
Line 2546 sub submission {	Line 2743 sub submission {
$request->print('</div>'."\n");	$request->print('</div>'."\n");
}	}

# essay grading message center	# grading message center
# if ($env{'form.handgrade'} eq 'yes') {
if (1) {	if ($env{'form.compmsg'}) {
my $result='<div class="LC_grade_message_center">';	my $result='<div class="LC_Box">'.
	'<h3 class="LC_hcell">'.&mt('Send Message').'</h3>'.
$result.='<div class="LC_grade_message_center_header">'.	'<div class="LC_grade_message_center_body">';
&mt('Send Message').'</div><div class="LC_grade_message_center_body">';	my ($lastname,$givenn) = split(/,/,$env{'form.fullname'});
my ($lastname,$givenn) = split(/,/,$env{'form.fullname'});	my $msgfor = $givenn.' '.$lastname;
my $msgfor = $givenn.' '.$lastname;	if (scalar(@$col_fullnames) > 0) {
if (scalar(@$col_fullnames) > 0) {	my $lastone = pop(@$col_fullnames);
my $lastone = pop(@$col_fullnames);	$msgfor .= ', '.(join ', ',@$col_fullnames).' and '.$lastone.'.';
$msgfor .= ', '.(join ', ',@$col_fullnames).' and '.$lastone.'.';	}
}	$msgfor =~ s/\'/\\'/g; #' stupid emacs - no! javascript
$msgfor =~ s/\'/\\'/g; #' stupid emacs - no! javascript	$result.='<input type="hidden" name="includemsg'.$counter.'" value="" />'."\n".
$result.='<input type="hidden" name="includemsg'.$counter.'" value="" />'."\n".	'<input type="hidden" name="newmsg'.$counter.'" value="" />'."\n".
'<input type="hidden" name="newmsg'.$counter.'" value="" />'."\n";	' <a href="javascript:msgCenter(document.SCORE,'.$counter.
$result.=' <a href="javascript:msgCenter(document.SCORE,'.$counter.	',\''.$msgfor.'\');" target="_self">'.
',\''.$msgfor.'\');" target="_self">'.	&mt('Compose message to student'.(scalar(@$col_fullnames) >= 1 ? 's' : '')).'</a><label> ('.
&mt('Compose message to student'.(scalar(@$col_fullnames) >= 1 ? 's' : '')).'</a><label> ('.	&mt('incl. grades').' <input type="checkbox" name="withgrades'.$counter.'" /></label>)'.
&mt('incl. grades').' <input type="checkbox" name="withgrades'.$counter.'" /></label>)'.	' <img src="'.$request->dir_config('lonIconsURL').
' <img src="'.$request->dir_config('lonIconsURL').	'/mailbkgrd.gif" width="14" height="10" alt="" name="mailicon'.$counter.'" />'."\n".
'/mailbkgrd.gif" width="14" height="10" alt="" name="mailicon'.$counter.'" />'."\n".	'<br /> ('.
'<br /> ('.	&mt('Message will be sent when you click on Save & Next below.').")\n".
&mt('Message will be sent when you click on Save & Next below.').")\n";	'</div></div>';
$result.='</div></div>';	$request->print($result);
$request->print($result);
}	}

my %seen = ();	my %seen = ();
Line 2593 sub submission {	Line 2789 sub submission {
my $part_resp = join('_',@{ $part_response_id });	my $part_resp = join('_',@{ $part_response_id });
next if ($seen{$partid} > 0);	next if ($seen{$partid} > 0);
$seen{$partid}++;	$seen{$partid}++;
next if ($$handgrade{$part_resp} ne 'yes'
&& $env{'form.lastSub'} eq 'hdgrade');
push(@partlist,$partid);	push(@partlist,$partid);
push(@gradePartRespid,$partid.'.'.$respid);	push(@gradePartRespid,$partid.'.'.$respid);
$request->print(&gradeBox($request,$symb,$uname,$udom,$counter,$partid,\%record));	$request->print(&gradeBox($request,$symb,$uname,$udom,$counter,$partid,\%record));
Line 2990 sub processHandGrade {	Line 3184 sub processHandGrade {
my $ntstu = $env{'form.NTSTU'};	my $ntstu = $env{'form.NTSTU'};
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 ($res_error,%queueable);
	my ($partlist,$handgrade,$responseType,$numresp,$numessay) = &response_type($symb,\$res_error);
	if ($res_error) {
	$request->print(&navmap_errormsg());
	return;
	} else {
	foreach my $part (@{$partlist}) {
	if (ref($responseType->{$part}) eq 'HASH') {
	foreach my $id (keys(%{$responseType->{$part}})) {
	if (($responseType->{$part}->{$id} eq 'essay') \|\|
	(lc($handgrade->{$part.'_'.$id}) eq 'yes')) {
	$queueable{$part} = 1;
	last;
	}
	}
	}
	}
	}

if ($button eq 'Save & Next') {	if ($button eq 'Save & Next') {
my $ctr = 0;	my $ctr = 0;
while ($ctr < $ngrade) {	while ($ctr < $ngrade) {
my ($uname,$udom) = split(/:/,$env{'form.unamedom'.$ctr});	my ($uname,$udom) = split(/:/,$env{'form.unamedom'.$ctr});
my ($errorflag,$pts,$wgt,$numhidden) =	my ($errorflag,$pts,$wgt,$numhidden) =
&saveHandGrade($request,$symb,$uname,$udom,$ctr);	&saveHandGrade($request,$symb,$uname,$udom,$ctr,undef,undef,\%queueable);
if ($errorflag eq 'no_score') {	if ($errorflag eq 'no_score') {
$ctr++;	$ctr++;
next;	next;
Line 3051 sub processHandGrade {	Line 3263 sub processHandGrade {
foreach my $collaborator (@collaborators) {	foreach my $collaborator (@collaborators) {
my ($errorflag,$pts,$wgt) =	my ($errorflag,$pts,$wgt) =
&saveHandGrade($request,$symb,$collaborator,$udom,$ctr,	&saveHandGrade($request,$symb,$collaborator,$udom,$ctr,
$env{'form.unamedom'.$ctr},$part);	$env{'form.unamedom'.$ctr},$part,\%queueable);
if ($errorflag eq 'not_allowed') {	if ($errorflag eq 'not_allowed') {
$request->print("<span class=\"LC_error\">".&mt('Not allowed to modify grades for [_1]',"$collaborator:$udom")."</span>");	$request->print("<span class=\"LC_error\">".&mt('Not allowed to modify grades for [_1]',"$collaborator:$udom")."</span>");
next;	next;
Line 3073 sub processHandGrade {	Line 3285 sub processHandGrade {
}	}
}	}

# if ($env{'form.handgrade'} eq 'yes') {	my %keyhash = ();
if (1) {	if ($numessay) {
# Keywords sorted in alphabatical order	# Keywords sorted in alphabatical order
my $loginuser = $env{'user.name'}.':'.$env{'user.domain'};	my $loginuser = $env{'user.name'}.':'.$env{'user.domain'};
my %keyhash = ();
$env{'form.keywords'} =~ s/,\s{0,}\|\s+/ /g;	$env{'form.keywords'} =~ s/,\s{0,}\|\s+/ /g;
$env{'form.keywords'} =~ s/^\s+\|\s+$//;	$env{'form.keywords'} =~ s/^\s+\|\s+$//g;
my (@keywords) = sort(split(/\s+/,$env{'form.keywords'}));	my (@keywords) = sort(split(/\s+/,$env{'form.keywords'}));
$env{'form.keywords'} = join(' ',@keywords);	$env{'form.keywords'} = join(' ',@keywords);
$keyhash{$symb.'_keywords'} = $env{'form.keywords'};	$keyhash{$symb.'_keywords'} = $env{'form.keywords'};
Line 3087 sub processHandGrade {	Line 3298 sub processHandGrade {
$keyhash{$loginuser.'_kwclr'} = $env{'form.kwclr'};	$keyhash{$loginuser.'_kwclr'} = $env{'form.kwclr'};
$keyhash{$loginuser.'_kwsize'} = $env{'form.kwsize'};	$keyhash{$loginuser.'_kwsize'} = $env{'form.kwsize'};
$keyhash{$loginuser.'_kwstyle'} = $env{'form.kwstyle'};	$keyhash{$loginuser.'_kwstyle'} = $env{'form.kwstyle'};
	}

	if ($env{'form.compmsg'}) {
# message center - Order of message gets changed. Blank line is eliminated.	# message center - Order of message gets changed. Blank line is eliminated.
# New messages are saved in env for the next student.	# New messages are saved in env for the next student.
# All messages are saved in nohist_handgrade.db	# All messages are saved in nohist_handgrade.db
Line 3102 sub processHandGrade {	Line 3315 sub processHandGrade {
$ctr = 0;	$ctr = 0;
while ($ctr < $ngrade) {	while ($ctr < $ngrade) {
if ($env{'form.newmsg'.$ctr} ne '') {	if ($env{'form.newmsg'.$ctr} ne '') {
$keyhash{$symb.'_savemsg'.$idx} = $env{'form.newmsg'.$ctr};	$keyhash{$symb.'_savemsg'.$idx} = $env{'form.newmsg'.$ctr};
$env{'form.savemsg'.$idx} = $env{'form.newmsg'.$ctr};	$env{'form.savemsg'.$idx} = $env{'form.newmsg'.$ctr};
$idx++;	$idx++;
}	}
$ctr++;	$ctr++;
}	}
$env{'form.savemsgN'} = --$idx;	$env{'form.savemsgN'} = --$idx;
$keyhash{$symb.'_savemsgN'} = $env{'form.savemsgN'};	$keyhash{$symb.'_savemsgN'} = $env{'form.savemsgN'};
my $putresult = &Apache::lonnet::put
('nohist_handgrade',\%keyhash,$cdom,$cnum);
}	}
	if (($numessay) \|\| ($env{'form.compmsg'})) {
	my $putresult = &Apache::lonnet::put
	('nohist_handgrade',\%keyhash,$cdom,$cnum);
	}

# Called by Save & Refresh from Highlight Attribute Window	# Called by Save & Refresh from Highlight Attribute Window
my (undef,undef,$fullname) = &getclasslist($env{'form.section'},'1');	my (undef,undef,$fullname) = &getclasslist($env{'form.section'},'1');
if ($env{'form.refresh'} eq 'on') {	if ($env{'form.refresh'} eq 'on') {
Line 3152 sub processHandGrade {	Line 3368 sub processHandGrade {
}	}
return $a cmp $b;	return $a cmp $b;
} (keys(%$fullname))) {	} (keys(%$fullname))) {
# FIXME: this is fishy, looks like the button label
if ($nextflg == 1 && $button =~ /Next$/) {	if ($nextflg == 1 && $button =~ /Next$/) {
push(@parsedlist,$item);	push(@parsedlist,$item);
}	}
Line 3163 sub processHandGrade {	Line 3378 sub processHandGrade {
}	}
}	}
$ctr = 0;	$ctr = 0;
# FIXME: this is fishy, looks like the button label
@parsedlist = reverse @parsedlist if ($button eq 'Previous');	@parsedlist = reverse @parsedlist if ($button eq 'Previous');
my $res_error;
my ($partlist) = &response_type($symb,\$res_error);
if ($res_error) {
$request->print(&navmap_errormsg());
return;
}
foreach my $student (@parsedlist) {	foreach my $student (@parsedlist) {
my $submitonly=$env{'form.submitonly'};	my $submitonly=$env{'form.submitonly'};
my ($uname,$udom) = split(/:/,$student);	my ($uname,$udom) = split(/:/,$student);
Line 3228 sub processHandGrade {	Line 3436 sub processHandGrade {

#---- Save the score and award for each student, if changed	#---- Save the score and award for each student, if changed
sub saveHandGrade {	sub saveHandGrade {
my ($request,$symb,$stuname,$domain,$newflg,$submitter,$part) = @_;	my ($request,$symb,$stuname,$domain,$newflg,$submitter,$part,$queueable) = @_;
my @version_parts;	my @version_parts;
my $usec = &Apache::lonnet::getsection($domain,$stuname,	my $usec = &Apache::lonnet::getsection($domain,$stuname,
$env{'request.course.id'});	$env{'request.course.id'});
Line 3340 sub saveHandGrade {	Line 3548 sub saveHandGrade {
&Apache::lonnet::cstore(\%newrecord,$symb,	&Apache::lonnet::cstore(\%newrecord,$symb,
$env{'request.course.id'},$domain,$stuname);	$env{'request.course.id'},$domain,$stuname);
&check_and_remove_from_queue(\@parts,\%record,\%newrecord,$symb,	&check_and_remove_from_queue(\@parts,\%record,\%newrecord,$symb,
$cdom,$cnum,$domain,$stuname);	$cdom,$cnum,$domain,$stuname,$queueable);
}	}
if ($aggregateflag) {	if ($aggregateflag) {
&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,	&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,
Line 3380 sub makehidden {	Line 3588 sub makehidden {
}	}

sub check_and_remove_from_queue {	sub check_and_remove_from_queue {
my ($parts,$record,$newrecord,$symb,$cdom,$cnum,$domain,$stuname) = @_;	my ($parts,$record,$newrecord,$symb,$cdom,$cnum,$domain,$stuname,$queueable) = @_;
my @ungraded_parts;	my @ungraded_parts;
foreach my $part (@{$parts}) {	foreach my $part (@{$parts}) {
if ( $record->{ 'resource.'.$part.'.awarded'} eq ''	if ( $record->{ 'resource.'.$part.'.awarded'} eq ''
Line 3388 sub check_and_remove_from_queue {	Line 3596 sub check_and_remove_from_queue {
&& $newrecord->{'resource.'.$part.'.awarded'} eq ''	&& $newrecord->{'resource.'.$part.'.awarded'} eq ''
&& $newrecord->{'resource.'.$part.'.solved' } ne 'excused'	&& $newrecord->{'resource.'.$part.'.solved' } ne 'excused'
) {	) {
push(@ungraded_parts, $part);	if ($queueable->{$part}) {
	push(@ungraded_parts, $part);
	}
}	}
}	}
if ( !@ungraded_parts ) {	if ( !@ungraded_parts ) {
Line 3423 sub handback_files {	Line 3633 sub handback_files {
&Apache::lonnet::file_name_version_ext($answer_file);	&Apache::lonnet::file_name_version_ext($answer_file);
my ($portfolio_path) = ($directory =~ /^.+$stuname\/portfolio(.*)/);	my ($portfolio_path) = ($directory =~ /^.+$stuname\/portfolio(.*)/);
my $getpropath = 1;	my $getpropath = 1;
my ($dir_list,$listerror) =	my ($dir_list,$listerror) =
&Apache::lonnet::dirlist($portfolio_root.$portfolio_path,	&Apache::lonnet::dirlist($portfolio_root.$portfolio_path,
$domain,$stuname,$getpropath);	$domain,$stuname,$getpropath);
my $version = &Apache::lonnet::get_next_version($answer_name,$answer_ext,$dir_list);	my $version = &Apache::lonnet::get_next_version($answer_name,$answer_ext,$dir_list);
Line 3807 sub viewgrades {	Line 4017 sub viewgrades {
}	}

my ($common_header,$specific_header,@sections,$section_display);	my ($common_header,$specific_header,@sections,$section_display);
@sections = &Apache::loncommon::get_env_multiple('form.section');	if ($env{'request.course.sec'} ne '') {
	@sections = ($env{'request.course.sec'});
	} else {
	@sections = &Apache::loncommon::get_env_multiple('form.section');
	}

	# Check if Save button should be usable
	my $disabled = ' disabled="disabled"';
	if ($perm{'mgr'}) {
	if (grep(/^all$/,@sections)) {
	undef($disabled);
	} else {
	foreach my $sec (@sections) {
	if (&canmodify($sec)) {
	undef($disabled);
	last;
	}
	}
	}
	}
if (grep(/^all$/,@sections)) {	if (grep(/^all$/,@sections)) {
@sections = ('all');	@sections = ('all');
if ($group_display) {	if ($group_display) {
Line 3883 sub viewgrades {	Line 4112 sub viewgrades {
my $part_resp = join('_',@{ $part_response_id });	my $part_resp = join('_',@{ $part_response_id });
next if $seen{$partid};	next if $seen{$partid};
$seen{$partid}++;	$seen{$partid}++;
# my $handgrade=$$handgrade{$part_resp};
my $wgt = &Apache::lonnet::EXT('resource.'.$partid.'.weight',$symb);	my $wgt = &Apache::lonnet::EXT('resource.'.$partid.'.weight',$symb);
$weight{$partid} = $wgt eq '' ? '1' : $wgt;	$weight{$partid} = $wgt eq '' ? '1' : $wgt;

Line 4000 sub viewgrades {	Line 4228 sub viewgrades {
}	}
$result.=&Apache::loncommon::end_data_table();	$result.=&Apache::loncommon::end_data_table();
$result.='<input type="hidden" name="total" value="'.$ctr.'" />'."\n";	$result.='<input type="hidden" name="total" value="'.$ctr.'" />'."\n";
$result.='<input type="button" value="'.&mt('Save').'" '.	$result.='<input type="button" value="'.&mt('Save').'"'.$disabled.' '.
'onclick="javascript:submit();" target="_self" /></form>'."\n";	'onclick="javascript:submit();" target="_self" /></form>'."\n";
if ($ctr == 0) {	if ($ctr == 0) {
my $stu_status = join(' or ',&Apache::loncommon::get_env_multiple('form.Status'));	my $stu_status = join(' or ',&Apache::loncommon::get_env_multiple('form.Status'));
Line 4197 sub editgrades {	Line 4425 sub editgrades {

my $section_display = join (", ",&Apache::loncommon::get_env_multiple('form.section'));	my $section_display = join (", ",&Apache::loncommon::get_env_multiple('form.section'));
my $title='<h2>'.&mt('Current Grade Status').'</h2>';	my $title='<h2>'.&mt('Current Grade Status').'</h2>';
$title.='<h4>'.&mt('<b>Section: </b>[_1]',$section_display).'</h4>'."\n";	$title.='<h4><b>'.&mt('Section:').'</b> '.$section_display.'</h4>'."\n";

my $result= &Apache::loncommon::start_data_table().	my $result= &Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().	&Apache::loncommon::start_data_table_header_row().
Line 4263 sub editgrades {	Line 4491 sub editgrades {
&Apache::loncommon::end_data_table_header_row();	&Apache::loncommon::end_data_table_header_row();
my @noupdate;	my @noupdate;
my ($updateCtr,$noupdateCtr) = (1,1);	my ($updateCtr,$noupdateCtr) = (1,1);
	my ($got_types,%queueable);
for ($i=0; $i<$env{'form.total'}; $i++) {	for ($i=0; $i<$env{'form.total'}; $i++) {
my $user = $env{'form.ctr'.$i};	my $user = $env{'form.ctr'.$i};
my ($uname,$udom)=split(/:/,$user);	my ($uname,$udom)=split(/:/,$user);
Line 4362 sub editgrades {	Line 4591 sub editgrades {
$udom,$uname);	$udom,$uname);
my $all_graded = 1;	my $all_graded = 1;
my $none_graded = 1;	my $none_graded = 1;
	unless ($got_types) {
	my $error;
	my ($plist,$handgrd,$resptype) = &response_type($symb,\$error);
	unless ($error) {
	foreach my $part (@parts) {
	if (ref($resptype->{$part}) eq 'HASH') {
	foreach my $id (keys(%{$resptype->{$part}})) {
	if (($resptype->{$part}->{$id} eq 'essay') \|\|
	(lc($handgrd->{$part.'_'.$id}) eq 'yes')) {
	$queueable{$part} = 1;
	last;
	}
	}
	}
	}
	}
	$got_types = 1;
	}
foreach my $part (@parts) {	foreach my $part (@parts) {
if ( $record{'resource.'.$part.'.awarded'} eq '' ) {	if ($queueable{$part}) {
$all_graded = 0;	if ( $record{'resource.'.$part.'.awarded'} eq '' ) {
} else {	$all_graded = 0;
$none_graded = 0;	} else {
	$none_graded = 0;
	}
}	}
}	}

if ($all_graded \|\| $none_graded) {	if ($all_graded \|\| $none_graded) {
&Apache::bridgetask::remove_from_queue('gradingqueue',	&Apache::bridgetask::remove_from_queue('gradingqueue',
$symb,$cdom,$cnum,	$symb,$cdom,$cnum,
Line 4640 ENDUPFORM	Line 4888 ENDUPFORM


sub csvuploadmap {	sub csvuploadmap {
my ($request,$symb)= @_;	my ($request,$symb) = @_;
if (!$symb) {return '';}	if (!$symb) {return '';}

my $datatoken;	my $datatoken;
Line 4736 sub get_fields {	Line 4984 sub get_fields {
}	}

sub csvuploadassign {	sub csvuploadassign {
my ($request,$symb)= @_;	my ($request,$symb) = @_;
if (!$symb) {return '';}	if (!$symb) {return '';}
my $error_msg = '';	my $error_msg = '';
my $datatoken = &Apache::loncommon::valid_datatoken($env{'form.datatoken'});	my $datatoken = &Apache::loncommon::valid_datatoken($env{'form.datatoken'});
Line 4852 sub csvuploadassign {	Line 5100 sub csvuploadassign {
$grades{$store_key}=$entries{$fields{$dest}};	$grades{$store_key}=$entries{$fields{$dest}};
}	}
}	}
if (! %grades) {	if (! %grades) {
push(@skipped,&mt("[_1]: no data to save","$username:$domain"));	push(@skipped,&mt("[_1]: no data to save","$username:$domain"));
} else {	} else {
$grades{"resource.regrader"}="$env{'user.name'}:$env{'user.domain'}";	$grades{"resource.regrader"}="$env{'user.name'}:$env{'user.domain'}";
Line 4923 LISTJAVASCRIPT	Line 5171 LISTJAVASCRIPT
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 $getsec = $env{'form.section'} eq '' ? 'all' : $env{'form.section'};	my $getsec = $env{'form.section'} eq '' ? 'all' : $env{'form.section'};
	my $getgroup = $env{'form.group'} eq '' ? 'all' : $env{'form.group'};

my $result='<h3><span class="LC_info"> '.	my $result='<h3><span class="LC_info"> '.
&mt('Manual Grading by Page or Sequence').'</span></h3>';	&mt('Manual Grading by Page or Sequence').'</span></h3>';
Line 5012 LISTJAVASCRIPT	Line 5261 LISTJAVASCRIPT
'<th>'.&nameUserString('header').'</th>'.	'<th>'.&nameUserString('header').'</th>'.
&Apache::loncommon::end_data_table_header_row();	&Apache::loncommon::end_data_table_header_row();

my (undef,undef,$fullname) = &getclasslist($getsec,'1');	my (undef,undef,$fullname) = &getclasslist($getsec,'1',$getgroup);
my $ptr = 1;	my $ptr = 1;
foreach my $student (sort	foreach my $student (sort
{	{
Line 5239 sub displayPage {	Line 5488 sub displayPage {
}	}
$curRes = $iterator->next();	$curRes = $iterator->next();
}	}
	my $disabled;
	unless (&canmodify($usec)) {
	$disabled = ' disabled="disabled"';
	}

$studentTable.=	$studentTable.=
'</table>'."\n".	'</table>'."\n".
'<input type="button" value="'.&mt('Save').'" '.	'<input type="button" value="'.&mt('Save').'"'.$disabled.' '.
'onclick="javascript:checkSubmitPage(this.form,'.$question.');" />'.	'onclick="javascript:checkSubmitPage(this.form,'.$question.');" />'.
'</form>'."\n";	'</form>'."\n";
$request->print($studentTable);	$request->print($studentTable);
Line 5308 sub displaySubByDates {	Line 5561 sub displaySubByDates {
}	}
my @matchKey;	my @matchKey;
if ($isTask) {	if ($isTask) {
@matchKey = sort(grep /^resource\.\d+\.\Q$partid\E\.award$/,@versionKeys);	@matchKey = sort(grep(/^resource\.\d+\.\Q$partid\E\.award$/,@versionKeys));
} elsif ($is_tool) {	} elsif ($is_tool) {
@matchKey = sort(grep /^resource\.\Q$partid\E\.awarded$/,@versionKeys);	@matchKey = sort(grep(/^resource\.\Q$partid\E\.awarded$/,@versionKeys));
} else {	} else {
@matchKey = sort(grep /^resource\.\Q$partid\E\..*?\.submission$/,@versionKeys);	@matchKey = sort(grep(/^resource\.\Q$partid\E\..*?\.submission$/,@versionKeys));
}	}
# next if ($$record{"$version:resource.$partid.solved"} eq '');	# next if ($$record{"$version:resource.$partid.solved"} eq '');
my $display_part=&get_display_part($partid,$symb);	my $display_part=&get_display_part($partid,$symb);
Line 5478 sub updateGradeByPage {	Line 5731 sub updateGradeByPage {
my @displayPts=();	my @displayPts=();
my %aggregate = ();	my %aggregate = ();
my $aggregateflag = 0;	my $aggregateflag = 0;
	my %queueable;
if ($env{'form.HIDE'.$prob}) {	if ($env{'form.HIDE'.$prob}) {
my %record = &Apache::lonnet::restore($symbx,$env{'request.course.id'},$udom,$uname);	my %record = &Apache::lonnet::restore($symbx,$env{'request.course.id'},$udom,$uname);
my ($version,$parts) = split(/:/,$env{'form.HIDE'.$prob},2);	my ($version,$parts) = split(/:/,$env{'form.HIDE'.$prob},2);
Line 5487 sub updateGradeByPage {	Line 5741 sub updateGradeByPage {
foreach my $partid (@{$parts}) {	foreach my $partid (@{$parts}) {
my $newpts = $env{'form.GD_BOX'.$question.'_'.$partid};	my $newpts = $env{'form.GD_BOX'.$question.'_'.$partid};
my $oldpts = $env{'form.oldpts'.$question.'_'.$partid};	my $oldpts = $env{'form.oldpts'.$question.'_'.$partid};
	my @types = $curRes->responseType($partid);
	if (grep(/^essay$/,@types)) {
	$queueable{$partid} = 1;
	} else {
	my @ids = $curRes->responseIds($partid);
	for (my $i=0; $i < scalar(@ids); $i++) {
	my $hndgrd = &Apache::lonnet::EXT('resource.'.$partid.'_'.$ids[$i].
	'.handgrade',$symb);
	if (lc($hndgrd) eq 'yes') {
	$queueable{$partid} = 1;
	last;
	}
	}
	}
my $wgt = $env{'form.WGT'.$question.'_'.$partid} != 0 ?	my $wgt = $env{'form.WGT'.$question.'_'.$partid} != 0 ?
$env{'form.WGT'.$question.'_'.$partid} : 1;	$env{'form.WGT'.$question.'_'.$partid} : 1;
my $partial = $newpts/$wgt;	my $partial = $newpts/$wgt;
Line 5553 sub updateGradeByPage {	Line 5820 sub updateGradeByPage {
$env{'request.course.id'},	$env{'request.course.id'},
$udom,$uname);	$udom,$uname);
&check_and_remove_from_queue($parts,\%record,undef,$symbx,	&check_and_remove_from_queue($parts,\%record,undef,$symbx,
$cdom,$cnum,$udom,$uname);	$cdom,$cnum,$udom,$uname,\%queueable);
}	}

if ($aggregateflag) {	if ($aggregateflag) {
Line 5652 the homework problem.	Line 5919 the homework problem.

sub defaultFormData {	sub defaultFormData {
my ($symb)=@_;	my ($symb)=@_;
return '<input type="hidden" name="symb" value="'.&Apache::lonenc::check_encrypt($symb).'" />';	return '<input type="hidden" name="symb" value="'.&Apache::lonenc::check_encrypt($symb).'" />';
}	}


Line 5895 sub scantron_selectphase {	Line 6162 sub scantron_selectphase {

$ssi_error = 0;	$ssi_error = 0;

if (&Apache::lonnet::allowed('usc',$env{'request.role.domain'}) \|\|	if (&Apache::lonnet::allowed('usc',$env{'request.role.domain'}) \|\| $perm{'usc'}) {
&Apache::lonnet::allowed('usc',$env{'request.course.id'})) {

# Chunk of form to prompt for a scantron file upload.	# Chunk of form to prompt for a scantron file upload.

$r->print('	$r->print('
<br />');	<br />');
my $default_form_data=&defaultFormData($symb);
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 $csec= $env{'request.course.sec'};
my $alertmsg = &mt('Please use the browse button to select a file from your local directory.');	my $alertmsg = &mt('Please use the browse button to select a file from your local directory.');
&js_escape(\$alertmsg);	&js_escape(\$alertmsg);
my ($formatoptions,$formattitle,$formatjs) = &scantron_upload_dataformat($cdom);	my ($formatoptions,$formattitle,$formatjs) = &scantron_upload_dataformat($cdom);
Line 5920 sub scantron_selectphase {	Line 6186 sub scantron_selectphase {
<form enctype="multipart/form-data" action="/adm/grades" name="rules" method="post">	<form enctype="multipart/form-data" action="/adm/grades" name="rules" method="post">
'.$default_form_data.'	'.$default_form_data.'
<input name="courseid" type="hidden" value="'.$cnum.'" />	<input name="courseid" type="hidden" value="'.$cnum.'" />
	<input name="coursesec" type="hidden" value="'.$csec.'" />
<input name="domainid" type="hidden" value="'.$cdom.'" />	<input name="domainid" type="hidden" value="'.$cdom.'" />
<input name="command" value="scantronupload_save" type="hidden" />	<input name="command" value="scantronupload_save" type="hidden" />
'.&Apache::loncommon::start_data_table('LC_scantron_action').'	'.&Apache::loncommon::start_data_table('LC_scantron_action').'
Line 6000 sub scantron_selectphase {	Line 6267 sub scantron_selectphase {

$r->print($result);	$r->print($result);



# Chunk of the form that prompts to view a scoring office file,	# Chunk of the form that prompts to view a scoring office file,
# corrected file, skipped records in a file.	# corrected file, skipped records in a file.

Line 6467 sub scantron_parse_scanline {	Line 6732 sub scantron_parse_scanline {
}	}

sub get_master_seq {	sub get_master_seq {
my ($resources,$master_seq,$symb_to_resource) = @_;	my ($resources,$master_seq,$symb_to_resource,$need_symb_in_map,$symb_for_examcode) = @_;
return unless ((ref($resources) eq 'ARRAY') && (ref($master_seq) eq 'ARRAY') &&	return unless ((ref($resources) eq 'ARRAY') && (ref($master_seq) eq 'ARRAY') &&
(ref($symb_to_resource) eq 'HASH'));	(ref($symb_to_resource) eq 'HASH'));
	if ($need_symb_in_map) {
	return unless (ref($symb_for_examcode) eq 'HASH');
	}
my $resource_error;	my $resource_error;
foreach my $resource (@{$resources}) {	foreach my $resource (@{$resources}) {
my $ressymb;	my $ressymb;
Line 6477 sub get_master_seq {	Line 6745 sub get_master_seq {
$ressymb = $resource->symb();	$ressymb = $resource->symb();
push(@{$master_seq},$ressymb);	push(@{$master_seq},$ressymb);
$symb_to_resource->{$ressymb} = $resource;	$symb_to_resource->{$ressymb} = $resource;
	if ($need_symb_in_map) {
	unless ($resource->is_map()) {
	my $map=(&Apache::lonnet::decode_symb($ressymb))[0];
	unless (exists($symb_for_examcode->{$map})) {
	$symb_for_examcode->{$map} = $ressymb;
	}
	}
	}
} else {	} else {
$resource_error = 1;	$resource_error = 1;
last;	last;
Line 6979 sub scantron_warning_screen {	Line 7255 sub scantron_warning_screen {
'<tr><td><b>'.&mt('Hand-graded items: points from last bubble in row').'</b></td><td><tt>'.	'<tr><td><b>'.&mt('Hand-graded items: points from last bubble in row').'</b></td><td><tt>'.
$env{'form.scantron_lastbubblepoints'}.'</tt></td></tr>';	$env{'form.scantron_lastbubblepoints'}.'</tt></td></tr>';
}	}
return ('	return '
<p>	<p>
<span class="LC_warning">	<span class="LC_warning">
'.&mt("Please double check the information below before clicking on '[_1]'",&mt($button_text)).'</span>	'.&mt("Please double check the information below before clicking on '[_1]'",&mt($button_text)).'</span>
Line 6991 sub scantron_warning_screen {	Line 7267 sub scantron_warning_screen {
</table>	</table>
<p> '.&mt("If this information is correct, please click on '[_1]'.",&mt($button_text)).'<br />	<p> '.&mt("If this information is correct, please click on '[_1]'.",&mt($button_text)).'<br />
'.&mt('If something is incorrect, please return to [_1]Grade/Manage/Review Bubblesheets[_2] to start over.','<a href="/adm/grades?symb='.$symb.'&command=scantron_selectphase" class="LC_info">','</a>').'</p>	'.&mt('If something is incorrect, please return to [_1]Grade/Manage/Review Bubblesheets[_2] to start over.','<a href="/adm/grades?symb='.$symb.'&command=scantron_selectphase" class="LC_info">','</a>').'</p>
	';
<br />
');
}	}

=pod	=pod
Line 7019 sub scantron_do_warning {	Line 7293 sub scantron_do_warning {
}	}
if ( $env{'form.scantron_selectfile'} eq '') {	if ( $env{'form.scantron_selectfile'} eq '') {
$r->print('<p><span class="LC_error">'.&mt("You have not selected a file that contains the student's response data.").'</span></p>');	$r->print('<p><span class="LC_error">'.&mt("You have not selected a file that contains the student's response data.").'</span></p>');
}	}
if ( $env{'form.scantron_format'} eq '') {	if ( $env{'form.scantron_format'} eq '') {
$r->print('<p><span class="LC_error">'.&mt("You have not selected the format of the student's response data.").'</span></p>');	$r->print('<p><span class="LC_error">'.&mt("You have not selected the format of the student's response data.").'</span></p>');
}	}
} else {	} else {
my $warning=&scantron_warning_screen('Grading: Validate Records',$symb);	my $warning=&scantron_warning_screen('Grading: Validate Records',$symb);
	my ($checksec,@possibles) = &gradable_sections();
	my $gradesections;
	if ($checksec) {
	my $file=$env{'form.scantron_selectfile'};
	if (&valid_file($file)) {
	my %bysec = &scantron_get_sections();
	my $table;
	if ((keys(%bysec) > 1) \|\| ((keys(%bysec) == 1) && ((keys(%bysec))[0] ne $checksec))) {
	$gradesections = &mt('Your current role is for section [_1].','<i>'.$checksec.'</i>').'<br />';
	$table = &Apache::loncommon::start_data_table()."\n".
	&Apache::loncommon::start_data_table_header_row().
	'<th>'.&mt('Section').'</th><th>'.&mt('Number of records').'</th>'.
	&Apache::loncommon::end_data_table_header_row()."\n";
	if ($bysec{'none'}) {
	$table .= &Apache::loncommon::start_data_table_row().
	'<td>'.&mt('None').'</td><td>'.$bysec{'none'}.'</td>'.
	&Apache::loncommon::end_data_table_row()."\n";
	}
	foreach my $sec (sort { $a <=> $b } keys(%bysec)) {
	next if ($sec eq 'none');
	$table .= &Apache::loncommon::start_data_table_row().
	'<td>'.$sec.'</td><td>'.$bysec{$sec}.'</td>'.
	&Apache::loncommon::end_data_table_row()."\n";
	}
	$table .= &Apache::loncommon::end_data_table()."\n";
	$gradesections .= &mt('Sections represented in the bubblesheet data file (based on bubbled student IDs) are as follows:').
	'<p>'.$table.'</p>';
	if (@possibles) {
	$gradesections .= '<p>'.
	&mt('You have role(s) in [quant,_1,other section,other sections] with privileges to manage grades.',
	scalar(@possibles)).'<br />'.
	&mt('Check which of those section(s), in addition to section [_1], you wish to grade using this bubblesheet file:',
	'<i>'.$checksec.'</i>').' ';
	foreach my $sec (sort {$a <=> $b } @possibles) {
	$gradesections .= '<label><input type="checkbox" name="scantron_othersections" value="'.$sec.'" />'.$sec.'</label>'.(' 'x2);
	}
	$gradesections .= '</p>';
	}
	}
	} else {
	$gradesections = '<p class="LC_error">'.&mt('The selected file is unavailable').'</p>';
	}
	}
my $bubbledbyhand=&hand_bubble_option();	my $bubbledbyhand=&hand_bubble_option();
$r->print('	$r->print('
'.$warning.$bubbledbyhand.'	'.$warning.$gradesections.$bubbledbyhand.'
<input type="submit" name="submit" value="'.&mt('Grading: Validate Records').'" />	<input type="submit" name="submit" value="'.&mt('Grading: Validate Records').'" />
<input type="hidden" name="command" value="scantron_validate" />	<input type="hidden" name="command" value="scantron_validate" />
');	');
Line 7114 sub scantron_validate_file {	Line 7431 sub scantron_validate_file {
if ($env{'form.scantron_corrections'}) {	if ($env{'form.scantron_corrections'}) {
&scantron_process_corrections($r);	&scantron_process_corrections($r);
}	}
$r->print('<p>'.&mt('Gathering necessary information.').'</p>');$r->rflush();
	$r->print('<p>'.&mt('Gathering necessary information.').'</p>');
	my ($checksec,@gradable);
	if ($env{'request.course.sec'}) {
	($checksec,my @possibles) = &gradable_sections();
	if ($checksec) {
	if (@possibles) {
	my @chosensecs = &Apache::loncommon::get_env_multiple('form.scantron_othersections');
	if (@chosensecs) {
	foreach my $sec (@chosensecs) {
	if (grep(/^\Q$sec\E$/,@possibles)) {
	unless (grep(/^\Q$sec\E$/,@gradable)) {
	push(@gradable,$sec);
	}
	}
	}
	}
	}
	$r->print('<p><table>');
	if (@gradable) {
	my @showsections = sort { $a <=> $b } (@gradable,$checksec);
	$r->print(
	'<tr><td><b>'.&mt('Sections to be Graded:').'</b></td><td>'.join(', ',@showsections).'</td></tr>');
	} else {
	$r->print(
	'<tr><td><b>'.&mt('Section to be Graded:').'</b></td><td>'.$checksec.'</td></tr>');
	}
	$r->print('</table></p>');
	}
	}
	$r->rflush();

#get the student pick code ready	#get the student pick code ready
$r->print(&Apache::loncommon::studentbrowser_javascript());	$r->print(&Apache::loncommon::studentbrowser_javascript());
my $nav_error;	my $nav_error;
Line 7139 sub scantron_validate_file {	Line 7487 sub scantron_validate_file {
$env{'form.validatepass'} = 0;	$env{'form.validatepass'} = 0;
}	}
my $currentphase=$env{'form.validatepass'};	my $currentphase=$env{'form.validatepass'};
	my %skipbysec=();

my $stop=0;	my $stop=0;
while (!$stop && $currentphase < scalar(@validate_phases)) {	while (!$stop && $currentphase < scalar(@validate_phases)) {
Line 7149 sub scantron_validate_file {	Line 7497 sub scantron_validate_file {
my $which="scantron_validate_".$validate_phases[$currentphase];	my $which="scantron_validate_".$validate_phases[$currentphase];
{	{
no strict 'refs';	no strict 'refs';
($stop,$currentphase)=&$which($r,$currentphase);	my @extras=();
	if ($validate_phases[$currentphase] eq 'ID') {
	@extras = (\%skipbysec,$checksec,@gradable);
	}
	($stop,$currentphase)=&$which($r,$currentphase,@extras);
}	}
}	}
if (!$stop) {	if (!$stop) {
my $warning=&scantron_warning_screen('Start Grading',$symb);	my $warning=&scantron_warning_screen('Start Grading',$symb);
	my $secinfo;
	if (keys(%skipbysec) > 0) {
	my $seclist = '<ul>';
	foreach my $sec (sort { $a <=> $b } keys(%skipbysec)) {
	$seclist .= '<li>'.&mt('section [_1]: [_2]',$sec,$skipbysec{$sec}).'</li>';
	}
	$seclist .= '</ul>';
	$secinfo = '<p class="LC_info">'.
	&mt('Numbers of records for students in sections not being graded [_1]',
	$seclist).
	'</p>';
	}
$r->print(&mt('Validation process complete.').'<br />'.	$r->print(&mt('Validation process complete.').'<br />'.
$warning.	$secinfo.$warning.
&mt('Perform verification for each student after storage of submissions?').	&mt('Perform verification for each student after storage of submissions?').
' <span class="LC_nobreak"><label>'.	' <span class="LC_nobreak"><label>'.
'<input type="radio" name="verifyrecord" value="1" />'.&mt('Yes').'</label>'.	'<input type="radio" name="verifyrecord" value="1" />'.&mt('Yes').'</label>'.
Line 7571 sub scantron_validate_sequence {	Line 7935 sub scantron_validate_sequence {


sub scantron_validate_ID {	sub scantron_validate_ID {
my ($r,$currentphase) = @_;	my ($r,$currentphase,$skipbysec,$checksec,@gradable) = @_;

#get student info	#get student info
my $classlist=&Apache::loncoursedata::get_classlist();	my $classlist=&Apache::loncoursedata::get_classlist();
my %idmap=&username_to_idmap($classlist);	my %idmap=&username_to_idmap($classlist);
	my $secidx = &Apache::loncoursedata::CL_SECTION();

#get scantron line setup	#get scantron line setup
my %scantron_config=&Apache::lonnet::get_scantron_config($env{'form.scantron_format'});	my %scantron_config=&Apache::lonnet::get_scantron_config($env{'form.scantron_format'});
Line 7589 sub scantron_validate_ID {	Line 7954 sub scantron_validate_ID {
}	}

my %found=('ids'=>{},'usernames'=>{});	my %found=('ids'=>{},'usernames'=>{});
	my $unsavedskips = 0;
for (my $i=0;$i<=$scanlines->{'count'};$i++) {	for (my $i=0;$i<=$scanlines->{'count'};$i++) {
my $line=&scantron_get_line($scanlines,$scan_data,$i);	my $line=&scantron_get_line($scanlines,$scan_data,$i);
if ($line=~/^[\s\cz]*$/) { next; }	if ($line=~/^[\s\cz]*$/) { next; }
Line 7601 sub scantron_validate_ID {	Line 7967 sub scantron_validate_ID {
}	}
if ($found) {	if ($found) {
my $username=$idmap{$found};	my $username=$idmap{$found};
	if ($checksec) {
	if (ref($classlist->{$username}) eq 'ARRAY') {
	my $stusec = $classlist->{$username}->[$secidx];
	if ($stusec ne $checksec) {
	unless ((@gradable > 0) && (grep(/^\Q$stusec\E$/,@gradable))) {
	my $skip=1;
	&scantron_put_line($scanlines,$scan_data,$i,$line,$skip);
	if (ref($skipbysec) eq 'HASH') {
	if ($stusec eq '') {
	$skipbysec->{'none'} ++;
	} else {
	$skipbysec->{$stusec} ++;
	}
	}
	$unsavedskips ++;
	next;
	}
	}
	}
	}
if ($found{'ids'}{$found}) {	if ($found{'ids'}{$found}) {
&scantron_get_correction($r,$i,$scan_record,\%scantron_config,	&scantron_get_correction($r,$i,$scan_record,\%scantron_config,
$line,'duplicateID',$found);	$line,'duplicateID',$found);
	if ($unsavedskips) {
	&scantron_putfile($scanlines,$scan_data);
	$unsavedskips = 0;
	}
return(1,$currentphase);	return(1,$currentphase);
} elsif ($found{'usernames'}{$username}) {	} elsif ($found{'usernames'}{$username}) {
&scantron_get_correction($r,$i,$scan_record,\%scantron_config,	&scantron_get_correction($r,$i,$scan_record,\%scantron_config,
$line,'duplicateID',$username);	$line,'duplicateID',$username);
	if ($unsavedskips) {
	&scantron_putfile($scanlines,$scan_data);
	$unsavedskips = 0;
	}
return(1,$currentphase);	return(1,$currentphase);
}	}
#FIXME store away line we previously saw the ID on to use above	#FIXME store away line we previously saw the ID on to use above
Line 7616 sub scantron_validate_ID {	Line 8010 sub scantron_validate_ID {
} else {	} else {
if ($id =~ /^\s*$/) {	if ($id =~ /^\s*$/) {
my $username=&scan_data($scan_data,"$i.user");	my $username=&scan_data($scan_data,"$i.user");
if (defined($username) && $found{'usernames'}{$username}) {	if (($checksec && $username ne '')) {
	if (ref($classlist->{$username}) eq 'ARRAY') {
	my $stusec = $classlist->{$username}->[$secidx];
	if ($stusec ne $checksec) {
	unless ((@gradable > 0) && (grep(/^\Q$stusec\E$/,@gradable))) {
	my $skip=1;
	&scantron_put_line($scanlines,$scan_data,$i,$line,$skip);
	if (ref($skipbysec) eq 'HASH') {
	if ($stusec eq '') {
	$skipbysec->{'none'} ++;
	} else {
	$skipbysec->{$stusec} ++;
	}
	}
	$unsavedskips ++;
	next;
	}
	}
	}
	} elsif (defined($username) && $found{'usernames'}{$username}) {
&scantron_get_correction($r,$i,$scan_record,	&scantron_get_correction($r,$i,$scan_record,
\%scantron_config,	\%scantron_config,
$line,'duplicateID',$username);	$line,'duplicateID',$username);
	if ($unsavedskips) {
	&scantron_putfile($scanlines,$scan_data);
	$unsavedskips = 0;
	}
return(1,$currentphase);	return(1,$currentphase);
} elsif (!defined($username)) {	} elsif (!defined($username)) {
&scantron_get_correction($r,$i,$scan_record,	&scantron_get_correction($r,$i,$scan_record,
\%scantron_config,	\%scantron_config,
$line,'incorrectID');	$line,'incorrectID');
	if ($unsavedskips) {
	&scantron_putfile($scanlines,$scan_data);
	$unsavedskips = 0;
	}
return(1,$currentphase);	return(1,$currentphase);
}	}
$found{'usernames'}{$username}++;	$found{'usernames'}{$username}++;
} else {	} else {
&scantron_get_correction($r,$i,$scan_record,\%scantron_config,	&scantron_get_correction($r,$i,$scan_record,\%scantron_config,
$line,'incorrectID');	$line,'incorrectID');
	if ($unsavedskips) {
	&scantron_putfile($scanlines,$scan_data);
	$unsavedskips = 0;
	}
return(1,$currentphase);	return(1,$currentphase);
}	}
}	}
}	}
	if ($unsavedskips) {
	&scantron_putfile($scanlines,$scan_data);
	$unsavedskips = 0;
	}
return (0,$currentphase+1);	return (0,$currentphase+1);
}	}

	sub scantron_get_sections {
	my %bysec;
	if ($env{'form.scantron_format'} ne '') {
	my %scantron_config=&Apache::lonnet::get_scantron_config($env{'form.scantron_format'});
	my ($scanlines,$scan_data)=&scantron_getfile();
	my $classlist=&Apache::loncoursedata::get_classlist();
	my %idmap=&username_to_idmap($classlist);
	foreach my $key (keys(%idmap)) {
	my $lckey = lc($key);
	$idmap{$lckey} = $idmap{$key};
	}
	my $secidx = &Apache::loncoursedata::CL_SECTION();
	for (my $i=0;$i<=$scanlines->{'count'};$i++) {
	my $line=&scantron_get_line($scanlines,$scan_data,$i);
	if ($line=~/^[\s\cz]*$/) { next; }
	my $scan_record=&scantron_parse_scanline($line,$i,\%scantron_config,
	$scan_data);
	my $id=lc($$scan_record{'scantron.ID'});
	if (exists($idmap{$id})) {
	if (ref($classlist->{$idmap{$id}}) eq 'ARRAY') {
	my $stusec = $classlist->{$idmap{$id}}->[$secidx];
	if ($stusec eq '') {
	$bysec{'none'} ++;
	} else {
	$bysec{$stusec} ++;
	}
	}
	}
	}
	}
	return %bysec;
	}

sub scantron_get_correction {	sub scantron_get_correction {
my ($r,$i,$scan_record,$scan_config,$line,$error,$arg,	my ($r,$i,$scan_record,$scan_config,$line,$error,$arg,
Line 7825 sub verify_bubbles_checked {	Line 8285 sub verify_bubbles_checked {
my $ansnumstr = join('","',@ansnums);	my $ansnumstr = join('","',@ansnums);
my $warning = &mt("A bubble or 'No bubble' selection has not been made for one or more lines.");	my $warning = &mt("A bubble or 'No bubble' selection has not been made for one or more lines.");
&js_escape(\$warning);	&js_escape(\$warning);
my $output = &Apache::lonhtmlcommon::scripttag((<<ENDSCRIPT));	my $output = &Apache::lonhtmlcommon::scripttag(<<ENDSCRIPT);
function verify_bubble_radio(form) {	function verify_bubble_radio(form) {
var ansnumArray = new Array ("$ansnumstr");	var ansnumArray = new Array ("$ansnumstr");
var need_bubble_count = 0;	var need_bubble_count = 0;
Line 8304 sub scantron_validate_doublebubble {	Line 8764 sub scantron_validate_doublebubble {
if (ref($map)) {	if (ref($map)) {
$randomorder = $map->randomorder();	$randomorder = $map->randomorder();
$randompick = $map->randompick();	$randompick = $map->randompick();
	unless ($randomorder \|\| $randompick) {
	foreach my $res ($navmap->retrieveResources($map,sub { $_[0]->is_map() },1,0,1)) {
	if ($res->randomorder()) {
	$randomorder = 1;
	}
	if ($res->randompick()) {
	$randompick = 1;
	}
	last if ($randomorder \|\| $randompick);
	}
	}
if ($randomorder \|\| $randompick) {	if ($randomorder \|\| $randompick) {
$nav_error = &get_master_seq(\@resources,\@master_seq,\%symb_to_resource);	$nav_error = &get_master_seq(\@resources,\@master_seq,\%symb_to_resource);
if ($nav_error) {	if ($nav_error) {
Line 8487 sub scantron_validate_missingbubbles {	Line 8958 sub scantron_validate_missingbubbles {
if (ref($map)) {	if (ref($map)) {
$randomorder = $map->randomorder();	$randomorder = $map->randomorder();
$randompick = $map->randompick();	$randompick = $map->randompick();
	unless ($randomorder \|\| $randompick) {
	foreach my $res ($navmap->retrieveResources($map,sub { $_[0]->is_map() },1,0,1)) {
	if ($res->randomorder()) {
	$randomorder = 1;
	}
	if ($res->randompick()) {
	$randompick = 1;
	}
	last if ($randomorder \|\| $randompick);
	}
	}
if ($randomorder \|\| $randompick) {	if ($randomorder \|\| $randompick) {
$nav_error = &get_master_seq(\@resources,\@master_seq,\%symb_to_resource);	$nav_error = &get_master_seq(\@resources,\@master_seq,\%symb_to_resource);
if ($nav_error) {	if ($nav_error) {
Line 8628 sub scantron_process_students {	Line 9110 sub scantron_process_students {
}	}
my $map=$navmap->getResourceByUrl($sequence);	my $map=$navmap->getResourceByUrl($sequence);
my ($randomorder,$randompick,@master_seq,%symb_to_resource,%grader_partids_by_symb,	my ($randomorder,$randompick,@master_seq,%symb_to_resource,%grader_partids_by_symb,
%grader_randomlists_by_symb);	%grader_randomlists_by_symb,%symb_for_examcode);
if (ref($map)) {	if (ref($map)) {
$randomorder = $map->randomorder();	$randomorder = $map->randomorder();
$randompick = $map->randompick();	$randompick = $map->randompick();
	unless ($randomorder \|\| $randompick) {
	foreach my $res ($navmap->retrieveResources($map,sub { $_[0]->is_map() },1,0,1)) {
	if ($res->randomorder()) {
	$randomorder = 1;
	}
	if ($res->randompick()) {
	$randompick = 1;
	}
	last if ($randomorder \|\| $randompick);
	}
	}
} else {	} else {
$r->print(&navmap_errormsg());	$r->print(&navmap_errormsg());
return '';	return '';
Line 8639 sub scantron_process_students {	Line 9132 sub scantron_process_students {
my $nav_error;	my $nav_error;
my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0);	my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0);
if ($randomorder \|\| $randompick) {	if ($randomorder \|\| $randompick) {
$nav_error = &get_master_seq(\@resources,\@master_seq,\%symb_to_resource);	$nav_error = &get_master_seq(\@resources,\@master_seq,\%symb_to_resource,1,\%symb_for_examcode);
if ($nav_error) {	if ($nav_error) {
$r->print(&navmap_errormsg());	$r->print(&navmap_errormsg());
return '';	return '';
Line 8656 sub scantron_process_students {	Line 9149 sub scantron_process_students {
SCANTRONFORM	SCANTRONFORM
$r->print($result);	$r->print($result);

	my ($checksec,@possibles)=&gradable_sections();
my @delayqueue;	my @delayqueue;
my (%completedstudents,%scandata);	my (%completedstudents,%scandata);

my $lock=&Apache::lonnet::set_lock(&mt('Grading bubblesheet exam'));	my $lock=&Apache::lonnet::set_lock(&mt('Grading bubblesheet exam'));
my $count=&get_todo_count($scanlines,$scan_data);	my $count=&get_todo_count($scanlines,$scan_data);
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$count);	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$count);
Line 8718 SCANTRONFORM	Line 9212 SCANTRONFORM
next;	next;
}	}
my $usec = $classlist->{$uname}->[&Apache::loncoursedata::CL_SECTION];	my $usec = $classlist->{$uname}->[&Apache::loncoursedata::CL_SECTION];
	if (($checksec ne '') && ($checksec ne $usec)) {
	unless (grep(/^\Q$usec\E$/,@possibles)) {
	&scantron_add_delay(\@delayqueue,$line,
	"No role with manage grades privilege in student's section ($usec)",3);
	next;
	}
	}
my $user = $uname.':'.$usec;	my $user = $uname.':'.$usec;
($uname,$udom)=split(/:/,$uname);	($uname,$udom)=split(/:/,$uname);

Line 8786 SCANTRONFORM	Line 9287 SCANTRONFORM
}	}

if (($scancode) && ($randomorder \|\| $randompick)) {	if (($scancode) && ($randomorder \|\| $randompick)) {
my $parmresult =	foreach my $key (keys(%symb_for_examcode)) {
&Apache::lonparmset::storeparm_by_symb($symb,	my $symb_in_map = $symb_for_examcode{$key};
'0_examcode',2,$scancode,	if ($symb_in_map ne '') {
'string_examcode',$uname,	my $parmresult =
$udom);	&Apache::lonparmset::storeparm_by_symb($symb_in_map,
	'0_examcode',2,$scancode,
	'string_examcode',$uname,
	$udom);
	}
	}
}	}
$completedstudents{$uname}={'line'=>$line};	$completedstudents{$uname}={'line'=>$line};
if ($env{'form.verifyrecord'}) {	if ($env{'form.verifyrecord'}) {
Line 9009 sub grade_student_bubbles {	Line 9515 sub grade_student_bubbles {
}	}

sub scantron_upload_scantron_data {	sub scantron_upload_scantron_data {
my ($r,$symb)=@_;	my ($r,$symb) = @_;
my $dom = $env{'request.role.domain'};	my $dom = $env{'request.role.domain'};
my ($formatoptions,$formattitle,$formatjs) = &scantron_upload_dataformat($dom);	my ($formatoptions,$formattitle,$formatjs) = &scantron_upload_dataformat($dom);
my $domdesc = &Apache::lonnet::domain($dom,'description');	my $domdesc = &Apache::lonnet::domain($dom,'description');
Line 9105 END	Line 9611 END
my @lines = &Apache::lonnet::get_scantronformat_file();	my @lines = &Apache::lonnet::get_scantronformat_file();
my $count = 0;	my $count = 0;
foreach my $line (@lines) {	foreach my $line (@lines) {
next if ($line =~ /^#/);	next if (($line =~ /^\#/) \|\| ($line eq ''));
$singleline = $line;	$singleline = $line;
$count ++;	$count ++;
}	}
if ($count > 1) {	if ($count > 1) {
$formatextra = '<div style="display:none" id="bubbletype">'.	$formatextra = '<div style="display:none" id="bubbletype">'.
&scantron_scantab().'</div>';	'<span class="LC_nobreak">'.
	&mt('Bubblesheet type').': '.
	&scantron_scantab().'</span></div>';
$onclick = ' onclick="toggleScantab(this.form);"';	$onclick = ' onclick="toggleScantab(this.form);"';
$formatjs = <<"END";	$formatjs = <<"END";
function toggleScantab(form) {	function toggleScantab(form) {
Line 9126 function toggleScantab(form) {	Line 9634 function toggleScantab(form) {
if (chosen == 'dat') {	if (chosen == 'dat') {
document.getElementById(divid).style.display = 'none';	document.getElementById(divid).style.display = 'none';
} else if (chosen == 'csv') {	} else if (chosen == 'csv') {
document.getElementById(divid).style.display = 'inline-block';	document.getElementById(divid).style.display = 'block';
}	}
}	}
}	}
Line 9152 END	Line 9660 END
} elsif (keys(%{$domconfig{'scantron'}{'config'}}) == 1) {	} elsif (keys(%{$domconfig{'scantron'}{'config'}}) == 1) {
if (ref($domconfig{'scantron'}{'config'}{'csv'}{'fields'}) eq 'HASH') {	if (ref($domconfig{'scantron'}{'config'}{'csv'}{'fields'}) eq 'HASH') {
if (keys(%{$domconfig{'scantron'}{'config'}{'csv'}{'fields'}})) {	if (keys(%{$domconfig{'scantron'}{'config'}{'csv'}{'fields'}})) {
$formattitle = &mt('Format of bubblesheet data file:');	$formattitle = &mt('Bubblesheet type');
$formatoptions = &scantron_scantab();	$formatoptions = &scantron_scantab();
}	}
}	}
Line 9163 END	Line 9671 END
}	}

sub scantron_upload_scantron_data_save {	sub scantron_upload_scantron_data_save {
my($r,$symb)=@_;	my ($r,$symb) = @_;
my $doanotherupload=	my $doanotherupload=
'<br /><form action="/adm/grades" method="post">'."\n".	'<br /><form action="/adm/grades" method="post">'."\n".
'<input type="hidden" name="command" value="scantronupload" />'."\n".	'<input type="hidden" name="command" value="scantronupload" />'."\n".
Line 9171 sub scantron_upload_scantron_data_save {	Line 9679 sub scantron_upload_scantron_data_save {
'</form>'."\n";	'</form>'."\n";
if (!&Apache::lonnet::allowed('usc',$env{'form.domainid'}) &&	if (!&Apache::lonnet::allowed('usc',$env{'form.domainid'}) &&
!&Apache::lonnet::allowed('usc',	!&Apache::lonnet::allowed('usc',
$env{'form.domainid'}.'_'.$env{'form.courseid'})) {	$env{'form.domainid'}.'_'.$env{'form.courseid'}) &&
	!&Apache::lonnet::allowed('usc',
	$env{'form.domainid'}.'_'.$env{'form.courseid'}.'/'.$env{'form.coursesec'})) {
$r->print(&mt("You are not allowed to upload bubblesheet data to the requested course.")."<br />");	$r->print(&mt("You are not allowed to upload bubblesheet data to the requested course.")."<br />");
unless ($symb) {	unless ($symb) {
$r->print($doanotherupload);	$r->print($doanotherupload);
Line 9227 sub scantron_upload_scantron_data_save {	Line 9737 sub scantron_upload_scantron_data_save {
(length($env{'form.upfile'})-1),	(length($env{'form.upfile'})-1),
'<span class="LC_filename">'.$result.'</span>'));	'<span class="LC_filename">'.$result.'</span>'));
($uploadedfile) = ($result =~ m{/([^/]+)$});	($uploadedfile) = ($result =~ m{/([^/]+)$});
	if ($uploadedfile =~ /^scantron_orig_/) {
	my $logname = $uploadedfile;
	$logname =~ s/^scantron_orig_//;
	if ($logname ne '') {
	my $now = time;
	my %info = ($logname => { $now => $env{'user.name'}.':'.$env{'user.domain'} });
	&Apache::lonnet::put('scantronupload',\%info,$env{'form.domainid'},$env{'form.courseid'});
	}
	}
$r->print(&validate_uploaded_scantron_file($env{'form.domainid'},	$r->print(&validate_uploaded_scantron_file($env{'form.domainid'},
$env{'form.courseid'},$uploadedfile));	$env{'form.courseid'},$symb,$uploadedfile));
} else {	} else {
$r->print(	$r->print(
&Apache::lonhtmlcommon::confirm_success(&mt('Upload failed'),1).'<br />'.	&Apache::lonhtmlcommon::confirm_success(&mt('Upload failed'),1).'<br />'.
Line 9246 sub scantron_upload_scantron_data_save {	Line 9765 sub scantron_upload_scantron_data_save {
}	}

sub validate_uploaded_scantron_file {	sub validate_uploaded_scantron_file {
my ($cdom,$cname,$fname) = @_;	my ($cdom,$cname,$symb,$fname,$context,$countsref) = @_;

my $scanlines=&Apache::lonnet::getfile('/uploaded/'.$cdom.'/'.$cname.'/'.$fname);	my $scanlines=&Apache::lonnet::getfile('/uploaded/'.$cdom.'/'.$cname.'/'.$fname);
my @lines;	my @lines;
if ($scanlines ne '-1') {	if ($scanlines ne '-1') {
@lines=split("\n",$scanlines,-1);	@lines=split("\n",$scanlines,-1);
}	}
my $output;	my ($output,$secidx,$checksec,$priv,%crsroleshash,@possibles);
	$secidx = &Apache::loncoursedata::CL_SECTION();
	if ($context eq 'download') {
	$priv = 'mgr';
	} else {
	$priv = 'usc';
	}
	unless ((&Apache::lonnet::allowed($priv,$env{'request.role.domain'})) \|\|
	(($env{'request.course.id'}) &&
	(&Apache::lonnet::allowed($priv,$env{'request.course.id'})))) {
	if ($env{'request.course.sec'} ne '') {
	unless (&Apache::lonnet::allowed($priv,
	"$env{'request.course.id'}/$env{'request.course.sec'}")) {
	unless ($context eq 'download') {
	$output = '<p class="LC_warning">'.&mt('You do not have permission to upload bubblesheet data').'</p>';
	}
	return $output;
	}
	($checksec,@possibles)=&gradable_sections();
	}
	}
if (@lines) {	if (@lines) {
my (%counts,$max_match_format);	my (%counts,$max_match_format);
my ($found_match_count,$max_match_count,$max_match_pct) = (0,0,0);	my ($found_match_count,$max_match_count,$max_match_pct) = (0,0,0);
Line 9265 sub validate_uploaded_scantron_file {	Line 9805 sub validate_uploaded_scantron_file {
my %unique_formats;	my %unique_formats;
my @formatlines = &Apache::lonnet::get_scantronformat_file();	my @formatlines = &Apache::lonnet::get_scantronformat_file();
foreach my $line (@formatlines) {	foreach my $line (@formatlines) {
chomp($line);	next if (($line =~ /^\#/) \|\| ($line eq ''));
my @config = split(/:/,$line);	my @config = split(/:/,$line);
my $idstart = $config[5];	my $idstart = $config[5];
my $idlength = $config[6];	my $idlength = $config[6];
Line 9282 sub validate_uploaded_scantron_file {	Line 9822 sub validate_uploaded_scantron_file {
%{$counts{$key}} = (	%{$counts{$key}} = (
'found' => 0,	'found' => 0,
'total' => 0,	'total' => 0,
	'totalanysec' => 0,
	'othersec' => 0,
);	);
foreach my $line (@lines) {	foreach my $line (@lines) {
next if ($line =~ /^#/);	next if ($line =~ /^#/);
Line 9289 sub validate_uploaded_scantron_file {	Line 9831 sub validate_uploaded_scantron_file {
my $id = substr($line,$idstart-1,$idlength);	my $id = substr($line,$idstart-1,$idlength);
$id = lc($id);	$id = lc($id);
if (exists($idmap{$id})) {	if (exists($idmap{$id})) {
	if ($checksec ne '') {
	$counts{$key}{'totalanysec'} ++;
	if (ref($classlist->{$idmap{$id}}) eq 'ARRAY') {
	my $stusec = $classlist->{$idmap{$id}}->[$secidx];
	if ($stusec ne $checksec) {
	if (@possibles) {
	unless (grep(/^\Q$stusec\E$/,@possibles)) {
	$counts{$key}{'othersec'} ++;
	next;
	}
	} else {
	$counts{$key}{'othersec'} ++;
	next;
	}
	}
	}
	}
$counts{$key}{'found'} ++;	$counts{$key}{'found'} ++;
}	}
$counts{$key}{'total'} ++;	$counts{$key}{'total'} ++;
Line 9303 sub validate_uploaded_scantron_file {	Line 9862 sub validate_uploaded_scantron_file {
}	}
}	}
}	}
if (ref($unique_formats{$max_match_format}) eq 'ARRAY') {	if ((ref($unique_formats{$max_match_format}) eq 'ARRAY') && ($context ne 'download')) {
my $format_descs;	my $format_descs;
my $numwithformat = @{$unique_formats{$max_match_format}};	my $numwithformat = @{$unique_formats{$max_match_format}};
for (my $i=0; $i<$numwithformat; $i++) {	for (my $i=0; $i<$numwithformat; $i++) {
Line 9348 sub validate_uploaded_scantron_file {	Line 9907 sub validate_uploaded_scantron_file {
'<li>'.&mt('The course roster is not up to date.').'</li>'.	'<li>'.&mt('The course roster is not up to date.').'</li>'.
'</ul>';	'</ul>';
}	}
	if (($checksec ne '') && (ref($counts{$max_match_format}) eq 'HASH')) {
	if ($counts{$max_match_format}{'othersec'}) {
	my $percent_nongrade = (100*$counts{$max_match_format}{'othersec'})/($counts{$max_match_format}{'totalanysec'});
	my $showpct = sprintf("%.0f",$percent_nongrade).'%';
	my $confirmdel = &mt('Are you sure you want to permanently delete this file?');
	&js_escape(\$confirmdel);
	$output .= '<p class="LC_warning">'.
	&mt('Comparison of student IDs in the uploaded file with the course roster found [_1][quant,_2,match,matches][_3] for students in section(s) for which none of your role(s) have privileges to modify grades',
	'<b>',$counts{$max_match_format}{'othersec'},'</b>').
	'<br />'.
	&mt('Unless you are assigned role(s) which allow modification of grades in additional sections, [_1] of the records in this file will be automatically excluded when you perform bubblesheet grading.','<b>'.$showpct.'</b>').
	'</p><p>'.
	&mt('If you prefer to delete the file now, use: [_1]').
	'<form method="post" name="delupload" action="/adm/grades">'.
	'<input type="hidden" name="symb" value="'.$symb.'" />'.
	'<input type="hidden" name="domainid" value="'.$cdom.'" />'.
	'<input type="hidden" name="courseid" value="'.$cname.'" />'.
	'<input type="hidden" name="coursesec" value="'.$env{'request.course.sec'}.'" />'.
	'<input type="hidden" name="uploadedfile" value="'.$fname.'" />'.
	'<input type="hidden" name="command" value="scantronupload_delete" />'.
	'<input type="button" name="delbutton" value="'.&mt('Delete Uploaded File').'" onclick="javascript:if (confirm('."'$confirmdel'".')) { document.delupload.submit(); }" />'.
	'</form></p>';
	}
	}
}	}
} else {	if (($context eq 'download') && ($checksec ne '')) {
	if ((ref($countsref) eq 'HASH') && (ref($counts{$max_match_format}) eq 'HASH')) {
	$countsref->{'totalanysec'} = $counts{$max_match_format}{'totalanysec'};
	$countsref->{'othersec'} = $counts{$max_match_format}{'othersec'};
	}
	}
	} elsif ($context ne 'download') {
$output = '<p class="LC_warning">'.&mt('Uploaded file contained no data').'</p>';	$output = '<p class="LC_warning">'.&mt('Uploaded file contained no data').'</p>';
}	}
return $output;	return $output;
}	}

	sub gradable_sections {
	my $checksec = $env{'request.course.sec'};
	my @oksecs;
	if ($checksec) {
	my %availablesecs = &sections_grade_privs();
	if (ref($availablesecs{'mgr'}) eq 'ARRAY') {
	foreach my $sec (@{$availablesecs{'mgr'}}) {
	unless (grep(/^\Q$sec\E$/,@oksecs)) {
	push(@oksecs,$sec);
	}
	}
	if (grep(/^all$/,@oksecs)) {
	undef($checksec);
	}
	}
	}
	return($checksec,@oksecs);
	}

	sub sections_grade_privs {
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my %availablesecs = (
	mgr => [],
	vgr => [],
	usc => [],
	);
	my $ccrole = 'cc';
	if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Community') {
	$ccrole = 'co';
	}
	my %crsroleshash = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},
	'userroles',['active'],
	[$ccrole,'in','cr'],$cdom,1);
	my $crsid = $cnum.':'.$cdom;
	foreach my $item (keys(%crsroleshash)) {
	next unless ($item =~ /^$crsid\:/);
	my ($crsnum,$crsdom,$role,$sec) = split(/\:/,$item);
	my $suffix = "/$cdom/$cnum./$cdom/$cnum";
	if ($sec ne '') {
	$suffix = "/$cdom/$cnum/$sec./$cdom/$cnum/$sec";
	}
	if (($role eq $ccrole) \|\| ($role eq 'in')) {
	foreach my $priv ('mgr','vgr','usc') {
	unless (grep(/^all$/,@{$availablesecs{$priv}})) {
	if ($sec eq '') {
	$availablesecs{$priv} = ['all'];
	} elsif ($sec ne $env{'request.course.sec'}) {
	unless (grep(/^\Q$sec\E$/,@{$availablesecs{$priv}})) {
	push(@{$availablesecs{$priv}},$sec);
	}
	}
	}
	}
	} elsif ($role =~ m{^cr/}) {
	foreach my $priv ('mgr','vgr','usc') {
	unless (grep(/^all$/,@{$availablesecs{$priv}})) {
	if ($env{"user.priv.$role.$suffix"} =~ /:$priv&/) {
	if ($sec eq '') {
	$availablesecs{$priv} = ['all'];
	} elsif ($sec ne $env{'request.course.sec'}) {
	unless (grep(/^\Q$sec\E$/,@{$availablesecs{$priv}})) {
	push(@{$availablesecs{$priv}},$sec);
	}
	}
	}
	}
	}
	}
	}
	return %availablesecs;
	}

	sub scantron_upload_delete {
	my ($r,$symb) = @_;
	my $filename = $env{'form.uploadedfile'};
	if ($filename =~ /^scantron_orig_/) {
	if (&Apache::lonnet::allowed('usc',$env{'form.domainid'}) \|\|
	&Apache::lonnet::allowed('usc',
	$env{'form.domainid'}.'_'.$env{'form.courseid'}) \|\|
	&Apache::lonnet::allowed('usc',
	$env{'form.domainid'}.'_'.$env{'form.courseid'}.'/'.$env{'form.coursesec'})) {
	my $uploadurl = '/uploaded/'.$env{'form.domainid'}.'/'.$env{'form.courseid'}.'/'.$env{'form.uploadedfile'};
	my $retrieval = &Apache::lonnet::getfile($uploadurl);
	if ($retrieval eq '-1') {
	$r->print(&Apache::lonhtmlcommon::confirm_success(&mt('File deletion failed'),1).'<br />'.
	&mt('File requested for deletion not found.'));
	} else {
	$filename =~ s/^scantron_orig_//;
	if ($filename ne '') {
	my ($is_valid,$numleft);
	my %info = &Apache::lonnet::get('scantronupload',[$filename],$env{'form.domainid'},$env{'form.courseid'});
	if (keys(%info)) {
	if (ref($info{$filename}) eq 'HASH') {
	foreach my $timestamp (sort(keys(%{$info{$filename}}))) {
	if ($info{$filename}{$timestamp} eq $env{'user.name'}.':'.$env{'user.domain'}) {
	$is_valid = 1;
	delete($info{$filename}{$timestamp});
	}
	}
	$numleft = scalar(keys(%{$info{$filename}}));
	}
	}
	if ($is_valid) {
	my $result = &Apache::lonnet::removeuploadedurl($uploadurl);
	if ($result eq 'ok') {
	$r->print(&Apache::lonhtmlcommon::confirm_success(&mt('File deletion successful')).'<br />');
	if ($numleft) {
	&Apache::lonnet::put('scantronupload',\%info,$env{'form.domainid'},$env{'form.courseid'});
	} else {
	&Apache::lonnet::del('scantronupload',[$filename],$env{'form.domainid'},$env{'form.courseid'});
	}
	} else {
	$r->print(&Apache::lonhtmlcommon::confirm_success(&mt('File deletion failed'),1).'<br />'.
	&mt('Result was [_1]',$result));
	}
	} else {
	$r->print(&Apache::lonhtmlcommon::confirm_success(&mt('File deletion failed'),1).'<br />'.
	&mt('File requested for deletion was uploaded by a different user.'));
	}
	} else {
	$r->print(&Apache::lonhtmlcommon::confirm_success(&mt('File deletion failed'),1).'<br />'.
	&mt('Filename of bubblesheet data file requested for deletion is invalid.'));
	}
	}
	} else {
	$r->print(&Apache::lonhtmlcommon::confirm_success(&mt('File deletion failed'),1).'<br />'.
	&mt('You are not permitted to delete bubblesheet data files from the requested course.'));
	}
	} else {
	$r->print(&Apache::lonhtmlcommon::confirm_success(&mt('File deletion failed'),1).'<br />'.
	&mt('Filename of bubblesheet data file requested for deletion is invalid.'));
	}
	return;
	}

sub valid_file {	sub valid_file {
my ($requested_file)=@_;	my ($requested_file)=@_;
foreach my $filename (sort(&scantron_filenames())) {	foreach my $filename (sort(&scantron_filenames())) {
Line 9364 sub valid_file {	Line 10089 sub valid_file {
}	}

sub scantron_download_scantron_data {	sub scantron_download_scantron_data {
my ($r,$symb)=@_;	my ($r,$symb) = @_;
my $default_form_data=&defaultFormData($symb);	my $default_form_data=&defaultFormData($symb);
my $cname=$env{'course.'.$env{'request.course.id'}.'.num'};	my $cname=$env{'course.'.$env{'request.course.id'}.'.num'};
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
Line 9377 sub scantron_download_scantron_data {	Line 10102 sub scantron_download_scantron_data {
');	');
return;	return;
}	}
	my (%uploader,$is_owner,%counts,$percent);
	my %uploader = &Apache::lonnet::get('scantronupload',[$file],$cdom,$cname);
	if (ref($uploader{$file}) eq 'HASH') {
	foreach my $timestamp (sort { $a <=> $b } keys(%{$uploader{$file}})) {
	if ($uploader{$file}{$timestamp} eq $env{'user.name'}.':'.$env{'user.domain'}) {
	$is_owner = 1;
	last;
	}
	}
	}
	unless ($is_owner) {
	&validate_uploaded_scantron_file($cdom,$cname,$symb,'scantron_orig_'.$file,'download',\%counts);
	if ($counts{'totalanysec'}) {
	my $percent_othersec = (100*$counts{'othersec'})/($counts{'totalanysec'});
	if ($percent_othersec >= 10) {
	my $showpct = sprintf("%.0f",$percent_othersec).'%';
	$r->print('<p class="LC_warning">'.
	&mt('The original uploaded file includes [_1] or more of records for students for which none of your roles have rights to modify grades, so files are unavailable for download.',$showpct).
	'</p>');
	return;
	}
	}
	}
my $orig='/uploaded/'.$cdom.'/'.$cname.'/scantron_orig_'.$file;	my $orig='/uploaded/'.$cdom.'/'.$cname.'/scantron_orig_'.$file;
my $corrected='/uploaded/'.$cdom.'/'.$cname.'/scantron_corrected_'.$file;	my $corrected='/uploaded/'.$cdom.'/'.$cname.'/scantron_corrected_'.$file;
my $skipped='/uploaded/'.$cdom.'/'.$cname.'/scantron_skipped_'.$file;	my $skipped='/uploaded/'.$cdom.'/'.$cname.'/scantron_skipped_'.$file;
Line 9413 sub checkscantron_results {	Line 10161 sub checkscantron_results {
my %scantron_config =	my %scantron_config =
&Apache::lonnet::get_scantron_config($env{'form.scantron_format'});	&Apache::lonnet::get_scantron_config($env{'form.scantron_format'});
my $bubbles_per_row = &bubblesheet_bubbles_per_row(\%scantron_config);	my $bubbles_per_row = &bubblesheet_bubbles_per_row(\%scantron_config);
my ($scanlines,$scan_data)=&Apache::grades::scantron_getfile();	my ($scanlines,$scan_data)=&scantron_getfile();
my $classlist=&Apache::loncoursedata::get_classlist();	my $classlist=&Apache::loncoursedata::get_classlist();
my %idmap=&Apache::grades::username_to_idmap($classlist);	my %idmap=&Apache::grades::username_to_idmap($classlist);
my $navmap=Apache::lonnavmaps::navmap->new();	my $navmap=Apache::lonnavmaps::navmap->new();
Line 9427 sub checkscantron_results {	Line 10175 sub checkscantron_results {
if (ref($map)) {	if (ref($map)) {
$randomorder=$map->randomorder();	$randomorder=$map->randomorder();
$randompick=$map->randompick();	$randompick=$map->randompick();
	unless ($randomorder \|\| $randompick) {
	foreach my $res ($navmap->retrieveResources($map,sub { $_[0]->is_map() },1,0,1)) {
	if ($res->randomorder()) {
	$randomorder = 1;
	}
	if ($res->randompick()) {
	$randompick = 1;
	}
	last if ($randomorder \|\| $randompick);
	}
	}
}	}
my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0);	my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0);
my $nav_error = &get_master_seq(\@resources,\@master_seq,\%symb_to_resource);	my $nav_error = &get_master_seq(\@resources,\@master_seq,\%symb_to_resource);
Line 9735 sub verify_scantron_grading {	Line 10494 sub verify_scantron_grading {
return ($counter,$record);	return ($counter,$record);
}	}


#-------- end of section for handling grading scantron forms -------	#-------- end of section for handling grading scantron forms -------
#	#
#-------------------------------------------------------------------	#-------------------------------------------------------------------
Line 9781 sub grading_menu {	Line 10539 sub grading_menu {

$fields{'command'} = 'initialverifyreceipt';	$fields{'command'} = 'initialverifyreceipt';
my $url5 = &Apache::lonhtmlcommon::build_url('grades/',\%fields);	my $url5 = &Apache::lonhtmlcommon::build_url('grades/',\%fields);

	my %permissions;
	if ($perm{'mgr'}) {
	$permissions{'either'} = 'F';
	$permissions{'mgr'} = 'F';
	}
	if ($perm{'vgr'}) {
	$permissions{'either'} = 'F';
	$permissions{'vgr'} = 'F';
	}

my @menu = ({ categorytitle=>'Hand Grading',	my @menu = ({ categorytitle=>'Hand Grading',
items =>[	items =>[
{ linktext => 'Select individual students to grade',	{ linktext => 'Select individual students to grade',
url => $url1a,	url => $url1a,
permission => 'F',	permission => $permissions{'either'},
icon => 'grade_students.png',	icon => 'grade_students.png',
linktitle => 'Grade current resource for a selection of students.'	linktitle => 'Grade current resource for a selection of students.'
},	},
{ linktext => 'Grade ungraded submissions.',	{ linktext => 'Grade ungraded submissions',
url => $url1b,	url => $url1b,
permission => 'F',	permission => $permissions{'either'},
icon => 'ungrade_sub.png',	icon => 'ungrade_sub.png',
linktitle => 'Grade all submissions that have not been graded yet.'	linktitle => 'Grade all submissions that have not been graded yet.'
},	},

{ linktext => 'Grading table',	{ linktext => 'Grading table',
url => $url1c,	url => $url1c,
permission => 'F',	permission => $permissions{'either'},
icon => 'grading_table.png',	icon => 'grading_table.png',
linktitle => 'Grade current resource for all students.'	linktitle => 'Grade current resource for all students.'
},	},
{ linktext => 'Grade page/folder for one student',	{ linktext => 'Grade page/folder for one student',
url => $url1d,	url => $url1d,
permission => 'F',	permission => $permissions{'either'},
icon => 'grade_PageFolder.png',	icon => 'grade_PageFolder.png',
linktitle => 'Grade all resources in current page/sequence/folder for one student.'	linktitle => 'Grade all resources in current page/sequence/folder for one student.'
},	},
{ linktext => 'Download submissions',	{ linktext => 'Download submissions',
url => $url1e,	url => $url1e,
permission => 'F',	permission => $permissions{'either'},
icon => 'download_sub.png',	icon => 'download_sub.png',
linktitle => 'Download all students submissions.'	linktitle => 'Download all students submissions.'
}]},	}]},
Line 9820 sub grading_menu {	Line 10588 sub grading_menu {

{ linktext => 'Upload Scores',	{ linktext => 'Upload Scores',
url => $url2,	url => $url2,
permission => 'F',	permission => $permissions{'mgr'},
icon => 'uploadscores.png',	icon => 'uploadscores.png',
linktitle => 'Specify a file containing the class scores for current resource.'	linktitle => 'Specify a file containing the class scores for current resource.'
},	},
{ linktext => 'Process Clicker',	{ linktext => 'Process Clicker',
url => $url3,	url => $url3,
permission => 'F',	permission => $permissions{'mgr'},
icon => 'addClickerInfoFile.png',	icon => 'addClickerInfoFile.png',
linktitle => 'Specify a file containing the clicker information for this resource.'	linktitle => 'Specify a file containing the clicker information for this resource.'
},	},
{ linktext => 'Grade/Manage/Review Bubblesheets',	{ linktext => 'Grade/Manage/Review Bubblesheets',
url => $url4,	url => $url4,
permission => 'F',	permission => $permissions{'mgr'},
icon => 'bubblesheet.png',	icon => 'bubblesheet.png',
linktitle => 'Grade bubblesheet exams, upload/download bubblesheet data files, and review previously graded bubblesheet exams.'	linktitle => 'Grade bubblesheet exams, upload/download bubblesheet data files, and review previously graded bubblesheet exams.'
},	},
{ linktext => 'Verify Receipt Number',	{ linktext => 'Verify Receipt Number',
url => $url5,	url => $url5,
permission => 'F',	permission => $permissions{'either'},
icon => 'receipt_number.png',	icon => 'receipt_number.png',
linktitle => 'Verify a system-generated receipt number for correct problem solution.'	linktitle => 'Verify a system-generated receipt number for correct problem solution.'
}	}
Line 9856 sub grading_menu {	Line 10624 sub grading_menu {
return $Str;	return $Str;
}	}


sub ungraded {	sub ungraded {
my ($request)=@_;	my ($request)=@_;
&submit_options($request);	&submit_options($request);
Line 9904 sub submit_options_download {	Line 10671 sub submit_options_download {
my ($request,$symb) = @_;	my ($request,$symb) = @_;
if (!$symb) {return '';}	if (!$symb) {return '';}

	my $res_error;
	my ($partlist,$handgrade,$responseType,$numresp,$numessay,$numdropbox) =
	&response_type($symb,\$res_error);
	if ($res_error) {
	$request->print(&mt('An error occurred retrieving response types'));
	return;
	}
	unless ($numessay) {
	$request->print(&mt('No essayresponse items found'));
	return;
	}
	my $table;
	if (ref($partlist) eq 'ARRAY') {
	if (scalar(@$partlist) > 1 ) {
	$table = &showResourceInfo($symb,$partlist,$responseType,'gradingMenu',1,1);
	}
	}

my $is_tool = ($symb =~ /ext\.tool$/);	my $is_tool = ($symb =~ /ext\.tool$/);
&commonJSfunctions($request);	&commonJSfunctions($request);

my $result='<form action="/adm/grades" method="post" name="gradingMenu">'."\n".	my $result='<form action="/adm/grades" method="post" name="gradingMenu">'."\n".
'<input type="hidden" name="symb" value="'.&Apache::lonenc::check_encrypt($symb).'" />'."\n";	$table."\n".
	'<input type="hidden" name="symb" value="'.&Apache::lonenc::check_encrypt($symb).'" />'."\n";
$result.='	$result.='
<h2>	<h2>
'.&mt('Select Students for whom to Download Submissions').'	'.&mt('Select Students for whom to Download Submissions').'
Line 9939 sub submit_options {	Line 10725 sub submit_options {
<input type="submit" value="'.&mt('Next').' →" />	<input type="submit" value="'.&mt('Next').' →" />
</div>	</div>
</div>	</div>


</form>';	</form>';
return $result;	return $result;
}	}
Line 9957 sub selectfield {	Line 10741 sub selectfield {
(&substatus_options,	(&substatus_options,
'select_form_order' => ['yes','queued','graded','incorrect','all']);	'select_form_order' => ['yes','queued','graded','incorrect','all']);
}	}

	#
	# PrepareClasslist() needs to be called to avoid getting a sections list
	# for a different course from the @Sections global in lonstatistics.pm,
	# populated by an earlier request.
	#
	&Apache::lonstatistics::PrepareClasslist();

my $result='<div class="LC_columnSection">	my $result='<div class="LC_columnSection">

<fieldset>	<fieldset>
Line 10020 sub reset_perm {	Line 10812 sub reset_perm {

sub init_perm {	sub init_perm {
&reset_perm();	&reset_perm();
foreach my $test_perm ('vgr','mgr','opa') {	foreach my $test_perm ('vgr','mgr','opa','usc') {

my $scope = $env{'request.course.id'};	my $scope = $env{'request.course.id'};
if (!($perm{$test_perm}=&Apache::lonnet::allowed($test_perm,$scope))) {	if (!($perm{$test_perm}=&Apache::lonnet::allowed($test_perm,$scope))) {
Line 10208 ENDUPFORM	Line 11000 ENDUPFORM
<input type="text" name="givenanswer" size="50" />	<input type="text" name="givenanswer" size="50" />
<input type="hidden" name="waschecked" value="$env{'form.gradingmechanism'}" />	<input type="hidden" name="waschecked" value="$env{'form.gradingmechanism'}" />
ENDGRADINGFORM	ENDGRADINGFORM
$result.='</td>'.&Apache::loncommon::end_data_table_row().	$result.='</td>'.&Apache::loncommon::end_data_table_row().
&Apache::loncommon::start_data_table_row().'<td>'.(<<ENDPERCFORM);	&Apache::loncommon::start_data_table_row().'<td>'.(<<ENDPERCFORM);
<label>$pcorrect: <input type="text" name="pcorrect" size="4" value="$env{'form.pcorrect'}" onchange="sanitycheck()" /></label>	<label>$pcorrect: <input type="text" name="pcorrect" size="4" value="$env{'form.pcorrect'}" onchange="sanitycheck()" /></label>
<br /><label>$pincorrect: <input type="text" name="pincorrect" size="4" value="$env{'form.pincorrect'}" onchange="sanitycheck()" /></label>	<br /><label>$pincorrect: <input type="text" name="pincorrect" size="4" value="$env{'form.pincorrect'}" onchange="sanitycheck()" /></label>
<br /><input type="button" onclick="javascript:checkUpload(this.form);" value="$upload" />	<br /><input type="button" onclick="javascript:checkUpload(this.form);" value="$upload" />
</form>'	</form>
ENDPERCFORM	ENDPERCFORM
$result.='</td>'.	$result.='</td>'.
&Apache::loncommon::end_data_table_row().	&Apache::loncommon::end_data_table_row().
Line 10222 ENDPERCFORM	Line 11014 ENDPERCFORM
}	}

sub process_clicker_file {	sub process_clicker_file {
my ($r,$symb)=@_;	my ($r,$symb) = @_;
if (!$symb) {return '';}	if (!$symb) {return '';}

my %Saveable_Parameters=&clicker_grading_parameters();	my %Saveable_Parameters=&clicker_grading_parameters();
Line 10294 sub process_clicker_file {	Line 11086 sub process_clicker_file {
'<span class="LC_filename">'.&HTML::Entities::encode($env{'form.upfile.filename'},'<>&"').'</span>'),1);	'<span class="LC_filename">'.&HTML::Entities::encode($env{'form.upfile.filename'},'<>&"').'</span>'),1);
return $result;	return $result;
}	}
	my $mimetype;
	if ($env{'form.upfiletype'} eq 'iclicker') {
	my $mm = new File::MMagic;
	$mimetype = $mm->checktype_contents($env{'form.upfile'});
	unless (($mimetype eq 'text/plain') \|\| ($mimetype eq 'text/html')) {
	$result.= '<p>'.
	&Apache::lonhtmlcommon::confirm_success(
	&mt('File format is neither csv (iclicker 6) nor xml (iclicker 7)'),1).'</p>';
	return $result;
	}
	} elsif (($env{'form.upfiletype'} ne 'interwrite') && ($env{'form.upfiletype'} ne 'turning')) {
	$result .= '<p>'.
	&Apache::lonhtmlcommon::confirm_success(
	&mt('Invalid clicker type: choose one of: i>clicker, Interwrite PRS, or Turning Technologies.'),1).'</p>';
	return $result;
	}

# Were able to get all the info needed, now analyze the file	# Were able to get all the info needed, now analyze the file

Line 10320 ENDHEADER	Line 11128 ENDHEADER
my $errormsg='';	my $errormsg='';
my $number=0;	my $number=0;
if ($env{'form.upfiletype'} eq 'iclicker') {	if ($env{'form.upfiletype'} eq 'iclicker') {
($errormsg,$number)=&iclicker_eval(\@questiontitles,\%responses);	if ($mimetype eq 'text/plain') {
}	($errormsg,$number)=&iclicker_eval(\@questiontitles,\%responses);
if ($env{'form.upfiletype'} eq 'interwrite') {	} elsif ($mimetype eq 'text/html') {
	($errormsg,$number)=&iclickerxml_eval(\@questiontitles,\%responses);
	}
	} elsif ($env{'form.upfiletype'} eq 'interwrite') {
($errormsg,$number)=&interwrite_eval(\@questiontitles,\%responses);	($errormsg,$number)=&interwrite_eval(\@questiontitles,\%responses);
}	} elsif ($env{'form.upfiletype'} eq 'turning') {
if ($env{'form.upfiletype'} eq 'turning') {
($errormsg,$number)=&turning_eval(\@questiontitles,\%responses);	($errormsg,$number)=&turning_eval(\@questiontitles,\%responses);
}	}
$result.='<br />'.&mt('Found [_1] question(s)',$number).'<br />'.	$result.='<br />'.&mt('Found [_1] question(s)',$number).'<br />'.
Line 10378 ENDHEADER	Line 11188 ENDHEADER
"\n".&mt("Username").": <input type='text' name='uname".$id."' /> ".	"\n".&mt("Username").": <input type='text' name='uname".$id."' /> ".
"\n".&mt("Domain").": ".	"\n".&mt("Domain").": ".
&Apache::loncommon::select_dom_form($env{'course.'.$env{'request.course.id'}.'.domain'},'udom'.$id).' '.	&Apache::loncommon::select_dom_form($env{'course.'.$env{'request.course.id'}.'.domain'},'udom'.$id).' '.
&Apache::loncommon::selectstudent_link('clickeranalysis','uname'.$id,'udom'.$id,0,$id);	&Apache::loncommon::selectstudent_link('clickeranalysis','uname'.$id,'udom'.$id,'',$id);
$unknown_count++;	$unknown_count++;
}	}
}	}
Line 10433 sub iclicker_eval {	Line 11243 sub iclicker_eval {
return ($errormsg,$number);	return ($errormsg,$number);
}	}

	sub iclickerxml_eval {
	my ($questiontitles,$responses)=@_;
	my $number=0;
	my $errormsg='';
	my @state;
	my %respbyid;
	my $p = HTML::Parser->new
	(
	xml_mode => 1,
	start_h =>
	[sub {
	my ($tagname,$attr) = @_;
	push(@state,$tagname);
	if ("@state" eq "ssn p") {
	my $title = $attr->{qn};
	$title =~ s/(^\s+\|\s+$)//g;
	$questiontitles->[$number]=$title;
	} elsif ("@state" eq "ssn p v") {
	my $id = $attr->{id};
	my $entry = $attr->{ans};
	$id=~s/^[\#0]+//;
	$entry =~s/[^a-zA-Z0-9\.\*\-\+]+//g;
	$respbyid{$id}[$number] = $entry;
	}
	}, "tagname, attr"],
	end_h =>
	[sub {
	my ($tagname) = @_;
	if ("@state" eq "ssn p") {
	$number++;
	}
	pop(@state);
	}, "tagname"],
	);

	$p->parse($env{'form.upfile'});
	$p->eof;
	foreach my $id (keys(%respbyid)) {
	$responses->{$id}=join(',',@{$respbyid{$id}});
	}
	return ($errormsg,$number);
	}

sub interwrite_eval {	sub interwrite_eval {
my ($questiontitles,$responses)=@_;	my ($questiontitles,$responses)=@_;
my $number=0;	my $number=0;
Line 10491 sub turning_eval {	Line 11344 sub turning_eval {


sub assign_clicker_grades {	sub assign_clicker_grades {
my ($r,$symb)=@_;	my ($r,$symb) = @_;
if (!$symb) {return '';}	if (!$symb) {return '';}
# See which part we are saving to	# See which part we are saving to
my $res_error;	my $res_error;
Line 10502 sub assign_clicker_grades {	Line 11355 sub assign_clicker_grades {
# FIXME: This should probably look for the first handgradeable part	# FIXME: This should probably look for the first handgradeable part
my $part=$$partlist[0];	my $part=$$partlist[0];
# Start screen output	# Start screen output
my $result=&Apache::loncommon::start_data_table().	my $result = &Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().	&Apache::loncommon::start_data_table_header_row().
'<th>'.&mt('Assigning grades based on clicker file').'</th>'.	'<th>'.&mt('Assigning grades based on clicker file').'</th>'.
&Apache::loncommon::end_data_table_header_row().	&Apache::loncommon::end_data_table_header_row().
&Apache::loncommon::start_data_table_row().'<td>';	&Apache::loncommon::start_data_table_row().'<td>';
# Get correct result	# Get correct result
# FIXME: Possibly need delimiter other than ":"	# FIXME: Possibly need delimiter other than ":"
my @correct=();	my @correct=();
Line 10568 sub assign_clicker_grades {	Line 11421 sub assign_clicker_grades {
for (my $i=0;$i<$number;$i++) {	for (my $i=0;$i<$number;$i++) {
if ($correct[$i] eq '-') {	if ($correct[$i] eq '-') {
$realnumber--;	$realnumber--;
} elsif (($answer[$i]) \|\| ($answer[$i]=~/^[0\.]+$/)) {	} elsif (($answer[$i]) \|\| ($answer[$i]=~/^[0\.]+$/)) {
if ($gradingmechanism eq 'attendance') {	if ($gradingmechanism eq 'attendance') {
$sum+=$pcorrect;	$sum+=$pcorrect;
} elsif ($correct[$i] eq '*') {	} elsif ($correct[$i] eq '*') {
Line 10627 sub navmap_errormsg {	Line 11480 sub navmap_errormsg {
}	}

sub startpage {	sub startpage {
my ($r,$symb,$crumbs,$onlyfolderflag,$nodisplayflag,$stuvcurrent,$stuvdisp,$nomenu,$js,$onload) = @_;	my ($r,$symb,$crumbs,$onlyfolderflag,$nodisplayflag,$stuvcurrent,$stuvdisp,$nomenu,$head_extra,$onload,$divforres) = @_;
my %args;	my %args;
if ($onload) {	if ($onload) {
my %loaditems = (	my %loaditems = (
Line 10637 sub startpage {	Line 11490 sub startpage {
}	}
if ($nomenu) {	if ($nomenu) {
$args{'only_body'} = 1;	$args{'only_body'} = 1;
$r->print(&Apache::loncommon::start_page("Student's Version",$js,\%args);	$r->print(&Apache::loncommon::start_page("Student's Version",$head_extra,\%args));
} else {	} else {
unshift(@$crumbs,{href=>&href_symb_cmd($symb,'gradingmenu'),text=>"Grading"});	if ($env{'request.course.id'}) {
	unshift(@$crumbs,{href=>&href_symb_cmd($symb,'gradingmenu'),text=>"Grading"});
	}
$args{'bread_crumbs'} = $crumbs;	$args{'bread_crumbs'} = $crumbs;
$r->print(&Apache::loncommon::start_page('Grading',$js,\%args));	$r->print(&Apache::loncommon::start_page('Grading',$head_extra,\%args));
&Apache::lonquickgrades::startGradeScreen($r,($env{'form.symb'}?'probgrading':'grading'));	if ($env{'request.course.id'}) {
	&Apache::lonquickgrades::startGradeScreen($r,($env{'form.symb'}?'probgrading':'grading'));
	}
}	}
unless ($nodisplayflag) {	unless ($nodisplayflag) {
$r->print(&Apache::lonhtmlcommon::resource_info_box($symb,$onlyfolderflag,$stuvcurrent,$stuvdisp));	$r->print(&Apache::lonhtmlcommon::resource_info_box($symb,$onlyfolderflag,$stuvcurrent,$stuvdisp,$divforres));
}	}
}	}

sub select_problem {	sub select_problem {
my ($r)=@_;	my ($r)=@_;
$r->print('<h3>'.&mt('Select the problem or one of the problems you want to grade').'</h3><form action="/adm/grades">');	$r->print('<h3>'.&mt('Select the problem or one of the problems you want to grade').'</h3><form action="/adm/grades">');
$r->print(&Apache::lonstathelpers::problem_selector('.',undef,1,undef,undef,undef,undef,1));	$r->print(&Apache::lonstathelpers::problem_selector('.',undef,1,undef,undef,1,1));
$r->print('<input type="hidden" name="command" value="gradingmenu" />');	$r->print('<input type="hidden" name="command" value="gradingmenu" />');
$r->print('<input type="submit" value="'.&mt('Next').' →" /></form>');	$r->print('<input type="submit" value="'.&mt('Next').' →" /></form>');
}	}
Line 10709 sub handler {	Line 11566 sub handler {
&select_problem($request);	&select_problem($request);
} else {	} else {
if ($command eq 'submission' && $perm{'vgr'}) {	if ($command eq 'submission' && $perm{'vgr'}) {
my ($stuvcurrent,$stuvdisp,$versionform,$js);	my ($stuvcurrent,$stuvdisp,$versionform,$js,$onload);
if (($env{'form.student'} ne '') && ($env{'form.userdom'} ne '')) {	if (($env{'form.student'} ne '') && ($env{'form.userdom'} ne '')) {
($stuvcurrent,$stuvdisp,$versionform,$js) =	($stuvcurrent,$stuvdisp,$versionform,$js) =
&choose_task_version_form($symb,$env{'form.student'},	&choose_task_version_form($symb,$env{'form.student'},
$env{'form.userdom'});	$env{'form.userdom'});
}	}
&startpage($request,$symb,[{href=>"", text=>"Student Submissions"}],undef,undef,$stuvcurrent,$stuvdisp,undef,$js);	my $divforres;
	if ($env{'form.student'} eq '') {
	$js .= &part_selector_js();
	$onload = "toggleParts('gradesub');";
	} else {
	$divforres = 1;
	}
	my $head_extra = $js;
	unless ($env{'form.vProb'} eq 'no') {
	my $csslinks = &Apache::loncommon::css_links($symb);
	if ($csslinks) {
	$head_extra .= "\n$csslinks";
	}
	}
	&startpage($request,$symb,[{href=>"", text=>"Student Submissions"}],undef,undef,
	$stuvcurrent,$stuvdisp,undef,$head_extra,$onload,$divforres);
if ($versionform) {	if ($versionform) {
	if ($divforres) {
	$request->print('<div style="padding:0;clear:both;margin:0;border:0"></div>');
	}
$request->print($versionform);	$request->print($versionform);
}	}
$request->print('<br clear="all" />');	($env{'form.student'} eq '' ? &listStudents($request,$symb,'',$divforres) : &submission($request,0,0,$symb,$divforres,$command));
($env{'form.student'} eq '' ? &listStudents($request,$symb) : &submission($request,0,0,$symb));
} elsif ($command eq 'versionsub' && $perm{'vgr'}) {	} elsif ($command eq 'versionsub' && $perm{'vgr'}) {
my ($stuvcurrent,$stuvdisp,$versionform,$js) =	my ($stuvcurrent,$stuvdisp,$versionform,$js) =
&choose_task_version_form($symb,$env{'form.student'},	&choose_task_version_form($symb,$env{'form.student'},
$env{'form.userdom'},	$env{'form.userdom'},
$env{'form.inhibitmenu'});	$env{'form.inhibitmenu'});
&startpage($request,$symb,[{href=>"", text=>"Previous Student Version"}],undef,undef,$stuvcurrent,$stuvdisp,$env{'form.inhibitmenu'},$js);	my $head_extra = $js;
	unless ($env{'form.vProb'} eq 'no') {
	my $csslinks = &Apache::loncommon::css_links($symb);
	if ($csslinks) {
	$head_extra .= "\n$csslinks";
	}
	}
	&startpage($request,$symb,[{href=>"", text=>"Previous Student Version"}],undef,undef,
	$stuvcurrent,$stuvdisp,$env{'form.inhibitmenu'},$head_extra);
if ($versionform) {	if ($versionform) {
$request->print($versionform);	$request->print($versionform);
}	}
Line 10737 sub handler {	Line 11619 sub handler {
{href=>'',text=>'Select student'}],1,1);	{href=>'',text=>'Select student'}],1,1);
&pickStudentPage($request,$symb);	&pickStudentPage($request,$symb);
} elsif ($command eq 'displayPage' && $perm{'vgr'}) {	} elsif ($command eq 'displayPage' && $perm{'vgr'}) {
	my $csslinks;
	unless ($env{'form.vProb'} eq 'no') {
	$csslinks = &Apache::loncommon::css_links($symb,'map');
	}
&startpage($request,$symb,	&startpage($request,$symb,
[{href=>&href_symb_cmd($symb,'all_for_one'),text=>'Grade page/folder for one student'},	[{href=>&href_symb_cmd($symb,'all_for_one'),text=>'Grade page/folder for one student'},
{href=>'',text=>'Select student'},	{href=>'',text=>'Select student'},
{href=>'',text=>'Grade student'}],1,1);	{href=>'',text=>'Grade student'}],1,1,undef,undef,undef,$csslinks);
&displayPage($request,$symb);	&displayPage($request,$symb);
} elsif ($command eq 'gradeByPage' && $perm{'mgr'}) {	} elsif ($command eq 'gradeByPage' && $perm{'mgr'}) {
&startpage($request,$symb,[{href=>&href_symb_cmd($symb,'all_for_one'),text=>'Grade page/folder for one student'},	&startpage($request,$symb,[{href=>&href_symb_cmd($symb,'all_for_one'),text=>'Grade page/folder for one student'},
Line 10749 sub handler {	Line 11635 sub handler {
{href=>'',text=>'Store grades'}],1,1);	{href=>'',text=>'Store grades'}],1,1);
&updateGradeByPage($request,$symb);	&updateGradeByPage($request,$symb);
} elsif ($command eq 'processGroup' && $perm{'vgr'}) {	} elsif ($command eq 'processGroup' && $perm{'vgr'}) {
	my $csslinks;
	unless ($env{'form.vProb'} eq 'no') {
	$csslinks = &Apache::loncommon::css_links($symb);
	}
&startpage($request,$symb,[{href=>'',text=>'...'},	&startpage($request,$symb,[{href=>'',text=>'...'},
{href=>'',text=>'Modify grades'}]);	{href=>'',text=>'Modify grades'}],undef,undef,undef,undef,undef,$csslinks,undef,1);
&processGroup($request,$symb);	&processGroup($request,$symb);
} elsif ($command eq 'gradingmenu' && $perm{'vgr'}) {	} elsif ($command eq 'gradingmenu' && $perm{'vgr'}) {
&startpage($request,$symb);	&startpage($request,$symb);
Line 10759 sub handler {	Line 11649 sub handler {
&startpage($request,$symb,[{href=>'',text=>'Select individual students to grade'}]);	&startpage($request,$symb,[{href=>'',text=>'Select individual students to grade'}]);
$request->print(&submit_options($request,$symb));	$request->print(&submit_options($request,$symb));
} elsif ($command eq 'ungraded' && $perm{'vgr'}) {	} elsif ($command eq 'ungraded' && $perm{'vgr'}) {
&startpage($request,$symb,[{href=>'',text=>'Grade ungraded submissions'}]);	my $js = &part_selector_js();
	my $onload = "toggleParts('gradesub');";
	&startpage($request,$symb,[{href=>'',text=>'Grade ungraded submissions'}],
	undef,undef,undef,undef,undef,$js,$onload);
$request->print(&listStudents($request,$symb,'graded'));	$request->print(&listStudents($request,$symb,'graded'));
} elsif ($command eq 'table' && $perm{'vgr'}) {	} elsif ($command eq 'table' && $perm{'vgr'}) {
&startpage($request,$symb,[{href=>"", text=>"Grading table"}]);	&startpage($request,$symb,[{href=>"", text=>"Grading table"}]);
Line 10838 sub handler {	Line 11731 sub handler {
&startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1);	&startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1);
$request->print(&scantron_process_students($request,$symb));	$request->print(&scantron_process_students($request,$symb));
} elsif ($command eq 'scantronupload' &&	} elsif ($command eq 'scantronupload' &&
(&Apache::lonnet::allowed('usc',$env{'request.role.domain'})\|\|	(&Apache::lonnet::allowed('usc',$env{'request.role.domain'}) \|\| $perm{'usc'})) {
&Apache::lonnet::allowed('usc',$env{'request.course.id'}))) {
&startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1,	&startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1,
undef,undef,undef,undef,'toggleScantab(document.rules);');	undef,undef,undef,undef,'toggleScantab(document.rules);');
$request->print(&scantron_upload_scantron_data($request,$symb));	$request->print(&scantron_upload_scantron_data($request,$symb));
} elsif ($command eq 'scantronupload_save' &&	} elsif ($command eq 'scantronupload_save' &&
(&Apache::lonnet::allowed('usc',$env{'request.role.domain'})\|\|	(&Apache::lonnet::allowed('usc',$env{'request.role.domain'}) \|\| $perm{'usc'})) {
&Apache::lonnet::allowed('usc',$env{'request.course.id'}))) {
&startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1);	&startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1);
$request->print(&scantron_upload_scantron_data_save($request,$symb));	$request->print(&scantron_upload_scantron_data_save($request,$symb));
} elsif ($command eq 'scantron_download' &&	} elsif ($command eq 'scantron_download' && ($perm{'usc'} \|\| $perm{'mgr'})) {
&Apache::lonnet::allowed('usc',$env{'request.course.id'})) {
&startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1);	&startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1);
$request->print(&scantron_download_scantron_data($request,$symb));	$request->print(&scantron_download_scantron_data($request,$symb));
	} elsif ($command eq 'scantronupload_delete' &&
	(&Apache::lonnet::allowed('usc',$env{'request.role.domain'}) \|\| $perm{'usc'})) {
	&startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1);
	&scantron_upload_delete($request,$symb);
} elsif ($command eq 'checksubmissions' && $perm{'vgr'}) {	} elsif ($command eq 'checksubmissions' && $perm{'vgr'}) {
&startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1);	&startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1);
$request->print(&checkscantron_results($request,$symb));	$request->print(&checkscantron_results($request,$symb));
} elsif ($command eq 'downloadfilesselect' && $perm{'vgr'}) {	} elsif ($command eq 'downloadfilesselect' && $perm{'vgr'}) {
&startpage($request,$symb,[{href=>'', text=>'Select which submissions to download'}]);	my $js = &part_selector_js();
	my $onload = "toggleParts('gradingMenu');";
	&startpage($request,$symb,[{href=>'', text=>'Select which submissions to download'}],
	undef,undef,undef,undef,undef,$js,$onload);
$request->print(&submit_options_download($request,$symb));	$request->print(&submit_options_download($request,$symb));
} elsif ($command eq 'downloadfileslink' && $perm{'vgr'}) {	} elsif ($command eq 'downloadfileslink' && $perm{'vgr'}) {
&startpage($request,$symb,	&startpage($request,$symb,
[{href=>&href_symb_cmd($symb,'downloadfilesselect'), text=>'Select which submissions to download'},	[{href=>&href_symb_cmd($symb,'downloadfilesselect'), text=>'Select which submissions to download'},
{href=>'', text=>'Download submitted files'}]);	{href=>'', text=>'Download submitted files'}],
	undef,undef,undef,undef,undef,undef,undef,1);
	$request->print('<div style="padding:0;clear:both;margin:0;border:0"></div>');
&submit_download_link($request,$symb);	&submit_download_link($request,$symb);
} elsif ($command) {	} elsif ($command) {
&startpage($request,$symb,[{href=>'', text=>'Access denied'}]);	&startpage($request,$symb,[{href=>'', text=>'Access denied'}]);
Line 10873 sub handler {	Line 11772 sub handler {
}	}
if ($env{'form.inhibitmenu'}) {	if ($env{'form.inhibitmenu'}) {
$request->print(&Apache::loncommon::end_page());	$request->print(&Apache::loncommon::end_page());
} else {	} elsif ($env{'request.course.id'}) {
&Apache::lonquickgrades::endGradeScreen($request);	&Apache::lonquickgrades::endGradeScreen($request);
}	}
&reset_caches();	&reset_caches();
Line 11024 Side Effects: None.	Line 11923 Side Effects: None.
$r - Apache request object	$r - Apache request object
$i - number of the current scanline	$i - number of the current scanline
$scan_record - hash ref as returned from &scantron_parse_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	$line - full contents of the current scanline
$error - error condition, valid values are	$error - error condition, valid values are
'incorrectCODE', 'duplicateCODE',	'incorrectCODE', 'duplicateCODE',
Line 11041 Side Effects: None.	Line 11940 Side Effects: None.
- missingbubble - array ref of the bubble lines that have missing	- missingbubble - array ref of the bubble lines that have missing
bubble errors	bubble errors

$randomorder - True if exam folder has randomorder set	$randomorder - True if exam folder (or a sub-folder) has randomorder set
$randompick - True if exam folder has randompick set	$randompick - True if exam folder (or a sub-folder) has randompick set
$respnumlookup - Reference to HASH mapping question numbers in bubble lines	$respnumlookup - Reference to HASH mapping question numbers in bubble lines
for current line to question number used for same question	for current line to question number used for same question
in "Master Seqence" (as seen by Course Coordinator).	in "Master Seqence" (as seen by Course Coordinator).
Line 11111 Side Effects: None.	Line 12010 Side Effects: None.
=item scantron_upload_scantron_data_save() :	=item scantron_upload_scantron_data_save() :

Adds a provided bubble information data file to the course if user	Adds a provided bubble information data file to the course if user
has the correct privileges to do so.	has the correct privileges to do so.

	= item scantron_upload_delete() :

	Deletes a previously uploaded bubble information data file, if user
	was the one who uploaded the file, and has the privileges to do so.

=item valid_file() :	=item valid_file() :

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

Removed from v.1.756
changed lines
	Added in v.1.790