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.596.2.12.2.62 and 1.776

version 1.596.2.12.2.62, 2024/07/03 13:12:44	version 1.776, 2020/09/09 23:01:12
Line 44 use Apache::Constants qw(:common :http);	Line 44 use Apache::Constants qw(:common :http);
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonenc;	use Apache::lonenc;
use Apache::lonstathelpers;	use Apache::lonstathelpers;
	use Apache::lonquickgrades;
use Apache::bridgetask();	use Apache::bridgetask();
use Apache::lontexconvert();	use Apache::lontexconvert();
	use String::Similarity;
use HTML::Parser();	use HTML::Parser();
use File::MMagic;	use File::MMagic;
use String::Similarity;
use LONCAPA;	use LONCAPA;

use POSIX qw(floor);	use POSIX qw(floor);
Line 118 sub getpartlist {	Line 119 sub getpartlist {
my $res = $navmap->getBySymb($symb);	my $res = $navmap->getBySymb($symb);
my $partlist = $res->parts();	my $partlist = $res->parts();
my $url = $res->src();	my $url = $res->src();
my @metakeys = split(/,/,&Apache::lonnet::metadata($url,'keys'));	my $toolsymb;
	if ($url =~ /ext\.tool$/) {
	$toolsymb = $symb;
	}
	my @metakeys = split(/,/,&Apache::lonnet::metadata($url,'keys',$toolsymb));

my @stores;	my @stores;
foreach my $part (@{ $partlist }) {	foreach my $part (@{ $partlist }) {
Line 142 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 ---	#--- 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 {
Line 299 sub showResourceInfo {	Line 303 sub showResourceInfo {
} else {	} else {
return '<br clear="all" />';	return '<br clear="all" />';
}	}
}	}
return $result;	return $result;
}	}

Line 586 sub cleanRecord {	Line 590 sub cleanRecord {
return $result;	return $result;
}	}
} elsif ( $response =~ m/(?:numerical\|formula\|custom)/) {	} elsif ( $response =~ m/(?:numerical\|formula\|custom)/) {
# Respect multiple input fields, see Bug #5409	# Respect multiple input fields, see Bug #5409
$answer =	$answer =
&Apache::loncommon::format_previous_attempt_value('submission',	&Apache::loncommon::format_previous_attempt_value('submission',
$answer);	$answer);
Line 1037 sub verifyreceipt {	Line 1041 sub verifyreceipt {
sub listStudents {	sub listStudents {
my ($request,$symb,$submitonly,$divforres) = @_;	my ($request,$symb,$submitonly,$divforres) = @_;

	my $is_tool = ($symb =~ /ext\.tool$/);
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'};
Line 1103 LISTJAVASCRIPT	Line 1108 LISTJAVASCRIPT
"\n".$table;	"\n".$table;

$gradeTable .= &Apache::lonhtmlcommon::start_pick_box();	$gradeTable .= &Apache::lonhtmlcommon::start_pick_box();
$gradeTable .= &Apache::lonhtmlcommon::row_title(&mt('View Problem Text'))	unless ($is_tool) {
.'<label><input type="radio" name="vProb" value="no" checked="checked" /> '.&mt('no').' </label>'."\n"	$gradeTable .= &Apache::lonhtmlcommon::row_title(&mt('View Problem Text'))
.'<label><input type="radio" name="vProb" value="yes" /> '.&mt('one student').' </label>'."\n"	.'<label><input type="radio" name="vProb" value="no" checked="checked" /> '.&mt('no').' </label>'."\n"
.'<label><input type="radio" name="vProb" value="all" /> '.&mt('all students').' </label><br />'."\n"	.'<label><input type="radio" name="vProb" value="yes" /> '.&mt('one student').' </label>'."\n"
.&Apache::lonhtmlcommon::row_closure();	.'<label><input type="radio" name="vProb" value="all" /> '.&mt('all students').' </label><br />'."\n"
$gradeTable .= &Apache::lonhtmlcommon::row_title(&mt('View Answer'))	.&Apache::lonhtmlcommon::row_closure();
.'<label><input type="radio" name="vAns" value="no" /> '.&mt('no').' </label>'."\n"	$gradeTable .= &Apache::lonhtmlcommon::row_title(&mt('View Answer'))
.'<label><input type="radio" name="vAns" value="yes" /> '.&mt('one student').' </label>'."\n"	.'<label><input type="radio" name="vAns" value="no" /> '.&mt('no').' </label>'."\n"
.'<label><input type="radio" name="vAns" value="all" checked="checked" /> '.&mt('all students').' </label><br />'."\n"	.'<label><input type="radio" name="vAns" value="yes" /> '.&mt('one student').' </label>'."\n"
.&Apache::lonhtmlcommon::row_closure();	.'<label><input type="radio" name="vAns" value="all" checked="checked" /> '.&mt('all students').' </label><br />'."\n"
	.&Apache::lonhtmlcommon::row_closure();
	}

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;
my %optiontext = &Apache::lonlocal::texthash (	my %optiontext;
	if ($is_tool) {
	%optiontext = &Apache::lonlocal::texthash (
	lastonly => 'last transaction',
	last => 'last transaction with details',
	datesub => 'all transactions',
	all => 'all transactions with details',
	);
	} else {
	%optiontext = &Apache::lonlocal::texthash (
lastonly => 'last submission',	lastonly => 'last submission',
last => 'last submission with details',	last => 'last submission with details',
datesub => 'all submissions',	datesub => 'all submissions',
all => 'all submissions with details',	all => 'all submissions with details',
);	);
	}
my $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" /> '.
Line 1136 LISTJAVASCRIPT	Line 1153 LISTJAVASCRIPT
'<span class="LC_nobreak">'.	'<span class="LC_nobreak">'.
'<label><input type="radio" name="lastSub" value="all" /> '.	'<label><input type="radio" name="lastSub" value="all" /> '.
$optiontext{'all'}.'</label></span>';	$optiontext{'all'}.'</label></span>';
	my $viewtitle;
	if ($is_tool) {
	$viewtitle = &mt('View Transactions');
	} else {
	$viewtitle = &mt('View Submissions');
	}
my ($compmsg,$nocompmsg);	my ($compmsg,$nocompmsg);
$nocompmsg = ' checked="checked"';	$nocompmsg = ' checked="checked"';
if ($numessay) {	if ($numessay) {
$compmsg = $nocompmsg;	$compmsg = $nocompmsg;
$nocompmsg = '';	$nocompmsg = '';
}	}
$gradeTable .= &Apache::lonhtmlcommon::row_title(&mt('Submissions'))	$gradeTable .= &Apache::lonhtmlcommon::row_title($viewtitle)
.$submission_options;	.$submission_options
# Check if any gradable	.&Apache::lonhtmlcommon::row_closure()
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'))	.&Apache::lonhtmlcommon::row_title(&mt('Send Messages'))
.'<span class="LC_nobreak">'	.'<span class="LC_nobreak">'
.'<label><input type="radio" name="compmsg" value="0"'.$nocompmsg.' />'	.'<label><input type="radio" name="compmsg" value="0"'.$nocompmsg.' />'
Line 1178 LISTJAVASCRIPT	Line 1176 LISTJAVASCRIPT
.&mt('Yes').(' 'x2).'</label>'	.&mt('Yes').(' 'x2).'</label>'
.&Apache::lonhtmlcommon::row_closure();	.&Apache::lonhtmlcommon::row_closure();

$gradeTable .=	$gradeTable .= &Apache::lonhtmlcommon::row_title(&mt('Grading Increments'))
&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>';
}
$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="'.$env{'form.Status'}.'" />'."\n";	$gradeTable .= '<input type="hidden" name="Status" value="'.$stu_status.'" />'."\n";
} else {	} else {
$gradeTable .= &Apache::lonhtmlcommon::row_closure()	$gradeTable .= &Apache::lonhtmlcommon::row_closure()
.&Apache::lonhtmlcommon::row_title(&mt('Student Status'))	.&Apache::lonhtmlcommon::row_title(&mt('Student Status'))
Line 1207 LISTJAVASCRIPT	Line 1203 LISTJAVASCRIPT
}	}
$gradeTable .= &Apache::lonhtmlcommon::row_closure(1)	$gradeTable .= &Apache::lonhtmlcommon::row_closure(1)
.&Apache::lonhtmlcommon::end_pick_box();	.&Apache::lonhtmlcommon::end_pick_box();
	my $regrademsg;
	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.");
	} else {
	$regrademsg = &mt("To view/grade/regrade a submission or a group of submissions, click on the check box(es) next to the student's name(s). Then click on the Next button.");
	}
$gradeTable .= '<p>'	$gradeTable .= '<p>'
.&mt("To view/grade/regrade a submission or a group of submissions, click on the check box(es) next to the student's name(s). Then click on the Next button.")."\n"	.$regrademsg."\n"
.'<input type="hidden" name="command" value="processGroup" />'	.'<input type="hidden" name="command" value="processGroup" />'
.'</p>';	.'</p>';

Line 1644 INNERJS	Line 1645 INNERJS
my $end_page_msg_central =	my $end_page_msg_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\.//;

Line 1772 INNERJS	Line 1772 INNERJS

function msgTail() {	function msgTail() {
pDoc = pWin.document;	pDoc = pWin.document;
	//pDoc.write("<\\/table>");
pDoc.write("<\\/td><\\/tr><\\/table> ");	pDoc.write("<\\/td><\\/tr><\\/table> ");
pDoc.write("<input type=\\"button\\" value=\\"$html_js_lt{'save'}\\" onclick=\\"javascript:checkInput()\\">  ");	pDoc.write("<input type=\\"button\\" value=\\"$html_js_lt{'save'}\\" onclick=\\"javascript:checkInput()\\">  ");
pDoc.write("<input type=\\"button\\" value=\\"$html_js_lt{'canc'}\\" onclick=\\"self.close()\\"><br /><br />");	pDoc.write("<input type=\\"button\\" value=\\"$html_js_lt{'canc'}\\" onclick=\\"self.close()\\"><br /><br />");
Line 2091 sub handback_box {	Line 2092 sub handback_box {
if ($file =~ /\/portfolio\//) {	if ($file =~ /\/portfolio\//) {
$file_counter++;	$file_counter++;
my ($file_path, $file_disp) = ($file =~ m\|(.+/)(.+)$\|);	my ($file_path, $file_disp) = ($file =~ m\|(.+/)(.+)$\|);
my ($name,$version,$ext) = &file_name_version_ext($file_disp);	my ($name,$version,$ext) = &Apache::lonnet::file_name_version_ext($file_disp);
$file_disp = "$name.$ext";	$file_disp = "$name.$ext";
$file = $file_path.$file_disp;	$file = $file_path.$file_disp;
$result.=&mt('Return commented version of [_1] to student.',	$result.=&mt('Return commented version of [_1] to student.',
Line 2178 sub files_exist {	Line 2179 sub files_exist {
my ($uname,$udom,$fullname) = split(/:/,$student);	my ($uname,$udom,$fullname) = split(/:/,$student);
my %record = &Apache::lonnet::restore($symb,$env{'request.course.id'},	my %record = &Apache::lonnet::restore($symb,$env{'request.course.id'},
$udom,$uname);	$udom,$uname);
my ($string)= &get_last_submission(\%record);	my ($string,$timestamp)= &get_last_submission(\%record);
foreach my $submission (@$string) {	foreach my $submission (@$string) {
my ($partid,$respid) =	my ($partid,$respid) =
($submission =~ /^resource\.([^\.])\.([^\.])\.submission/);	($submission =~ /^resource\.([^\.])\.([^\.])\.submission/);
Line 2281 sub submission {	Line 2282 sub submission {

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 $probtitle=&Apache::lonnet::gettitle($symb);
	my $is_tool = ($symb =~ /ext\.tool$/);
my ($essayurl,%coursedesc_by_cid);	my ($essayurl,%coursedesc_by_cid);

if (!&canview($usec)) {	if (!&canview($usec)) {
Line 2302 sub submission {	Line 2304 sub submission {
}	}

if (!$env{'form.lastSub'}) { $env{'form.lastSub'} = 'datesub'; }	if (!$env{'form.lastSub'}) { $env{'form.lastSub'} = 'datesub'; }
if (!$env{'form.vProb'}) { $env{'form.vProb'} = 'yes'; }	unless ($is_tool) {
if (!$env{'form.vAns'}) { $env{'form.vAns'} = 'yes'; }	if (!$env{'form.vProb'}) { $env{'form.vProb'} = 'yes'; }
	if (!$env{'form.vAns'}) { $env{'form.vAns'} = 'yes'; }
	}
if (($numessay) && ($calledby eq 'submission') && (!exists($env{'form.compmsg'}))) {	if (($numessay) && ($calledby eq 'submission') && (!exists($env{'form.compmsg'}))) {
$env{'form.compmsg'} = 1;	$env{'form.compmsg'} = 1;
}	}
Line 2496 sub submission {	Line 2500 sub submission {
# Display student info	# Display student info
$request->print(($counter == 0 ? '' : '<br />'));	$request->print(($counter == 0 ? '' : '<br />'));

	my $boxtitle = &mt('Submissions');
	if ($is_tool) {
	$boxtitle = &mt('Transactions')
	}
my $result='<div class="LC_Box">'	my $result='<div class="LC_Box">'
.'<h3 class="LC_hcell">'.&mt('Submissions').'</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 ($numresp > $numessay) {	if (($numresp > $numessay) && !$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";
Line 2523 sub submission {	Line 2531 sub submission {
# (3) All transactions (by date)	# (3) All transactions (by date)
# (4) The whole record (with detailed information for all transactions)	# (4) The whole record (with detailed information for all transactions)

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

my $lastsubonly;	my $lastsubonly;

if ($timestamp eq '') {	if ($$timestamp eq '') {
$lastsubonly.='<div class="LC_grade_submissions_body">'.$string->[0].'</div>';	$lastsubonly.='<div class="LC_grade_submissions_body">'.$$string[0].'</div>';
	} elsif ($is_tool) {
	$lastsubonly =
	'<div class="LC_grade_submissions_body">'
	.'<b>'.&mt('Date Grade Passed Back:').'</b> '.$$timestamp."</div>\n";
} else {	} else {
my ($shownsubmdate,$showngradedate);
if ($lastsubmittime && $lastgradetime) {
$shownsubmdate = &Apache::lonlocal::locallocaltime($lastsubmittime);
if ($lastgradetime > $lastsubmittime) {
$showngradedate = &Apache::lonlocal::locallocaltime($lastgradetime);
}
} else {
$shownsubmdate = $timestamp;
}
$lastsubonly =	$lastsubonly =
'<div class="LC_grade_submissions_body">'	'<div class="LC_grade_submissions_body">'
.'<b>'.&mt('Date Submitted:').'</b> '.$shownsubmdate."\n";	.'<b>'.&mt('Date Submitted:').'</b> '.$$timestamp."\n";
if ($showngradedate) {
$lastsubonly .= '<br /><b>'.&mt('Date Graded:').'</b> '.$showngradedate."\n";
}

my %seenparts;	my %seenparts;
my @part_response_id = &flatten_responseType($responseType);	my @part_response_id = &flatten_responseType($responseType);
Line 2572 sub submission {	Line 2571 sub submission {
' <span class="LC_internal_info">'.	' <span class="LC_internal_info">'.
'('.&mt('Response ID: [_1]',$respid).')'.	'('.&mt('Response ID: [_1]',$respid).')'.
'</span>   '.	'</span>   '.
'<span class="LC_warning">'.&mt('Nothing submitted - no attempts.').'</span><br /><br /></div>';	'<span class="LC_warning">'.&mt('Nothing submitted - no attempts.').'</span><br /><br /></div>';
next;	next;
}	}
foreach my $submission (@$string) {	foreach my $submission (@$string) {
Line 2587 sub submission {	Line 2586 sub submission {
$trial = $record{"resource.$partid.tries"};	$trial = $record{"resource.$partid.tries"};
$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') {
$similar='<hr /><span class="LC_warning">'.&mt("Essay was found to be similar to another essay submitted for this assignment.").'<br />'.	$similar='<hr /><span class="LC_warning">'.&mt("Essay was found to be similar to another essay submitted for this assignment.").'<br />'.
&mt('As the current submission is for an anonymous survey, no other details are available.').'</span><hr />';	&mt('As the current submission is for an anonymous survey, no other details are available.').'</span><hr />';
Line 2603 sub submission {	Line 2602 sub submission {
$osim,	$osim,
&Apache::loncommon::plainname($oname,$odom).' ('.$oname.':'.$odom.')').	&Apache::loncommon::plainname($oname,$odom).' ('.$oname.':'.$odom.')').
'</span></h3>';	'</span></h3>';
} elsif ($ocrsid ne '') {	} else {
my %old_course_desc;	my %old_course_desc;
if (ref($coursedesc_by_cid{$ocrsid}) eq 'HASH') {	if ($ocrsid ne '') {
%old_course_desc = %{$coursedesc_by_cid{$ocrsid}};	if (ref($coursedesc_by_cid{$ocrsid}) eq 'HASH') {
} else {	%old_course_desc = %{$coursedesc_by_cid{$ocrsid}};
my $args;	} else {
if ($ocrsid ne $env{'request.course.id'}) {	my $args;
$args = {'one_time' => 1};	if ($ocrsid ne $env{'request.course.id'}) {
	$args = {'one_time' => 1};
	}
	%old_course_desc =
	&Apache::lonnet::coursedescription($ocrsid,$args);
	$coursedesc_by_cid{$ocrsid} = \%old_course_desc;
}	}
%old_course_desc =	$similar .=
&Apache::lonnet::coursedescription($ocrsid,$args);	'<h3><span class="LC_warning">'.
$coursedesc_by_cid{$ocrsid} = \%old_course_desc;	&mt('Essay is [_1]% similar to an essay by [_2] in course [_3] (course id [_4]:[_5])',
	$osim,
	&Apache::loncommon::plainname($oname,$odom).' ('.$oname.':'.$odom.')',
	$old_course_desc{'description'},
	$old_course_desc{'num'},
	$old_course_desc{'domain'}).
	'</span></h3>';
	} else {
	$similar .=
	'<h3><span class="LC_warning">'.
	&mt('Essay is [_1]% similar to an essay by [_2] in an unknown course',
	$osim,
	&Apache::loncommon::plainname($oname,$odom).' ('.$oname.':'.$odom.')').
	'</span></h3>';
}	}
$similar .=
'<h3><span class="LC_warning">'.
&mt('Essay is [_1]% similar to an essay by [_2] in course [_3] (course id [_4]:[_5])',
$osim,
&Apache::loncommon::plainname($oname,$odom).' ('.$oname.':'.$odom.')',
$old_course_desc{'description'},
$old_course_desc{'num'},
$old_course_desc{'domain'}).
'</span></h3>';
} else {
$similar .=
'<h3><span class="LC_warning">'.
&mt('Essay is [_1]% similar to an essay by [_2] in an unknown course',
$osim,
&Apache::loncommon::plainname($oname,$odom).' ('.$oname.':'.$odom.')').
'</span></h3>';
}	}
$similar .= '<blockquote><i>'.	$similar .= '<blockquote><i>'.
&keywords_highlight($oessay).	&keywords_highlight($oessay).
'</i></blockquote><hr />';	'</i></blockquote><hr />';
}	}
}	}
}	}
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') \|\|	if (($env{'form.lastSub'} eq 'lastonly') \|\|
Line 2656 sub submission {	Line 2657 sub submission {
$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}));
} else {	} else {
$lastsubonly.='<br /><br />'.'<b>'.&mt('Submitted Files:').'</b>'	$lastsubonly.='<br /><br />'.'<b>'.&mt('Submitted Files:').'</b>'
.'<br /><span class="LC_warning">';	.'<br /><span class="LC_warning">';
if(@$files == 1) {	if(@$files == 1) {
$lastsubonly .= &mt('Like all files provided by users, this file may contain viruses!');	$lastsubonly .= &mt('Like all files provided by users, this file may contain viruses!');
} else {	} else {
Line 2669 sub submission {	Line 2670 sub submission {
}	}
}	}
$lastsubonly.='<br />';	$lastsubonly.='<br />';
}	}
if ($hide eq 'anon') {	if ($hide eq 'anon') {
$lastsubonly.='<br /><b>'.&mt('Anonymous Survey').'</b>';	$lastsubonly.='<br /><b>'.&mt('Anonymous Survey').'</b>';
} else {	} else {
Line 2688 sub submission {	Line 2689 sub submission {
if ($similar) {$lastsubonly.="<br /><br />$similar\n";}	if ($similar) {$lastsubonly.="<br /><br />$similar\n";}
$lastsubonly.='</div>';	$lastsubonly.='</div>';
}	}
}	}
}	}
$lastsubonly.='</div>'."\n"; # End: LC_grade_submissions_body	$lastsubonly.='</div>'."\n"; # End: LC_grade_submissions_body
}	}
Line 2699 sub submission {	Line 2700 sub submission {
}	}
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,
$env{'request.course.id'},	$env{'request.course.id'},
$last,'.submission',	$last,'.submission',
'Apache::grades::keywords_highlight',	'Apache::grades::keywords_highlight',
Line 2709 sub submission {	Line 2710 sub submission {
.$udom.'" />'."\n");	.$udom.'" />'."\n");
# return if view submission with no grading option	# return if view submission with no grading option
if (!&canmodify($usec)) {	if (!&canmodify($usec)) {
$request->print('<p><span class="LC_warning">'.&mt('No grading privileges').'</span></p></div>');	$request->print('<p><span class="LC_warning">'.&mt('No grading privileges').'</span></p></div>');
return;	return;
} else {	} else {
$request->print('</div>'."\n");	$request->print('</div>'."\n");
}	}
Line 2730 sub submission {	Line 2731 sub submission {
$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.	' <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>)'.
Line 2738 sub submission {	Line 2739 sub submission {
'/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>';	'</div></div>';
$request->print($result);	$request->print($result);
}	}

my %seen = ();	my %seen = ();
my @partlist;	my @partlist;
my @gradePartRespid;	my @gradePartRespid;
my @part_response_id = &flatten_responseType($responseType);	my @part_response_id;
	if ($is_tool) {
	@part_response_id = ([0,'']);
	} else {
	@part_response_id = &flatten_responseType($responseType);
	}
$request->print(	$request->print(
'<div class="LC_Box">'	'<div class="LC_Box">'
.'<h3 class="LC_hcell">'.&mt('Assign Grades').'</h3>'	.'<h3 class="LC_hcell">'.&mt('Assign Grades').'</h3>'
Line 2869 sub check_collaborators {	Line 2875 sub check_collaborators {

#--- Retrieve the last submission for all the parts	#--- Retrieve the last submission for all the parts
sub get_last_submission {	sub get_last_submission {
my ($returnhash)=@_;	my ($returnhash,$is_tool)=@_;
my (@string,$timestamp,$lastgradetime,$lastsubmittime);	my (@string,$timestamp,%lasthidden);
if ($$returnhash{'version'}) {	if ($$returnhash{'version'}) {
my %lasthash=();	my %lasthash=();
my %prevsolved=();	my ($version);
my %solved=();
my $version;
for ($version=1;$version<=$$returnhash{'version'};$version++) {	for ($version=1;$version<=$$returnhash{'version'};$version++) {
my %handgraded = ();
foreach my $key (sort(split(/\:/,	foreach my $key (sort(split(/\:/,
$$returnhash{$version.':keys'}))) {	$$returnhash{$version.':keys'}))) {
$lasthash{$key}=$$returnhash{$version.':'.$key};	$lasthash{$key}=$$returnhash{$version.':'.$key};
if ($key =~ /\.([^.]+)\.regrader$/) {	$timestamp =
$handgraded{$1} = 1;	&Apache::lonlocal::locallocaltime($$returnhash{$version.':timestamp'});
} elsif ($key =~ /\.portfiles$/) {	}
if (($$returnhash{$version.':'.$key} ne '') &&
($$returnhash{$version.':'.$key} !~ /\.\d+\.\w+$/)) {
$lastsubmittime = $$returnhash{$version.':timestamp'};
}
} elsif ($key =~ /\.submission$/) {
if ($$returnhash{$version.':'.$key} ne '') {
$lastsubmittime = $$returnhash{$version.':timestamp'};
}
} elsif ($key =~ /\.([^.]+)\.solved$/) {
$prevsolved{$1} = $solved{$1};
$solved{$1} = $lasthash{$key};
}
}
foreach my $partid (keys(%handgraded)) {
if (($prevsolved{$partid} eq 'ungraded_attempted') &&
(($solved{$partid} eq 'incorrect_by_override') \|\|
($solved{$partid} eq 'correct_by_override'))) {
$lastgradetime = $$returnhash{$version.':timestamp'};
}
if ($solved{$partid} ne '') {
$prevsolved{$partid} = $solved{$partid};
}
}
}	}
#
# Timestamp is for last transaction for this resource, which does not
# necessarily correspond to the time of last submission for problem (or part).
#
if ($lasthash{'timestamp'} ne '') {
$timestamp = &Apache::lonlocal::locallocaltime($lasthash{'timestamp'});
}
my (%typeparts,%randombytry);	my (%typeparts,%randombytry);
my $showsurv =	my $showsurv =
&Apache::lonnet::allowed('vas',$env{'request.course.id'});	&Apache::lonnet::allowed('vas',$env{'request.course.id'});
Line 2968 sub get_last_submission {	Line 2941 sub get_last_submission {
}	}
}	}
if (!@string) {	if (!@string) {
	my $msg;
	if ($is_tool) {
	$msg = &mt('No grade passed back.');
	} else {
	$msg = &mt('Nothing submitted - no attempts.');
	}
$string[0] =	$string[0] =
'<span class="LC_warning">'.&mt('Nothing submitted - no attempts.').'</span>';	'<span class="LC_warning">'.$msg.'</span>';
}	}
return (\@string,$timestamp,$lastgradetime,$lastsubmittime);	return (\@string,\$timestamp);
}	}

#--- High light keywords, with style choosen by user.	#--- High light keywords, with style choosen by user.
Line 3001 sub show_previous_task_version {	Line 2980 sub show_previous_task_version {
my ($uname,$udom) = ($env{'form.student'},$env{'form.userdom'});	my ($uname,$udom) = ($env{'form.student'},$env{'form.userdom'});
my $usec = &Apache::lonnet::getsection($udom,$uname,$env{'request.course.id'});	my $usec = &Apache::lonnet::getsection($udom,$uname,$env{'request.course.id'});
if (!&canview($usec)) {	if (!&canview($usec)) {
$request->print('<span class="LC_warning">'.	$request->print(
&mt('Unable to view previous version for requested student.').	'<span class="LC_warning">'.
' '.&mt('([_1] in section [_2] in course id [_3])',	&mt('Unable to view previous version for requested student.').
$uname.':'.$udom,$usec,$env{'request.course.id'}).	' '.&mt('([_1] in section [_2] in course id [_3])',
'</span>');	$uname.':'.$udom,$usec,$env{'request.course.id'}).
	'</span>');
return;	return;
}	}
my $mode = 'both';	my $mode = 'both';
Line 3177 sub processHandGrade {	Line 3157 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,undef,undef,\%queueable);	&saveHandGrade($request,$symb,$uname,$udom,$ctr);
if ($errorflag eq 'no_score') {	if ($errorflag eq 'no_score') {
$ctr++;	$ctr++;
next;	next;
}	}
if ($errorflag eq 'not_allowed') {	if ($errorflag eq 'not_allowed') {
$request->print(	$request->print(
'<span class="LC_error">'	'<span class="LC_error">'
.&mt('Not allowed to modify grades for [_1]',"$uname:$udom")	.&mt('Not allowed to modify grades for [_1]',"$uname:$udom")
.'</span>');	.'</span>');
Line 3256 sub processHandGrade {	Line 3218 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,\%queueable);	$env{'form.unamedom'.$ctr},$part);
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 3278 sub processHandGrade {	Line 3240 sub processHandGrade {
}	}
}	}

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

my %keyhash = ();	my %keyhash = ();
if ($numessay) {	if ($numessay) {
# Keywords sorted in alphabatical order	# Keywords sorted in alphabatical order
Line 3308 sub processHandGrade {	Line 3277 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++;
}	}
Line 3318 sub processHandGrade {	Line 3287 sub processHandGrade {
$keyhash{$symb.'_savemsgN'} = $env{'form.savemsgN'};	$keyhash{$symb.'_savemsgN'} = $env{'form.savemsgN'};
}	}
if (($numessay) \|\| ($env{'form.compmsg'})) {	if (($numessay) \|\| ($env{'form.compmsg'})) {
my $putresult = &Apache::lonnet::put	my $putresult = &Apache::lonnet::put
('nohist_handgrade',\%keyhash,$cdom,$cnum);	('nohist_handgrade',\%keyhash,$cdom,$cnum);
}	}

# Called by Save & Refresh from Highlight Attribute Window	# Called by Save & Refresh from Highlight Attribute Window
Line 3421 sub processHandGrade {	Line 3390 sub processHandGrade {
$ctr++;	$ctr++;
}	}
if ($total < 0) {	if ($total < 0) {
my $the_end.='<p>'.&mt('[_1]Message:[_2] No more students for this section or class.','<b>','</b>').'</p>'."\n";	my $the_end.='<p>'.&mt('[_1]Message:[_2] No more students for this section or class.','<b>','</b>').'</p>'."\n";
$request->print($the_end);	$request->print($the_end);
}	}
return '';	return '';
Line 3429 sub processHandGrade {	Line 3398 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,$queueable) = @_;	my ($request,$symb,$stuname,$domain,$newflg,$submitter,$part) = @_;
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 3541 sub saveHandGrade {	Line 3510 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,$queueable);	$cdom,$cnum,$domain,$stuname);
}	}
if ($aggregateflag) {	if ($aggregateflag) {
&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,	&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,
Line 3581 sub makehidden {	Line 3550 sub makehidden {
}	}

sub check_and_remove_from_queue {	sub check_and_remove_from_queue {
my ($parts,$record,$newrecord,$symb,$cdom,$cnum,$domain,$stuname,$queueable) = @_;	my ($parts,$record,$newrecord,$symb,$cdom,$cnum,$domain,$stuname) = @_;
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 3589 sub check_and_remove_from_queue {	Line 3558 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'
) {	) {
if ($queueable->{$part}) {	push(@ungraded_parts, $part);
push(@ungraded_parts, $part);
}
}	}
}	}
if ( !@ungraded_parts ) {	if ( !@ungraded_parts ) {
Line 3617 sub handback_files {	Line 3584 sub handback_files {
my $part_resp = join('_',@{ $part_response_id });	my $part_resp = join('_',@{ $part_response_id });
if (($env{'form.'.$newflg.'_'.$part_resp.'_countreturndoc'} =~ /^\d+$/) & ($new_part eq $part_id)) {	if (($env{'form.'.$newflg.'_'.$part_resp.'_countreturndoc'} =~ /^\d+$/) & ($new_part eq $part_id)) {
for (my $counter=1; $counter<=$env{'form.'.$newflg.'_'.$part_resp.'_countreturndoc'}; $counter++) {	for (my $counter=1; $counter<=$env{'form.'.$newflg.'_'.$part_resp.'_countreturndoc'}; $counter++) {
# if multiple files are uploaded names will be 'returndoc2','returndoc3'	# if multiple files are uploaded names will be 'returndoc2','returndoc3'
if ($env{'form.'.$newflg.'_'.$part_resp.'_returndoc'.$counter}) {	if ($env{'form.'.$newflg.'_'.$part_resp.'_returndoc'.$counter}) {
my $fname=$env{'form.'.$newflg.'_'.$part_resp.'_returndoc'.$counter.'.filename'};	my $fname=$env{'form.'.$newflg.'_'.$part_resp.'_returndoc'.$counter.'.filename'};
my ($directory,$answer_file) =	my ($directory,$answer_file) =
($env{'form.'.$newflg.'_'.$part_resp.'_origdoc'.$counter} =~ /^(.?)([^\/])$/);	($env{'form.'.$newflg.'_'.$part_resp.'_origdoc'.$counter} =~ /^(.?)([^\/])$/);
my ($answer_name,$answer_ver,$answer_ext) =	my ($answer_name,$answer_ver,$answer_ext) =
&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 = &get_next_version($answer_name,$answer_ext,$dir_list);	my $version = &Apache::lonnet::get_next_version($answer_name,$answer_ext,$dir_list);
# fix filename	# fix filename
my ($save_file_name) = (($directory.$answer_name.".$version.".$answer_ext) =~ /^.+\/${stuname}\/(.*)/);	my ($save_file_name) = (($directory.$answer_name.".$version.".$answer_ext) =~ /^.+\/${stuname}\/(.*)/);
my $result=&Apache::lonnet::finishuserfileupload($stuname,$domain,	my $result=&Apache::lonnet::finishuserfileupload($stuname,$domain,
Line 3647 sub handback_files {	Line 3614 sub handback_files {
$$newrecord{"resource.$new_part.$resp_id.handback"}.=',';	$$newrecord{"resource.$new_part.$resp_id.handback"}.=',';
}	}
$$newrecord{"resource.$new_part.$resp_id.handback"} .= $save_file_name;	$$newrecord{"resource.$new_part.$resp_id.handback"} .= $save_file_name;
$file_msg.='<span class="LC_filename"><a href="/uploaded/'."$domain/$stuname/".$save_file_name.'">'.$save_file_name."</a></span> <br />";	$file_msg.= '<span class="LC_filename"><a href="/uploaded/'."$domain/$stuname/".$save_file_name.'">'.$save_file_name."</a></span> <br />";

}	}
$request->print('<br />'.&mt('[_1] will be the uploaded filename [_2]','<span class="LC_info">'.$fname.'</span>','<span class="LC_filename">'.$env{'form.'.$newflg.'_'.$part_resp.'_origdoc'.$counter}.'</span>'));	$request->print('<br />'.&mt('[_1] will be the uploaded filename [_2]','<span class="LC_info">'.$fname.'</span>','<span class="LC_filename">'.$env{'form.'.$newflg.'_'.$part_resp.'_origdoc'.$counter}.'</span>'));
}	}
Line 3659 sub handback_files {	Line 3625 sub handback_files {
$request->print('<br />');	$request->print('<br />');
my @what = ($symb,$env{'request.course.id'},'handback');	my @what = ($symb,$env{'request.course.id'},'handback');
&Apache::lonnet::mark_as_readonly($domain,$stuname,\@handedback,\@what);	&Apache::lonnet::mark_as_readonly($domain,$stuname,\@handedback,\@what);
my $user_lh = &Apache::loncommon::user_lang($stuname,$domain,$env{'request.course.id'});	my $user_lh = &Apache::loncommon::user_lang($stuname,$domain,$env{'request.course.id'});
my ($subject,$message);	my ($subject,$message);
if (scalar(@handedback) == 1) {	if (scalar(@handedback) == 1) {
$subject = &mt_user($user_lh,'File Handed Back by Instructor');	$subject = &mt_user($user_lh,'File Handed Back by Instructor');
Line 3779 sub version_portfiles {	Line 3745 sub version_portfiles {
my $version_parts = join('\|',@$v_flag);	my $version_parts = join('\|',@$v_flag);
my @returned_keys;	my @returned_keys;
my $parts = join('\|', @$parts_graded);	my $parts = join('\|', @$parts_graded);
my $portfolio_root = '/userfiles/portfolio';
foreach my $key (keys(%$record)) {	foreach my $key (keys(%$record)) {
my $new_portfiles;	my $new_portfiles;
if ($key =~ /^resource\.($version_parts)\./ && $key =~ /\.portfiles$/ ) {	if ($key =~ /^resource\.($version_parts)\./ && $key =~ /\.portfiles$/ ) {
my @versioned_portfiles;	my @versioned_portfiles;
my @portfiles = split(/\s,\s/,$$record{$key});	my @portfiles = split(/\s,\s/,$$record{$key});
foreach my $file (@portfiles) {	if (@portfiles) {
&Apache::lonnet::unmark_as_readonly($domain,$stu_name,[$symb,$env{'request.course.id'}],$file);	&Apache::lonnet::portfiles_versioning($symb,$domain,$stu_name,\@portfiles,
my ($directory,$answer_file) =($file =~ /^(.?)([^\/])$/);	\@versioned_portfiles);
my ($answer_name,$answer_ver,$answer_ext) =
&file_name_version_ext($answer_file);
my $getpropath = 1;
my ($dir_list,$listerror) =
&Apache::lonnet::dirlist($portfolio_root.$directory,$domain,
$stu_name,$getpropath);
my $version = &get_next_version($answer_name,$answer_ext,$dir_list);
my $new_answer = &version_selected_portfile($domain, $stu_name, $directory, $answer_file, $version);
if ($new_answer ne 'problem getting file') {
push(@versioned_portfiles, $directory.$new_answer);
&Apache::lonnet::mark_as_readonly($domain,$stu_name,
[$directory.$new_answer],
[$symb,$env{'request.course.id'},'graded']);
}
}	}
$$record{$key} = join(',',@versioned_portfiles);	$$record{$key} = join(',',@versioned_portfiles);
push(@returned_keys,$key);	push(@returned_keys,$key);
}	}
}	}
return (@returned_keys);	return (@returned_keys);
}

sub get_next_version {
my ($answer_name, $answer_ext, $dir_list) = @_;
my $version;
if (ref($dir_list) eq 'ARRAY') {
foreach my $row (@{$dir_list}) {
my ($file) = split(/\&/,$row,2);
my ($file_name,$file_version,$file_ext) =
&file_name_version_ext($file);
if (($file_name eq $answer_name) &&
($file_ext eq $answer_ext)) {
# gets here if filename and extension match,
# regardless of version
if ($file_version ne '') {
# a versioned file is found so save it for later
if ($file_version > $version) {
$version = $file_version;
}
}
}
}
}
$version ++;
return($version);
}

sub version_selected_portfile {
my ($domain,$stu_name,$directory,$file_name,$version) = @_;
my ($answer_name,$answer_ver,$answer_ext) =
&file_name_version_ext($file_name);
my $new_answer;
$env{'form.copy'} = &Apache::lonnet::getfile("/uploaded/$domain/$stu_name/portfolio$directory$file_name");
if($env{'form.copy'} eq '-1') {
$new_answer = 'problem getting file';
} else {
$new_answer = $answer_name.'.'.$version.'.'.$answer_ext;
my $copy_result = &Apache::lonnet::finishuserfileupload(
$stu_name,$domain,'copy',
'/portfolio'.$directory.$new_answer);
}
return ($new_answer);
}

sub file_name_version_ext {
my ($file)=@_;
my @file_parts = split(/\./, $file);
my ($name,$version,$ext);
if (@file_parts > 1) {
$ext=pop(@file_parts);
if (@file_parts > 1 && $file_parts[-1] =~ /^\d+$/) {
$version=pop(@file_parts);
}
$name=join('.',@file_parts);
} else {
$name=join('.',@file_parts);
}
return($name,$version,$ext);
}	}

#--------------------------------------------------------------------------------------	#--------------------------------------------------------------------------------------
Line 4045 VIEWJAVASCRIPT	Line 3938 VIEWJAVASCRIPT
#--- show scores for a section or whole class w/ option to change/update a score	#--- show scores for a section or whole class w/ option to change/update a score
sub viewgrades {	sub viewgrades {
my ($request,$symb) = @_;	my ($request,$symb) = @_;
	my ($is_tool,$toolsymb);
	if ($symb =~ /ext\.tool$/) {
	$is_tool = 1;
	$toolsymb = $symb;
	}
&viewgrades_js($request);	&viewgrades_js($request);

#need to make sure we have the correct data for later EXT calls,	#need to make sure we have the correct data for later EXT calls,
Line 4079 sub viewgrades {	Line 3977 sub viewgrades {
}	}

my ($common_header,$specific_header,@sections,$section_display);	my ($common_header,$specific_header,@sections,$section_display);
if ($env{'request.course.sec'} ne '') {	@sections = &Apache::loncommon::get_env_multiple('form.section');
@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 4108 sub viewgrades {	Line 3987 sub viewgrades {
$common_header = &mt('Assign Common Grade to Students not assigned to any groups');	$common_header = &mt('Assign Common Grade to Students not assigned to any groups');
$specific_header = &mt('Assign Grade to Specific Students not assigned to any groups');	$specific_header = &mt('Assign Grade to Specific Students not assigned to any groups');
} else {	} else {
$common_header = &mt('Assign Common Grade to Class');	$common_header = &mt('Assign Common Grade to Class');
$specific_header = &mt('Assign Grade to Specific Students in Class');	$specific_header = &mt('Assign Grade to Specific Students in Class');
}	}
} elsif (grep(/^none$/,@sections)) {	} elsif (grep(/^none$/,@sections)) {
Line 4121 sub viewgrades {	Line 4000 sub viewgrades {
$specific_header = &mt('Assign Grade to Specific Students in no Section and in no Group');	$specific_header = &mt('Assign Grade to Specific Students in no Section and in no Group');
} else {	} else {
$common_header = &mt('Assign Common Grade to Students in no Section');	$common_header = &mt('Assign Common Grade to Students in no Section');
$specific_header = &mt('Assign Grade to Specific Students in no Section');	$specific_header = &mt('Assign Grade to Specific Students in no Section');
}	}
} else {	} else {
$section_display = join (", ",@sections);	$section_display = join (", ",@sections);
Line 4135 sub viewgrades {	Line 4014 sub viewgrades {
$specific_header = &mt('Assign Grade to Specific Students in Section(s) [_1] and no Group',$section_display);	$specific_header = &mt('Assign Grade to Specific Students in Section(s) [_1] and no Group',$section_display);
} else {	} else {
$common_header = &mt('Assign Common Grade to Students in Section(s) [_1]',$section_display);	$common_header = &mt('Assign Common Grade to Students in Section(s) [_1]',$section_display);
$specific_header = &mt('Assign Grade to Specific Students in Section(s) [_1]',$section_display);	$specific_header = &mt('Assign Grade to Specific Students in Section(s) [_1]',$section_display);
}	}
}	}
my %submit_types = &substatus_options();	my %submit_types = &substatus_options();
Line 4144 sub viewgrades {	Line 4023 sub viewgrades {
if ($env{'form.submitonly'} eq 'all') {	if ($env{'form.submitonly'} eq 'all') {
$result.= '<h3>'.$common_header.'</h3>';	$result.= '<h3>'.$common_header.'</h3>';
} else {	} else {
$result.= '<h3>'.$common_header.' '.&mt('(submission status: "[_1]")',$submission_status).'</h3>';	my $text;
	if ($is_tool) {
	$text = &mt('(transaction status: "[_1]")',$submission_status);
	} else {
	$text = &mt('(submission status: "[_1]")',$submission_status);
	}
	$result.= '<h3>'.$common_header.' '.$text.'</h3>';
}	}
$result .= &Apache::loncommon::start_data_table();	$result .= &Apache::loncommon::start_data_table();
#radio buttons/text box for assigning points for a section or class.	#radio buttons/text box for assigning points for a section or class.
Line 4157 sub viewgrades {	Line 4042 sub viewgrades {
my %weight = ();	my %weight = ();
my $ctsparts = 0;	my $ctsparts = 0;
my %seen = ();	my %seen = ();
my @part_response_id = &flatten_responseType($responseType);	my @part_response_id;
	if ($is_tool) {
	@part_response_id = ([0,'']);
	} else {
	@part_response_id = &flatten_responseType($responseType);
	}
foreach my $part_response_id (@part_response_id) {	foreach my $part_response_id (@part_response_id) {
my ($partid,$respid) = @{ $part_response_id };	my ($partid,$respid) = @{ $part_response_id };
my $part_resp = join('_',@{ $part_response_id });	my $part_resp = join('_',@{ $part_response_id });
Line 4181 sub viewgrades {	Line 4071 sub viewgrades {
$partid.'" size="4" '.'onchange="javascript:writePoint(\''.	$partid.'" size="4" '.'onchange="javascript:writePoint(\''.
$partid.'\','.$weight{$partid}.',\'textval\')" /> /'.	$partid.'\','.$weight{$partid}.',\'textval\')" /> /'.
$weight{$partid}.' '.&mt('(problem weight)').'</td>'."\n";	$weight{$partid}.' '.&mt('(problem weight)').'</td>'."\n";
$line.= '<td><b>'.&mt('Grade Status').':</b>'.	$line.= '<td><b>'.&mt('Grade Status').':</b>'.
'<select name="SELVAL_'.$partid.'" '.	'<select name="SELVAL_'.$partid.'" '.
'onchange="javascript:writeRadText(\''.$partid.'\','.	'onchange="javascript:writeRadText(\''.$partid.'\','.
$weight{$partid}.')"> '.	$weight{$partid}.')"> '.
'<option selected="selected"> </option>'.	'<option selected="selected"> </option>'.
'<option value="excused">'.&mt('excused').'</option>'.	'<option value="excused">'.&mt('excused').'</option>'.
'<option value="reset status">'.&mt('reset status').'</option>'.	'<option value="reset status">'.&mt('reset status').'</option>'.
Line 4208 sub viewgrades {	Line 4098 sub viewgrades {

#table listing all the students in a section/class	#table listing all the students in a section/class
#header of table	#header of table
if ($env{'form.submitonly'} eq 'all') {	if ($env{'form.submitonly'} eq 'all') {
$result.= '<h3>'.$specific_header.'</h3>';	$result.= '<h3>'.$specific_header.'</h3>';
} else {	} else {
$result.= '<h3>'.$specific_header.' '.&mt('(submission status: "[_1]")',$submission_status).'</h3>';	my $text;
	if ($is_tool) {
	$text = &mt('(transaction status: "[_1]")',$submission_status);
	} else {
	$text = &mt('(submission status: "[_1]")',$submission_status);
	}
	$result.= '<h3>'.$specific_header.' '.$text.'</h3>';
}	}
$result.= &Apache::loncommon::start_data_table().	$result.= &Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().	&Apache::loncommon::start_data_table_header_row().
Line 4225 sub viewgrades {	Line 4121 sub viewgrades {
my (undef,undef,$url)=&Apache::lonnet::decode_symb($symb);	my (undef,undef,$url)=&Apache::lonnet::decode_symb($symb);
my @partids = ();	my @partids = ();
foreach my $part (@parts) {	foreach my $part (@parts) {
my $display=&Apache::lonnet::metadata($url,$part.'.display');	my $display=&Apache::lonnet::metadata($url,$part.'.display',$toolsymb);
my $narrowtext = &mt('Tries');	my $narrowtext = &mt('Tries');
$display =~ s\|^Number of Attempts\|$narrowtext <br />\|; # makes the column narrower	$display =~ s\|^Number of Attempts\|$narrowtext <br />\|; # makes the column narrower
if (!$display) { $display = &Apache::lonnet::metadata($url,$part.'.name'); }	if (!$display) { $display = &Apache::lonnet::metadata($url,$part.'.name',$toolsymb); }
my ($partid) = &split_part_type($part);	my ($partid) = &split_part_type($part);
push(@partids,$partid);	push(@partids,$partid);
#	#
Line 4237 sub viewgrades {	Line 4133 sub viewgrades {
my $display_part=&get_display_part($partid,$symb);	my $display_part=&get_display_part($partid,$symb);
if ($display =~ /^Partial Credit Factor/) {	if ($display =~ /^Partial Credit Factor/) {
$result.='<th>'.	$result.='<th>'.
&mt('Score Part: [_1][_2](weight = [_3])',	&mt('Score Part: [_1][_2](weight = [_3])',
$display_part,'<br />',$weight{$partid}).'</th>'."\n";	$display_part,'<br />',$weight{$partid}).'</th>'."\n";
next;	next;

} else {	} else {
Line 4269 sub viewgrades {	Line 4165 sub viewgrades {
return $a cmp $b;	return $a cmp $b;
} (keys(%$fullname))) {	} (keys(%$fullname))) {
$result.=&viewstudentgrade($symb,$env{'request.course.id'},	$result.=&viewstudentgrade($symb,$env{'request.course.id'},
$_,$$fullname{$_},\@parts,\%weight,\$ctr,\%last_resets);	$_,$$fullname{$_},\@parts,\%weight,\$ctr,\%last_resets,$is_tool);
}	}
$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').'"'.$disabled.' '.	$result.='<input type="button" value="'.&mt('Save').'" '.
'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 4286 sub viewgrades {	Line 4182 sub viewgrades {
$stu_status);	$stu_status);
} elsif (grep(/^none$/,@groups)) {	} elsif (grep(/^none$/,@groups)) {
$result .= &mt('There are no students with no group assigned and with enrollment status [_1] to modify or grade.',	$result .= &mt('There are no students with no group assigned and with enrollment status [_1] to modify or grade.',
$stu_status);	$stu_status);
} else {	} else {
$result .= &mt('There are no students in group(s) [_1] with enrollment status [_2] to modify or grade.',	$result .= &mt('There are no students in group(s) [_1] with enrollment status [_2] to modify or grade.',
$group_display,$stu_status);	$group_display,$stu_status);
Line 4339 sub viewgrades {	Line 4235 sub viewgrades {
}	}
} else {	} else {
if (grep(/^all$/,@groups)) {	if (grep(/^all$/,@groups)) {
$result .= &mt('There are no students in section(s) [_1] with enrollment status [_2] and submission status "[_3]" to modify or grade.',	$result .= &mt('There are no students in section(s) [_1] with enrollment status [_2] and submission status "[_3]" to modify or grade.',
$section_display,$stu_status,$submission_status);	$section_display,$stu_status,$submission_status);
} elsif (grep(/^none$/,@groups)) {	} elsif (grep(/^none$/,@groups)) {
$result .= &mt('There are no students in section(s) [_1] and no group with enrollment status [_2] and submission status "[_3]" to modify or grade.',	$result .= &mt('There are no students in section(s) [_1] and no group with enrollment status [_2] and submission status "[_3]" to modify or grade.',
$section_display,$stu_status,$submission_status);	$section_display,$stu_status,$submission_status);
Line 4349 sub viewgrades {	Line 4245 sub viewgrades {
$section_display,$group_display,$stu_status,$submission_status);	$section_display,$group_display,$stu_status,$submission_status);
}	}
}	}
}	}
$result .= '</span><br />';	$result .= '</span><br />';
}	}
return $result;	return $result;
}	}

#--- call by previous routine to display each student who satisfies submission filter.	#--- call by previous routine to display each student who satisfies submission filter.
sub viewstudentgrade {	sub viewstudentgrade {
my ($symb,$courseid,$student,$fullname,$parts,$weight,$ctr,$last_resets) = @_;	my ($symb,$courseid,$student,$fullname,$parts,$weight,$ctr,$last_resets,$is_tool) = @_;
my ($uname,$udom) = split(/:/,$student);	my ($uname,$udom) = split(/:/,$student);
my %record=&Apache::lonnet::restore($symb,$courseid,$udom,$uname);	my %record=&Apache::lonnet::restore($symb,$courseid,$udom,$uname);
my $submitonly = $env{'form.submitonly'};	my $submitonly = $env{'form.submitonly'};
Line 4415 sub viewstudentgrade {	Line 4311 sub viewstudentgrade {
my ($aggtries,$totaltries);	my ($aggtries,$totaltries);
unless (exists($aggregates{$part})) {	unless (exists($aggregates{$part})) {
$totaltries = $record{'resource.'.$part.'.tries'};	$totaltries = $record{'resource.'.$part.'.tries'};

$aggtries = $totaltries;	$aggtries = $totaltries;
if ($$last_resets{$part}) {	if ($$last_resets{$part}) {
$aggtries = &get_num_tries(\%record,$$last_resets{$part},	$aggtries = &get_num_tries(\%record,$$last_resets{$part},
Line 4464 sub viewstudentgrade {	Line 4359 sub viewstudentgrade {
# record does not get update if unchanged	# record does not get update if unchanged
sub editgrades {	sub editgrades {
my ($request,$symb) = @_;	my ($request,$symb) = @_;
	my $toolsymb;
	if ($symb =~ /ext\.tool$/) {
	$toolsymb = $symb;
	}

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>';
Line 4510 sub editgrades {	Line 4409 sub editgrades {
my ($part,$type) = &split_part_type($stores);	my ($part,$type) = &split_part_type($stores);
if ($part !~ m/^\Q$partid\E/) { next;}	if ($part !~ m/^\Q$partid\E/) { next;}
if ($type eq 'awarded' \|\| $type eq 'solved') { next; }	if ($type eq 'awarded' \|\| $type eq 'solved') { next; }
my $display=&Apache::lonnet::metadata($url,$stores.'.display');	my $display=&Apache::lonnet::metadata($url,$stores.'.display',$toolsymb);
$display =~ s/\[Part: \Q$part\E\]//;	$display =~ s/\[Part: \Q$part\E\]//;
my $narrowtext = &mt('Tries');	my $narrowtext = &mt('Tries');
$display =~ s/Number of Attempts/$narrowtext/;	$display =~ s/Number of Attempts/$narrowtext/;
Line 4533 sub editgrades {	Line 4432 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);
my %newrecord;	my %newrecord;
my $updateflag = 0;	my $updateflag = 0;
my $usec=$classlist->{"$uname:$udom"}[5];	my $usec=$classlist->{"$uname:$udom"}[5];
my $canmodify = &canmodify($usec);	my $canmodify = &canmodify($usec);
my $line = '<td'.($canmodify?'':' colspan="2"').'>'.	my $line = '<td'.($canmodify?'':' colspan="2"').'>'.
&nameUserString(undef,$$fullname{$user},$uname,$udom).'</td>';	&nameUserString(undef,$$fullname{$user},$uname,$udom).'</td>';
if (!$canmodify) {	if (!$canmodify) {
push(@noupdate,	push(@noupdate,
$line."<td colspan=\"$totcolspan\"><span class=\"LC_warning\">".	$line."<td colspan=\"$totcolspan\"><span class=\"LC_warning\">".
&mt('Not allowed to modify student')."</span></td>");	&mt('Not allowed to modify student')."</span></td>");
next;	next;
}	}
my %aggregate = ();	my %aggregate = ();
my $aggregateflag = 0;	my $aggregateflag = 0;
$user=~s/:/_/; # colon doen't work in javascript for names	$user=~s/:/_/; # colon doen't work in javascript for names
Line 4633 sub editgrades {	Line 4531 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 ($queueable{$part}) {	if ( $record{'resource.'.$part.'.awarded'} eq '' ) {
if ( $record{'resource.'.$part.'.awarded'} eq '' ) {	$all_graded = 0;
$all_graded = 0;	} else {
} else {	$none_graded = 0;
$none_graded = 0;	}
}
}
}	}

if ($all_graded \|\| $none_graded) {	if ($all_graded \|\| $none_graded) {
Line 4724 sub split_part_type {	Line 4602 sub split_part_type {
#	#
#--- Javascript to handle csv upload	#--- Javascript to handle csv upload
sub csvupload_javascript_reverse_associate {	sub csvupload_javascript_reverse_associate {
my $error1=&mt('You need to specify the username or the student/employee ID');	my $error1=&mt('You need to specify the username, the student/employee ID, or the clicker ID');
my $error2=&mt('You need to specify at least one grading field');	my $error2=&mt('You need to specify at least one grading field');
&js_escape(\$error1);	&js_escape(\$error1);
&js_escape(\$error2);	&js_escape(\$error2);
Line 4733 sub csvupload_javascript_reverse_associa	Line 4611 sub csvupload_javascript_reverse_associa
var foundsomething=0;	var foundsomething=0;
var founduname=0;	var founduname=0;
var foundID=0;	var foundID=0;
	var foundclicker=0;
for (i=0;i<=vf.nfields.value;i++) {	for (i=0;i<=vf.nfields.value;i++) {
tw=eval('vf.f'+i+'.selectedIndex');	tw=eval('vf.f'+i+'.selectedIndex');
if (i==0 && tw!=0) { foundID=1; }	if (i==0 && tw!=0) { foundID=1; }
if (i==1 && tw!=0) { founduname=1; }	if (i==1 && tw!=0) { founduname=1; }
if (i!=0 && i!=1 && i!=2 && tw!=0) { foundsomething=1; }	if (i==2 && tw!=0) { foundclicker=1; }
	if (i!=0 && i!=1 && i!=2 && i!=3 && tw!=0) { foundsomething=1; }
}	}
if (founduname==0 && foundID==0) {	if (founduname==0 && foundID==0 && foundclicker==0) {
alert('$error1');	alert('$error1');
return;	return;
}	}
Line 4766 ENDPICK	Line 4646 ENDPICK
}	}

sub csvupload_javascript_forward_associate {	sub csvupload_javascript_forward_associate {
my $error1=&mt('You need to specify the username or the student/employee ID');	my $error1=&mt('You need to specify the username, the student/employee ID, or the clicker ID');
my $error2=&mt('You need to specify at least one grading field');	my $error2=&mt('You need to specify at least one grading field');
&js_escape(\$error1);	&js_escape(\$error1);
&js_escape(\$error2);	&js_escape(\$error2);
Line 4775 sub csvupload_javascript_forward_associa	Line 4655 sub csvupload_javascript_forward_associa
var foundsomething=0;	var foundsomething=0;
var founduname=0;	var founduname=0;
var foundID=0;	var foundID=0;
	var foundclicker=0;
for (i=0;i<=vf.nfields.value;i++) {	for (i=0;i<=vf.nfields.value;i++) {
tw=eval('vf.f'+i+'.selectedIndex');	tw=eval('vf.f'+i+'.selectedIndex');
if (tw==1) { foundID=1; }	if (tw==1) { foundID=1; }
if (tw==2) { founduname=1; }	if (tw==2) { founduname=1; }
if (tw>3) { foundsomething=1; }	if (tw==3) { foundclicker=1; }
	if (tw>4) { foundsomething=1; }
}	}
if (founduname==0 && foundID==0) {	if (founduname==0 && foundID==0 && ƒoundclicker==0) {
alert('$error1');	alert('$error1');
return;	return;
}	}
Line 4813 sub csvuploadmap_header {	Line 4695 sub csvuploadmap_header {
$javascript=&csvupload_javascript_forward_associate();	$javascript=&csvupload_javascript_forward_associate();
}	}

my $checked=(($env{'form.noFirstLine'})?' checked="checked"':'');
my $ignore=&mt('Ignore First Line');
$symb = &Apache::lonenc::check_encrypt($symb);	$symb = &Apache::lonenc::check_encrypt($symb);
$request->print('<form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload">'.	$request->print('<form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload">'.
&mt('Total number of records found in file: [_1]',$distotal).'<hr />'.	&mt('Total number of records found in file: [_1]',$distotal).'<hr />'.
Line 4823 sub csvuploadmap_header {	Line 4703 sub csvuploadmap_header {
$request->print(<<ENDPICK);	$request->print(<<ENDPICK);
<br />	<br />
<input type="button" value="$reverse" onclick="javascript:this.form.associate.value='Reverse Association';submit(this.form);" />	<input type="button" value="$reverse" onclick="javascript:this.form.associate.value='Reverse Association';submit(this.form);" />
<label><input type="checkbox" name="noFirstLine" $checked />$ignore</label>
<input type="hidden" name="associate" value="" />	<input type="hidden" name="associate" value="" />
<input type="hidden" name="phase" value="three" />	<input type="hidden" name="phase" value="three" />
<input type="hidden" name="datatoken" value="$datatoken" />	<input type="hidden" name="datatoken" value="$datatoken" />
Line 4842 ENDPICK	Line 4721 ENDPICK

sub csvupload_fields {	sub csvupload_fields {
my ($symb,$errorref) = @_;	my ($symb,$errorref) = @_;
	my $toolsymb;
	if ($symb =~ /ext\.tool$/) {
	$toolsymb = $symb;
	}
my (@parts) = &getpartlist($symb,$errorref);	my (@parts) = &getpartlist($symb,$errorref);
if (ref($errorref)) {	if (ref($errorref)) {
if ($$errorref) {	if ($$errorref) {
Line 4851 sub csvupload_fields {	Line 4734 sub csvupload_fields {

my @fields=(['ID','Student/Employee ID'],	my @fields=(['ID','Student/Employee ID'],
['username','Student Username'],	['username','Student Username'],
	['clicker','Clicker ID'],
['domain','Student Domain']);	['domain','Student Domain']);
my (undef,undef,$url) = &Apache::lonnet::decode_symb($symb);	my (undef,undef,$url) = &Apache::lonnet::decode_symb($symb);
foreach my $part (sort(@parts)) {	foreach my $part (sort(@parts)) {
my @datum;	my @datum;
my $display=&Apache::lonnet::metadata($url,$part.'.display');	my $display=&Apache::lonnet::metadata($url,$part.'.display',$toolsymb);
my $name=$part;	my $name=$part;
if (!$display) { $display = $name; }	if (!$display) { $display = $name; }
@datum=($name,$display);	@datum=($name,$display);
if ($name=~/^stores_(.*)_awarded/) {	if ($name=~/^stores_(.*)_awarded/) {
push(@fields,['stores_'.$1.'_points',"Points [Part: $1]"]);	push(@fields,['stores_'.$1.'_points',"Points [Part: $1]"]);
Line 4913 sub upcsvScores_form {	Line 4797 sub upcsvScores_form {
<input type="hidden" name="command" value="csvuploadmap" />	<input type="hidden" name="command" value="csvuploadmap" />
$upfile_select	$upfile_select
<br /><input type="button" onclick="javascript:checkUpload(this.form);" value="$upload" />	<br /><input type="button" onclick="javascript:checkUpload(this.form);" value="$upload" />
<label><input type="checkbox" name="noFirstLine" />$ignore</label>
</form>	</form>
ENDUPFORM	ENDUPFORM
$result.=&Apache::loncommon::help_open_topic("Course_Convert_To_CSV",	$result.=&Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
&mt("How do I create a CSV file from a spreadsheet")).	&mt("How do I create a CSV file from a spreadsheet")).
'</td>'.	'</td>'.
&Apache::loncommon::end_data_table_row().	&Apache::loncommon::end_data_table_row().
&Apache::loncommon::end_data_table();	&Apache::loncommon::end_data_table();
return $result;	return $result;
Line 4933 sub csvuploadmap {	Line 4816 sub csvuploadmap {
if (!$env{'form.datatoken'}) {	if (!$env{'form.datatoken'}) {
$datatoken=&Apache::loncommon::upfile_store($request);	$datatoken=&Apache::loncommon::upfile_store($request);
} else {	} else {
$datatoken=&Apache::loncommon::valid_datatoken($env{'form.datatoken'});	$datatoken=&Apache::loncommon::valid_datatoken($env{'form.datatoken'});
if ($datatoken ne '') {	if ($datatoken ne '') {
&Apache::loncommon::load_tmp_file($request,$datatoken);	&Apache::loncommon::load_tmp_file($request,$datatoken);
}	}
}	}
my @records=&Apache::loncommon::upfile_record_sep();	my @records=&Apache::loncommon::upfile_record_sep();
if ($env{'form.noFirstLine'}) { shift(@records); }
&csvuploadmap_header($request,$symb,$datatoken,$#records+1);	&csvuploadmap_header($request,$symb,$datatoken,$#records+1);
my ($i,$keyfields);	my ($i,$keyfields);
if (@records) {	if (@records) {
Line 4976 sub csvuploadmap {	Line 4858 sub csvuploadmap {
sub csvuploadoptions {	sub csvuploadoptions {
my ($request,$symb)= @_;	my ($request,$symb)= @_;
my $overwrite=&mt('Overwrite any existing score');	my $overwrite=&mt('Overwrite any existing score');
my $checked=(($env{'form.noFirstLine'})?'1':'0');
my $ignore=&mt('Ignore First Line');
$request->print(<<ENDPICK);	$request->print(<<ENDPICK);
<form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload">	<form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload">
<input type="hidden" name="command" value="csvuploadassign" />	<input type="hidden" name="command" value="csvuploadassign" />
Line 4991 ENDPICK	Line 4871 ENDPICK
my %fields=&get_fields();	my %fields=&get_fields();
if (!defined($fields{'domain'})) {	if (!defined($fields{'domain'})) {
my $domform = &Apache::loncommon::select_dom_form($env{'request.role.domain'},'default_domain');	my $domform = &Apache::loncommon::select_dom_form($env{'request.role.domain'},'default_domain');
$request->print("\n<p>".&mt('Users are in domain: [_1]',$domform)."</p>\n");	$request->print("\n<p>".&mt('Users are in domain: [_1]',$domform)."</p>\n");
}	}
foreach my $key (sort(keys(%env))) {	foreach my $key (sort(keys(%env))) {
if ($key !~ /^form\.(.*)$/) { next; }	if ($key !~ /^form\.(.*)$/) { next; }
Line 5029 sub csvuploadassign {	Line 4909 sub csvuploadassign {
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'});
if ($datatoken ne '') {	if ($datatoken ne '') {
&Apache::loncommon::load_tmp_file($request,$datatoken);	&Apache::loncommon::load_tmp_file($request,$datatoken);
}	}
my @gradedata = &Apache::loncommon::upfile_record_sep();	my @gradedata = &Apache::loncommon::upfile_record_sep();
if ($env{'form.noFirstLine'}) { shift(@gradedata); }
my %fields=&get_fields();	my %fields=&get_fields();
my $courseid=$env{'request.course.id'};	my $courseid=$env{'request.course.id'};
my ($classlist) = &getclasslist('all',0);	my ($classlist) = &getclasslist('all',0);
Line 5055 sub csvuploadassign {	Line 4934 sub csvuploadassign {
if (!$username) {	if (!$username) {
my $id=$entries{$fields{'ID'}};	my $id=$entries{$fields{'ID'}};
$id=~s/\s//g;	$id=~s/\s//g;
my %ids=&Apache::lonnet::idget($domain,$id);	if ($id ne '') {
$username=$ids{$id};	my %ids=&Apache::lonnet::idget($domain,[$id]);
	$username=$ids{$id};
	} else {
	if ($entries{$fields{'clicker'}}) {
	my $clicker = $entries{$fields{'clicker'}};
	$clicker=~s/\s//g;
	if ($clicker ne '') {
	my %clickers = &Apache::lonnet::idget($domain,[$clicker],'clickers');
	if ($clickers{$clicker} ne '') {
	my $match = 0;
	my @inclass;
	foreach my $poss (split(/,/,$clickers{$clicker})) {
	if (exists($$classlist{"$poss:$domain"})) {
	$username = $poss;
	push(@inclass,$poss);
	$match ++;

	}
	}
	if ($match > 1) {
	undef($username);
	$request->print('<p class="LC_warning">'.
	&mt('Score not saved for clicker: [_1] (matched multiple usernames: [_2])',
	$clicker,join(', ',@inclass)).'</p>');
	}
	}
	}
	}
	}
}	}
if (!exists($$classlist{"$username:$domain"})) {	if (!exists($$classlist{"$username:$domain"})) {
my $id=$entries{$fields{'ID'}};	my $id=$entries{$fields{'ID'}};
$id=~s/\s//g;	$id=~s/\s//g;
if ($id) {	my $clicker = $entries{$fields{'clicker'}};
	$clicker=~s/\s//g;
	if ($clicker) {
	push(@skipped,"$clicker:$domain");
	} elsif ($id) {
push(@skipped,"$id:$domain");	push(@skipped,"$id:$domain");
} else {	} else {
push(@skipped,"$username:$domain");	push(@skipped,"$username:$domain");
Line 5089 sub csvuploadassign {	Line 5000 sub csvuploadassign {
my $award=($pcr == 0) ? 'incorrect_by_override'	my $award=($pcr == 0) ? 'incorrect_by_override'
: 'correct_by_override';	: 'correct_by_override';
if ($pcr>1) {	if ($pcr>1) {
push(@warnings,&mt("[_1]: point value larger than weight","$username:$domain"));	push(@warnings,&mt("[_1]: point value larger than weight","$username:$domain"));
}	}
$grades{"resource.$part.awarded"}=$pcr;	$grades{"resource.$part.awarded"}=$pcr;
$grades{"resource.$part.solved"}=$award;	$grades{"resource.$part.solved"}=$award;
Line 5125 sub csvuploadassign {	Line 5036 sub csvuploadassign {
$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'},
$domain,$username);	$domain,$username);
} else {	$countdone++;
	} else {
$request->print("<p><span class=\"LC_error\">".	$request->print("<p><span class=\"LC_error\">".
&mt("Failed to save data for student [_1]. Message when trying to save was: [_2]",	&mt("Failed to save data for student [_1]. Message when trying to save was: [_2]",
"$username:$domain",$result)."</span></p>");	"$username:$domain",$result)."</span></p>");
}	}
$request->rflush();	$request->rflush();
$countdone++;
}	}
}	}
$request->print('<br />'.&Apache::lonhtmlcommon::confirm_success(&mt("Saved scores for [quant,_1,student]",$countdone),$countdone==0));	$request->print('<br />'.&Apache::lonhtmlcommon::confirm_success(&mt("Saved scores for [quant,_1,student]",$countdone),$countdone==0));
Line 5200 LISTJAVASCRIPT	Line 5111 LISTJAVASCRIPT
# Collection of hidden fields	# Collection of hidden fields
my $ctr=0;	my $ctr=0;
foreach (@$titles) {	foreach (@$titles) {
my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);	my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);
$result.='<input type="hidden" name="page'.$ctr.'" value="'.$$symbx{$_}.'" />'."\n";	$result.='<input type="hidden" name="page'.$ctr.'" value="'.$$symbx{$_}.'" />'."\n";
$result.='<input type="hidden" name="title'.$ctr.'" value="'.$showtitle.'" />'."\n";	$result.='<input type="hidden" name="title'.$ctr.'" value="'.$showtitle.'" />'."\n";
$ctr++;	$ctr++;
}	}
$result.='<input type="hidden" name="page" />'."\n".	$result.='<input type="hidden" name="page" />'."\n".
'<input type="hidden" name="title" />'."\n";	'<input type="hidden" name="title" />'."\n";

$result.=&build_section_inputs();	$result.=&build_section_inputs();
my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));	my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));
$result.='<input type="hidden" name="Status" value="'.$stu_status.'" />'."\n".	$result.='<input type="hidden" name="Status" value="'.$stu_status.'" />'."\n".
'<input type="hidden" name="command" value="displayPage" />'."\n".	'<input type="hidden" name="command" value="displayPage" />'."\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";

# Show grading options	# Show grading options
$result.=&Apache::lonhtmlcommon::start_pick_box();	$result.=&Apache::lonhtmlcommon::start_pick_box();
my $select = '<select name="selectpage">'."\n";	my $select = '<select name="selectpage">'."\n";
$ctr=0;	$ctr=0;
foreach (@$titles) {	foreach (@$titles) {
my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);	my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);
$select.='<option value="'.$ctr.'"'.	$select.='<option value="'.$ctr.'"'.
($$symbx{$_} =~ /$curpage$/ ? ' selected="selected"' : '').	($$symbx{$_} =~ /$curpage$/ ? ' selected="selected"' : '').
'>'.$showtitle.'</option>'."\n";	'>'.$showtitle.'</option>'."\n";
$ctr++;	$ctr++;
}	}
$select.= '</select>';	$select.= '</select>';

Line 5249 LISTJAVASCRIPT	Line 5160 LISTJAVASCRIPT
.'<label><input type="radio" name="lastSub" value="all" /> '	.'<label><input type="radio" name="lastSub" value="all" /> '
.&mt('all submissions with details').' </label>'	.&mt('all submissions with details').' </label>'
.&Apache::lonhtmlcommon::row_closure();	.&Apache::lonhtmlcommon::row_closure();

$result.=	$result.=
&Apache::lonhtmlcommon::row_title(&mt('Use CODE'))	&Apache::lonhtmlcommon::row_title(&mt('Use CODE'))
.'<input type="text" name="CODE" value="" />'	.'<input type="text" name="CODE" value="" />'
Line 5321 sub getSymbMap {	Line 5232 sub getSymbMap {
my @sequences = $navmap->retrieveResources(undef, sub { shift->is_map(); },	my @sequences = $navmap->retrieveResources(undef, sub { shift->is_map(); },
1,0,1);	1,0,1);
for my $sequence ($navmap->getById('0.0'), @sequences) {	for my $sequence ($navmap->getById('0.0'), @sequences) {
if ($navmap->hasResource($sequence, sub { shift->is_problem(); }, 0) ) {	if ($navmap->hasResource($sequence, sub { shift->is_gradable(); }, 0) ) {
my $title = $minder.'.'.	my $title = $minder.'.'.
&HTML::Entities::encode($sequence->compTitle(),'"\'&');	&HTML::Entities::encode($sequence->compTitle(),'"\'&');
push(@titles, $title); # minder in case two titles are identical	push(@titles, $title); # minder in case two titles are identical
Line 5352 sub displayPage {	Line 5263 sub displayPage {
&Apache::lonnet::clear_EXT_cache_status();	&Apache::lonnet::clear_EXT_cache_status();

if (!&canview($usec)) {	if (!&canview($usec)) {
$request->print(	$request->print(
'<span class="LC_warning">'.	'<span class="LC_warning">'.
&mt('Unable to view requested student. ([_1])',	&mt('Unable to view requested student. ([_1])',
$env{'form.student'}).	$env{'form.student'}).
'</span>');	'</span>');
return;	return;
}	}
Line 5418 sub displayPage {	Line 5329 sub displayPage {
if($curRes == $iterator->BEGIN_MAP) { $depth++; }	if($curRes == $iterator->BEGIN_MAP) { $depth++; }
if($curRes == $iterator->END_MAP) { $depth--; }	if($curRes == $iterator->END_MAP) { $depth--; }

if (ref($curRes) && $curRes->is_problem()) {	if (ref($curRes) && $curRes->is_gradable()) {
my $parts = $curRes->parts();	my $parts = $curRes->parts();
my $title = $curRes->compTitle();	my $title = $curRes->compTitle();
my $symbx = $curRes->symb();	my $symbx = $curRes->symb();
	my $is_tool = ($symbx =~ /ext\.tool$/);
$studentTable.=	$studentTable.=
&Apache::loncommon::start_data_table_row().	&Apache::loncommon::start_data_table_row().
'<td align="center" valign="top" >'.$prob.	'<td align="center" valign="top" >'.$prob.
Line 5432 sub displayPage {	Line 5344 sub displayPage {
'</td>';	'</td>';
$studentTable.='<td valign="top">';	$studentTable.='<td valign="top">';
my %form = ('CODE' => $env{'form.CODE'},);	my %form = ('CODE' => $env{'form.CODE'},);
if ($env{'form.vProb'} eq 'yes' ) {	if ($is_tool) {
$studentTable.=&show_problem($request,$symbx,$uname,$udom,1,	$studentTable.=' <b>'.$title.'</b><br />';
undef,'both',\%form);	} else {
} else {	if ($env{'form.vProb'} eq 'yes' ) {
my $companswer = &Apache::loncommon::get_student_answers($symbx,$uname,$udom,$env{'request.course.id'},%form);	$studentTable.=&show_problem($request,$symbx,$uname,$udom,1,
$companswer =~ s\|<form(.*?)>\|\|g;	undef,'both',\%form);
$companswer =~ s\|</form>\|\|g;	} else {
# while ($companswer =~ /(<a href\=\"javascript:newWindow.*?Script Vars<\/a>)/s) { #<a href="javascript:newWindow</a>	my $companswer = &Apache::loncommon::get_student_answers($symbx,$uname,$udom,$env{'request.course.id'},%form);
# $companswer =~ s/$1/ /ms;	$companswer =~ s\|<form(.*?)>\|\|g;
# $request->print('match='.$1."<br />\n");	$companswer =~ s\|</form>\|\|g;
# }	# while ($companswer =~ /(<a href\=\"javascript:newWindow.*?Script Vars<\/a>)/s) { #<a href="javascript:newWindow</a>
# $companswer =~ s\|<table border=\"1\">\|<table border=\"0\">\|g;	# $companswer =~ s/$1/ /ms;
$studentTable.=' <b>'.$title.'</b> <br /> <b>'.&mt('Correct answer').':</b><br />'.$companswer;	# $request->print('match='.$1."<br />\n");
	# }
	# $companswer =~ s\|<table border=\"1\">\|<table border=\"0\">\|g;
	$studentTable.=' <b>'.$title.'</b> <br /> <b>'.&mt('Correct answer').':</b><br />'.$companswer;
	}
}	}

my %record = &Apache::lonnet::restore($symbx,$env{'request.course.id'},$udom,$uname);	my %record = &Apache::lonnet::restore($symbx,$env{'request.course.id'},$udom,$uname);

if ($env{'form.lastSub'} eq 'datesub') {	if ($env{'form.lastSub'} eq 'datesub') {
if ($record{'version'} eq '') {	if ($record{'version'} eq '') {
$studentTable.='<br /> <span class="LC_warning">'.&mt('No recorded submission for this problem.').'</span><br />';	my $msg = &mt('No recorded submission for this problem.');
	if ($is_tool) {
	$msg = &mt('No recorded transactions for this external tool');
	}
	$studentTable.='<br /> <span class="LC_warning">'.$msg.'</span><br />';
} else {	} else {
my %responseType = ();	my %responseType = ();
foreach my $partid (@{$parts}) {	foreach my $partid (@{$parts}) {
Line 5464 sub displayPage {	Line 5384 sub displayPage {
$responseType{$partid} = \%responseIds;	$responseType{$partid} = \%responseIds;
}	}
$studentTable.= &displaySubByDates($symbx,\%record,$parts,\%responseType,$checkIcon,$uname,$udom);	$studentTable.= &displaySubByDates($symbx,\%record,$parts,\%responseType,$checkIcon,$uname,$udom);

}	}
} elsif ($env{'form.lastSub'} eq 'all') {	} elsif ($env{'form.lastSub'} eq 'all') {
my $last = ($env{'form.lastSub'} eq 'last' ? 'last' : '');	my $last = ($env{'form.lastSub'} eq 'last' ? 'last' : '');
my $identifier = (&canmodify($usec)? $prob : '');	my $identifier = (&canmodify($usec)? $prob : '');
$studentTable.=&Apache::loncommon::get_previous_attempt($symbx,$uname,$udom,	$studentTable.=&Apache::loncommon::get_previous_attempt($symbx,$uname,$udom,
$env{'request.course.id'},	$env{'request.course.id'},
'','.submission',undef,	'','.submission',undef,
Line 5490 sub displayPage {	Line 5409 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').'"'.$disabled.' '.	'<input type="button" value="'.&mt('Save').'" '.
'onclick="javascript:checkSubmitPage(this.form,'.$question.');" />'.	'onclick="javascript:checkSubmitPage(this.form,'.$question.');" />'.
'</form>'."\n";	'</form>'."\n";
$request->print($studentTable);	$request->print($studentTable);
Line 5509 sub displaySubByDates {	Line 5424 sub displaySubByDates {
my ($symb,$record,$parts,$responseType,$checkIcon,$uname,$udom) = @_;	my ($symb,$record,$parts,$responseType,$checkIcon,$uname,$udom) = @_;
my $isCODE=0;	my $isCODE=0;
my $isTask = ($symb =~/\.task$/);	my $isTask = ($symb =~/\.task$/);
	my $is_tool = ($symb =~/\.tool$/);
if (exists($record->{'resource.CODE'})) { $isCODE=1; }	if (exists($record->{'resource.CODE'})) { $isCODE=1; }
my $studentTable=&Apache::loncommon::start_data_table().	my $studentTable=&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().	&Apache::loncommon::start_data_table_header_row().
'<th>'.&mt('Date/Time').'</th>'.	'<th>'.&mt('Date/Time').'</th>'.
($isCODE?'<th>'.&mt('CODE').'</th>':'').	($isCODE?'<th>'.&mt('CODE').'</th>':'').
($isTask?'<th>'.&mt('Version').'</th>':'').	($isTask?'<th>'.&mt('Version').'</th>':'').
'<th>'.&mt('Submission').'</th>'.	'<th>'.($is_tool?&mt('Grade'):&mt('Submission')).'</th>'.
'<th>'.&mt('Status').'</th>'.	'<th>'.&mt('Status').'</th>'.
&Apache::loncommon::end_data_table_header_row();	&Apache::loncommon::end_data_table_header_row();
my ($version);	my ($version);
Line 5523 sub displaySubByDates {	Line 5439 sub displaySubByDates {
my %orders;	my %orders;
$mark{'correct_by_student'} = $checkIcon;	$mark{'correct_by_student'} = $checkIcon;
if (!exists($$record{'1:timestamp'})) {	if (!exists($$record{'1:timestamp'})) {
return '<br /> <span class="LC_warning">'.&mt('Nothing submitted - no attempts.').'</span><br />';	if ($is_tool) {
	return '<br /> <span class="LC_warning">'.&mt('No grade passed back.').'</span><br />';
	} else {
	return '<br /> <span class="LC_warning">'.&mt('Nothing submitted - no attempts.').'</span><br />';
	}
}	}

my $interaction;	my $interaction;
Line 5556 sub displaySubByDates {	Line 5476 sub displaySubByDates {
if (($type eq 'anonsurvey') \|\| ($type eq 'anonsurveycred')) {	if (($type eq 'anonsurvey') \|\| ($type eq 'anonsurveycred')) {
$hidden = 1;	$hidden = 1;
}	}
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) {
	@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);
foreach my $matchKey (@matchKey) {	foreach my $matchKey (@matchKey) {
if (exists($$record{$version.':'.$matchKey}) &&	if (exists($$record{$version.':'.$matchKey}) &&
$$record{$version.':'.$matchKey} ne '') {	$$record{$version.':'.$matchKey} ne '') {
	if ($is_tool) {
my ($responseId)= ($isTask ? ($matchKey=~ /^resource\.(.*?)\.\Q$partid\E\.award$/)	$displaySub[0].=$$record{"$version:resource.$partid.awarded"};
: ($matchKey=~ /^resource\.\Q$partid\E\.(.*?)\.submission$/));
$displaySub[0].='<span class="LC_nobreak">';
$displaySub[0].='<b>'.&mt('Part: [_1]',$display_part).'</b>'
.' <span class="LC_internal_info">'
.'('.&mt('Response ID: [_1]',$responseId).')'
.'</span>'
.' <b>';
if ($hidden) {
$displaySub[0].= &mt('Anonymous Survey').'</b>';
} else {	} else {
my ($trial,$rndseed,$newvariation);	my ($responseId)= ($isTask ? ($matchKey=~ /^resource\.(.*?)\.\Q$partid\E\.award$/)
if ($type eq 'randomizetry') {	: ($matchKey=~ /^resource\.\Q$partid\E\.(.*?)\.submission$/));
$trial = $$record{"$where.$partid.tries"};	$displaySub[0].='<span class="LC_nobreak">';
$rndseed = $$record{"$where.$partid.rndseed"};	$displaySub[0].='<b>'.&mt('Part: [_1]',$display_part).'</b>'
}	.' <span class="LC_internal_info">'
if ($$record{"$where.$partid.tries"} eq '') {	.'('.&mt('Response ID: [_1]',$responseId).')'
$displaySub[0].=&mt('Trial not counted');	.'</span>'
} else {	.' <b>';
$displaySub[0].=&mt('Trial: [_1]',	if ($hidden) {
$$record{"$where.$partid.tries"});	$displaySub[0].= &mt('Anonymous Survey').'</b>';
if (($rndseed ne '') && ($lastrndseed{$partid} ne '')) {	} else {
if (($rndseed ne $lastrndseed{$partid}) &&	my ($trial,$rndseed,$newvariation);
(($type eq 'randomizetry') \|\| ($lasttype{$partid} eq 'randomizetry'))) {	if ($type eq 'randomizetry') {
$newvariation = ' ('.&mt('New variation this try').')';	$trial = $$record{"$where.$partid.tries"};
}	$rndseed = $$record{"$where.$partid.rndseed"};
}	}
$lastrndseed{$partid} = $rndseed;	if ($$record{"$where.$partid.tries"} eq '') {
$lasttype{$partid} = $type;	$displaySub[0].=&mt('Trial not counted');
}	} else {
my $responseType=($isTask ? 'Task'	$displaySub[0].=&mt('Trial: [_1]',
	$$record{"$where.$partid.tries"});
	if (($rndseed ne '') && ($lastrndseed{$partid} ne '')) {
	if (($rndseed ne $lastrndseed{$partid}) &&
	(($type eq 'randomizetry') \|\| ($lasttype{$partid} eq 'randomizetry'))) {
	$newvariation = ' ('.&mt('New variation this try').')';
	}
	}
	$lastrndseed{$partid} = $rndseed;
	$lasttype{$partid} = $type;
	}
	my $responseType=($isTask ? 'Task'
: $responseType->{$partid}->{$responseId});	: $responseType->{$partid}->{$responseId});
if (!exists($orders{$partid})) { $orders{$partid}={}; }	if (!exists($orders{$partid})) { $orders{$partid}={}; }
if ((!exists($orders{$partid}->{$responseId})) \|\| ($trial)) {	if ((!exists($orders{$partid}->{$responseId})) \|\| ($trial)) {
$orders{$partid}->{$responseId}=	$orders{$partid}->{$responseId}=
&get_order($partid,$responseId,$symb,$uname,$udom,	&get_order($partid,$responseId,$symb,$uname,$udom,
$no_increment,$type,$trial,$rndseed);	$no_increment,$type,$trial,$rndseed);
}	}
$displaySub[0].='</b>'.$newvariation.'</span>'; # /nobreak	$displaySub[0].='</b>'.$newvariation.'</span>'; # /nobreak
$displaySub[0].='  '.	$displaySub[0].='  '.
&cleanRecord($$record{$version.':'.$matchKey},$responseType,$symb,$partid,$responseId,$record,$orders{$partid}->{$responseId},"$version:",$uname,$udom,$type,$trial,$rndseed).'<br />';	&cleanRecord($$record{$version.':'.$matchKey},$responseType,$symb,$partid,$responseId,$record,$orders{$partid}->{$responseId},"$version:",$uname,$udom,$type,$trial,$rndseed).'<br />';
	}
}	}
}	}
}	}
Line 5623 sub displaySubByDates {	Line 5548 sub displaySubByDates {
lc($$record{"$where.$partid.award"}).' '.	lc($$record{"$where.$partid.award"}).' '.
$mark{$$record{"$where.$partid.solved"}}.	$mark{$$record{"$where.$partid.solved"}}.
'<br />';	'<br />';
	} elsif (($is_tool) && (exists($$record{"$version:resource.$partid.solved"}))) {
	if ($$record{"$version:resource.$partid.solved"} =~ /^(in\|)correct_by_passback$/) {
	$displaySub[1].=&mt('Grade passed back by external tool');
	}
}	}
if (exists $$record{"$where.$partid.regrader"}) {	if (exists $$record{"$where.$partid.regrader"}) {
$displaySub[2].=$$record{"$where.$partid.regrader"}.	$displaySub[2].=$$record{"$where.$partid.regrader"};
' (<b>'.&mt('Part').':</b> '.$display_part.')';	unless ($is_tool) {
	$displaySub[2].=' (<b>'.&mt('Part').':</b> '.$display_part.')';
	}
} elsif ($$record{"$version:resource.$partid.regrader"} =~ /\S/) {	} elsif ($$record{"$version:resource.$partid.regrader"} =~ /\S/) {
$displaySub[2].=	$displaySub[2].=
$$record{"$version:resource.$partid.regrader"}.	$$record{"$version:resource.$partid.regrader"};
' (<b>'.&mt('Part').':</b> '.$display_part.')';	unless ($is_tool) {
	$displaySub[2].=' (<b>'.&mt('Part').':</b> '.$display_part.')';
	}
}	}
}	}
# needed because old essay regrader has not parts info	# needed because old essay regrader has not parts info
Line 5715 sub updateGradeByPage {	Line 5648 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 5725 sub updateGradeByPage {	Line 5657 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 5804 sub updateGradeByPage {	Line 5723 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,\%queueable);	$cdom,$cnum,$udom,$uname);
}	}

if ($aggregateflag) {	if ($aggregateflag) {
Line 6146 sub scantron_selectphase {	Line 6065 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 $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 $alertmsg = &mt('Please use the browse button to select a file from your local directory.');	my $csec= $env{'request.course.sec'};
&js_escape(\$alertmsg);	my $alertmsg = &mt('Please use the browse button to select a file from your local directory.');
my ($formatoptions,$formattitle,$formatjs) = &scantron_upload_dataformat($cdom);	&js_escape(\$alertmsg);
$r->print(&Apache::lonhtmlcommon::scripttag('	my ($formatoptions,$formattitle,$formatjs) = &scantron_upload_dataformat($cdom);
	$r->print(&Apache::lonhtmlcommon::scripttag('
function checkUpload(formname) {	function checkUpload(formname) {
if (formname.upfile.value == "") {	if (formname.upfile.value == "") {
alert("'.$alertmsg.'");	alert("'.$alertmsg.'");
return false;	return false;
}	}
formname.submit();	formname.submit();
}'."\n".$formatjs));	}'."\n".$formatjs));
$r->print('	$r->print('
<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 6181 sub scantron_selectphase {	Line 6101 sub scantron_selectphase {
'.&Apache::loncommon::start_data_table_row().'	'.&Apache::loncommon::start_data_table_row().'
<td>	<td>
'.&mt('File to upload: [_1]','<input type="file" name="upfile" size="50" />').'<br />'."\n");	'.&mt('File to upload: [_1]','<input type="file" name="upfile" size="50" />').'<br />'."\n");
if ($formatoptions) {	if ($formatoptions) {
$r->print('</td>	$r->print('</td>
'.&Apache::loncommon::end_data_table_row().'	'.&Apache::loncommon::end_data_table_row().'
'.&Apache::loncommon::start_data_table_row().'	'.&Apache::loncommon::start_data_table_row().'
<td>'.$formattitle.(' 'x2).$formatoptions.'	<td>'.$formattitle.(' 'x2).$formatoptions.'
Line 6190 sub scantron_selectphase {	Line 6110 sub scantron_selectphase {
'.&Apache::loncommon::end_data_table_row().'	'.&Apache::loncommon::end_data_table_row().'
'.&Apache::loncommon::start_data_table_row().'	'.&Apache::loncommon::start_data_table_row().'
<td>'	<td>'
);	);
} else {	} else {
$r->print(' <br />');	$r->print(' <br />');
}	}
$r->print('<input type="button" onclick="javascript:checkUpload(this.form);" value="'.&mt('Upload Bubblesheet Data').'" />	$r->print('<input type="button" onclick="javascript:checkUpload(this.form);" value="'.&mt('Upload Bubblesheet Data').'" />
</td>	</td>
'.&Apache::loncommon::end_data_table_row().'	'.&Apache::loncommon::end_data_table_row().'
'.&Apache::loncommon::end_data_table().'	'.&Apache::loncommon::end_data_table().'
</form>'	</form>'
);	);

}	}

Line 6316 sub scantron_selectphase {	Line 6236 sub scantron_selectphase {
=item username_to_idmap	=item username_to_idmap

creates a hash keyed by student/employee ID with values of the corresponding	creates a hash keyed by student/employee ID with values of the corresponding
student username:domain.	student username:domain. If a single ID occurs for more than one student,
	the status of the student is checked, and if Active, the value in the hash
	will be set to the Active student.

Arguments:	Arguments:

Line 6516 sub digits_to_letters {	Line 6438 sub digits_to_letters {

=item scantron_parse_scanline	=item scantron_parse_scanline

Decodes a scanline from the selected scantron file	Decodes a scanline from the selected bubblesheet file

Arguments:	Arguments:
line - The text of the scantron file line to process	line - The text of the bubblesheet file line to process
whichline - Line number	whichline - Line number
scantron_config - Hash describing the format of the scantron lines.	scantron_config - Hash describing the format of the bubblesheet lines.
scan_data - Hash of extra information about the scanline	scan_data - Hash of extra information about the scanline
(see scantron_getfile for more information)	(see scantron_getfile for more information)
just_header - True if should not process question answers but only	just_header - True if should not process question answers but only
Line 6546 sub digits_to_letters {	Line 6468 sub digits_to_letters {
totalref - Ref of scalar used to score total number of bubble	totalref - Ref of scalar used to score total number of bubble
lines needed for responses in a scan line (used when	lines needed for responses in a scan line (used when
randompick in use.	randompick in use.

Returns:	Returns:
Hash containing the result of parsing the scanline	Hash containing the result of parsing the scanline

Line 6639 sub scantron_parse_scanline {	Line 6561 sub scantron_parse_scanline {
$partids_by_symb,$orderedforcode,	$partids_by_symb,$orderedforcode,
$respnumlookup,$startline);	$respnumlookup,$startline);
if ($total) {	if ($total) {
$lastpos = $total*$$scantron_config{'Qlength'};	$lastpos = $total*$$scantron_config{'Qlength'};
}	}
if (ref($totalref)) {	if (ref($totalref)) {
$$totalref = $total;	$$totalref = $total;
Line 6653 sub scantron_parse_scanline {	Line 6575 sub scantron_parse_scanline {
if (($randompick \|\| $randomorder) && (ref($respnumlookup) eq 'HASH')) {	if (($randompick \|\| $randomorder) && (ref($respnumlookup) eq 'HASH')) {
$answers_needed = $bubble_lines_per_response{$respnumlookup->{$questnum}};	$answers_needed = $bubble_lines_per_response{$respnumlookup->{$questnum}};
} else {	} else {
$answers_needed = $bubble_lines_per_response{$questnum};	$answers_needed = $bubble_lines_per_response{$questnum};
}	}
my $answer_length = ($$scantron_config{'Qlength'} * $answers_needed)	my $answer_length = ($$scantron_config{'Qlength'} * $answers_needed)
\|\| 1;	\|\| 1;
Line 6713 sub scantron_parse_scanline {	Line 6635 sub scantron_parse_scanline {
}	}

sub get_master_seq {	sub get_master_seq {
my ($resources,$master_seq,$symb_to_resource,$need_symb_in_map,$symb_for_examcode) = @_;	my ($resources,$master_seq,$symb_to_resource) = @_;
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 6726 sub get_master_seq {	Line 6645 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 6803 sub scantron_validator_lettnum {	Line 6714 sub scantron_validator_lettnum {
my $occurrences = 0;	my $occurrences = 0;
my $responsenum = $questnum-1;	my $responsenum = $questnum-1;
if (($randompick \|\| $randomorder) && (ref($respnumlookup) eq 'HASH')) {	if (($randompick \|\| $randomorder) && (ref($respnumlookup) eq 'HASH')) {
$responsenum = $respnumlookup->{$questnum-1}	$responsenum = $respnumlookup->{$questnum-1}
}	}
if (($responsetype_per_response{$responsenum} eq 'essayresponse') \|\|	if (($responsetype_per_response{$responsenum} eq 'essayresponse') \|\|
($responsetype_per_response{$responsenum} eq 'formularesponse') \|\|	($responsetype_per_response{$responsenum} eq 'formularesponse') \|\|
Line 7099 sub scantron_process_corrections {	Line 7010 sub scantron_process_corrections {
}	}
}	}
if ($err) {	if ($err) {
$r->print(	$r->print(
'<p class="LC_error">'	'<p class="LC_error">'
.&mt('Unable to accept last correction, an error occurred: [_1]',	.&mt('Unable to accept last correction, an error occurred: [_1]',
$errmsg)	$errmsg)
Line 7236 sub scantron_warning_screen {	Line 7147 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 7248 sub scantron_warning_screen {	Line 7159 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 7276 sub scantron_do_warning {	Line 7185 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 7371 sub scantron_validate_file {	Line 7323 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 7396 sub scantron_validate_file {	Line 7379 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)) {
$r->print(&mt('Validating '.$validate_phases[$currentphase]).'<br />');	$r->print(&mt('Validating '.$validate_phases[$currentphase]).'<br />');
$r->rflush();	$r->rflush();

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 7432 sub scantron_validate_file {	Line 7431 sub scantron_validate_file {
$r->print('<input type="submit" name="submit" value="'.&mt('Ignore').' → " />');	$r->print('<input type="submit" name="submit" value="'.&mt('Ignore').' → " />');
$r->print(' '.&mt('this error').' <br />');	$r->print(' '.&mt('this error').' <br />');

$r->print('<p>'.&mt('Or 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>');	$r->print('<p>'.&mt('Or 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>');
} else {	} else {
if ($validate_phases[$currentphase] eq 'doublebubble' \|\| $validate_phases[$currentphase] eq 'missingbubbles') {	if ($validate_phases[$currentphase] eq 'doublebubble' \|\| $validate_phases[$currentphase] eq 'missingbubbles') {
$r->print('<input type="button" name="submitbutton" value="'.&mt('Continue').' →" onclick="javascript:verify_bubble_radio(this.form)" />');	$r->print('<input type="button" name="submitbutton" value="'.&mt('Continue').' →" onclick="javascript:verify_bubble_radio(this.form)" />');
Line 7811 sub scantron_validate_sequence {	Line 7810 sub scantron_validate_sequence {
my @resources=	my @resources=
$navmap->retrieveResources($map,\&scantron_filter_not_exam,1,0);	$navmap->retrieveResources($map,\&scantron_filter_not_exam,1,0);
if (@resources) {	if (@resources) {
$r->print('<p class="LC_warning">'	$r->print(
	'<p class="LC_warning">'
.&mt('Some resources in the sequence currently are not set to'	.&mt('Some resources in the sequence currently are not set to'
.' exam mode. Grading these resources currently may not'	.' bubblesheet exam mode. Grading these resources currently may not'
.' work correctly.')	.' work correctly.')
.'</p>'	.'</p>'
);	);
Line 7827 sub scantron_validate_sequence {	Line 7827 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 7845 sub scantron_validate_ID {	Line 7846 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 7857 sub scantron_validate_ID {	Line 7859 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 7872 sub scantron_validate_ID {	Line 7902 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 7935 sub scantron_get_correction {	Line 8031 sub scantron_get_correction {

if ($error =~ /ID$/) {	if ($error =~ /ID$/) {
if ($error eq 'incorrectID') {	if ($error eq 'incorrectID') {
$r->print('<p class="LC_warning">'.&mt("The encoded ID is not in the classlist").	$r->print('<p class="LC_warning">'.&mt("The encoded ID is not in the classlist").
"</p>\n");	"</p>\n");
} elsif ($error eq 'duplicateID') {	} elsif ($error eq 'duplicateID') {
$r->print('<p class="LC_warning">'.&mt("The encoded ID has also been used by a previous paper [_1]",$arg)."</p>\n");	$r->print('<p class="LC_warning">'.&mt("The encoded ID has also been used by a previous paper [_1]",$arg)."</p>\n");
}	}
$r->print($message);	$r->print($message);
$r->print("<p>".&mt("How should I handle this?")." <br /> \n");	$r->print("<p>".&mt("How should I handle this?")." <br /> \n");
Line 7958 sub scantron_get_correction {	Line 8054 sub scantron_get_correction {
} elsif ($error eq 'duplicateCODE') {	} elsif ($error eq 'duplicateCODE') {
$r->print('<p class="LC_warning">'.&mt("The encoded CODE has also been used by a previous paper [_1], and CODEs are supposed to be unique.",join(', ',@{$arg}))."</p>\n");	$r->print('<p class="LC_warning">'.&mt("The encoded CODE has also been used by a previous paper [_1], and CODEs are supposed to be unique.",join(', ',@{$arg}))."</p>\n");
}	}
$r->print("<p>".&mt('The CODE on the form is [_1]',	$r->print("<p>".&mt('The CODE on the form is [_1]',
"<tt>'$$scan_record{'scantron.CODE'}'</tt>")	"<tt>'$$scan_record{'scantron.CODE'}'</tt>")
."</p>\n");	."</p>\n");
$r->print($message);	$r->print($message);
$r->print("<p>".&mt("How should I handle this?")."</p>\n");	$r->print("<p>".&mt("How should I handle this?")."</p>\n");
Line 8056 ENDSCRIPT	Line 8152 ENDSCRIPT
# The form field scantron_questions is actually a list of line numbers not	# The form field scantron_questions is actually a list of line numbers not
# a list of question numbers. Therefore:	# a list of question numbers. Therefore:
#	#

my $line_list = &questions_to_line_list($arg,$randomorder,$randompick,	my $line_list = &questions_to_line_list($arg,$randomorder,$randompick,
$respnumlookup,$startline);	$respnumlookup,$startline);

Line 8166 sub questions_to_line_list {	Line 8262 sub questions_to_line_list {
} else {	} else {
$first = $first_bubble_line{$responsenum} + 1;	$first = $first_bubble_line{$responsenum} + 1;
}	}
$count = $bubble_lines_per_response{$responsenum};	$count = $bubble_lines_per_response{$responsenum};
}	}
$last = $first+$count-1;	$last = $first+$count-1;
push(@lines, ($first..$last));	push(@lines, ($first..$last));
Line 8197 for multi and missing bubble cases).	Line 8293 for multi and missing bubble cases).
and value is number of first bubble line for current student	and value is number of first bubble line for current student
or code-based randompick and/or randomorder.	or code-based randompick and/or randomorder.


Implicit inputs:	Implicit inputs:
%bubble_lines_per_response - Starting line numbers for each question.	%bubble_lines_per_response - Starting line numbers for each question.
Numbered from 0 (but question numbers are from	Numbered from 0 (but question numbers are from
Line 8249 sub prompt_for_corrections {	Line 8346 sub prompt_for_corrections {
} else {	} else {
if (($randomorder \|\| $randompick) && (ref($respnumlookup) eq 'HASH')) {	if (($randomorder \|\| $randompick) && (ref($respnumlookup) eq 'HASH')) {
$responsenum = $respnumlookup->{$question-1};	$responsenum = $respnumlookup->{$question-1};
if (ref($startline) eq 'HASH') {	if (ref($startline) eq 'HASH') {
$first = $startline->{$question-1};	$first = $startline->{$question-1};
}	}
} else {	} else {
Line 8267 sub prompt_for_corrections {	Line 8364 sub prompt_for_corrections {
($responsetype_per_response{$responsenum} eq 'imageresponse') \|\|	($responsetype_per_response{$responsenum} eq 'imageresponse') \|\|
($responsetype_per_response{$responsenum} eq 'reactionresponse') \|\|	($responsetype_per_response{$responsenum} eq 'reactionresponse') \|\|
($responsetype_per_response{$responsenum} eq 'organicresponse')) {	($responsetype_per_response{$responsenum} eq 'organicresponse')) {
$r->print(&mt("Although this particular question type requires handgrading, the instructions for this question in the bubblesheet exam directed students to leave [quant,_1,line] blank on their bubblesheets.",$lines).'<br /><br />'.&mt('A non-zero score can be assigned to the student during bubblesheet grading by selecting a bubble in at least one line.').'<br />'.&mt('The score for this question will be a sum of the numeric values for the selected bubbles from each line, where A=1 point, B=2 points etc.').'<br />'.&mt("To assign a score of zero for this question, mark all lines as 'No bubble'.").'<br /><br />');	$r->print(
	&mt("Although this particular question type requires handgrading, the instructions for this question in the bubblesheet exam directed students to leave [quant,_1,line] blank on their bubblesheets.",$lines)
	.'<br /><br />'
	.&mt('A non-zero score can be assigned to the student during bubblesheet grading by selecting a bubble in at least one line.')
	.'<br />'
	.&mt('The score for this question will be a sum of the numeric values for the selected bubbles from each line, where A=1 point, B=2 points etc.')
	.'<br />'
	.&mt("To assign a score of zero for this question, mark all lines as 'No bubble'.")
	.'<br /><br />'
	);
} else {	} else {
$r->print(&mt("Select at most one bubble in a single line and select 'No Bubble' in all the other lines. ")."<br />");	$r->print(&mt("Select at most one bubble in a single line and select 'No Bubble' in all the other lines. ")."<br />");
}	}
Line 8307 sub scantron_bubble_selector {	Line 8413 sub scantron_bubble_selector {
my $max=$$scan_config{'Qlength'};	my $max=$$scan_config{'Qlength'};

my $scmode=$$scan_config{'Qon'};	my $scmode=$$scan_config{'Qon'};
if ($scmode eq 'number' \|\| $scmode eq 'letter') {	if ($scmode eq 'number' \|\| $scmode eq 'letter') {
if (($$scan_config{'BubblesPerRow'} =~ /^\d+$/) &&	if (($$scan_config{'BubblesPerRow'} =~ /^\d+$/) &&
($$scan_config{'BubblesPerRow'} > 0)) {	($$scan_config{'BubblesPerRow'} > 0)) {
$max=$$scan_config{'BubblesPerRow'};	$max=$$scan_config{'BubblesPerRow'};
Line 8550 sub scantron_validate_doublebubble {	Line 8656 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 8637 sub scantron_get_maxbubble {	Line 8732 sub scantron_get_maxbubble {
my $response_number = 0;	my $response_number = 0;
my $bubble_line = 0;	my $bubble_line = 0;
foreach my $resource (@resources) {	foreach my $resource (@resources) {
my $resid = $resource->id();	my $resid = $resource->id();
my ($analysis,$parts) = &scantron_partids_tograde($resource,$cid,$uname,	my ($analysis,$parts) = &scantron_partids_tograde($resource,$cid,$uname,
$udom,undef,$bubbles_per_row);	$udom,undef,$bubbles_per_row);
if ((ref($analysis) eq 'HASH') && (ref($parts) eq 'ARRAY')) {	if ((ref($analysis) eq 'HASH') && (ref($parts) eq 'ARRAY')) {
Line 8688 sub scantron_get_maxbubble {	Line 8783 sub scantron_get_maxbubble {
$bubble_lines_per_response{$response_number} = $lines;	$bubble_lines_per_response{$response_number} = $lines;
$responsetype_per_response{$response_number} =	$responsetype_per_response{$response_number} =
$analysis->{$part_id.'.type'};	$analysis->{$part_id.'.type'};
$masterseq_id_responsenum{$resid.'_'.$part_id} = $response_number;	$masterseq_id_responsenum{$resid.'_'.$part_id} = $response_number;
$response_number++;	$response_number++;

$bubble_line += $lines;	$bubble_line += $lines;
Line 8744 sub scantron_validate_missingbubbles {	Line 8839 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 8780 sub scantron_validate_missingbubbles {	Line 8864 sub scantron_validate_missingbubbles {
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; }
my $scan_record =	my $scan_record =
&scantron_parse_scanline($line,$i,\%scantron_config,$scan_data,undef,\%idmap,	&scantron_parse_scanline($line,$i,\%scantron_config,$scan_data,undef,\%idmap,
$randomorder,$randompick,$sequence,\@master_seq,	$randomorder,$randompick,$sequence,\@master_seq,
\%symb_to_resource,\%grader_partids_by_symb,	\%symb_to_resource,\%grader_partids_by_symb,
\%orderedforcode,\%respnumlookup,\%startline);	\%orderedforcode,\%respnumlookup,\%startline);
if (!defined($$scan_record{'scantron.missingerror'})) { next; }	if (!defined($$scan_record{'scantron.missingerror'})) { next; }
Line 8793 sub scantron_validate_missingbubbles {	Line 8877 sub scantron_validate_missingbubbles {
foreach my $missing (@{$$scan_record{'scantron.missingerror'}}) {	foreach my $missing (@{$$scan_record{'scantron.missingerror'}}) {
my $lastbubble;	my $lastbubble;
if ($missing =~ /^(\d+)\.(\d+)$/) {	if ($missing =~ /^(\d+)\.(\d+)$/) {
my $question = $1;	my $question = $1;
my $subquestion = $2;	my $subquestion = $2;
my ($first,$responsenum);	my ($first,$responsenum);
if ($randomorder \|\| $randompick) {	if ($randomorder \|\| $randompick) {
$responsenum = $respnumlookup{$question-1};	$responsenum = $respnumlookup{$question-1};
$first = $startline{$question-1};	$first = $startline{$question-1};
} else {	} else {
$responsenum = $question-1;	$responsenum = $question-1;
$first = $first_bubble_line{$responsenum};	$first = $first_bubble_line{$responsenum};
}	}
if (!defined($first)) { next; }	if (!defined($first)) { next; }
my @subans = split(/,/,$subdivided_bubble_lines{$responsenum});	my @subans = split(/,/,$subdivided_bubble_lines{$responsenum});
my $subcount = 1;	my $subcount = 1;
while ($subcount<$subquestion) {	while ($subcount<$subquestion) {
$first += $subans[$subcount-1];	$first += $subans[$subcount-1];
$subcount ++;	$subcount ++;
}	}
my $count = $subans[$subquestion-1];	my $count = $subans[$subquestion-1];
$lastbubble = $first + $count;	$lastbubble = $first + $count;
} else {	} else {
my ($first,$responsenum);	my ($first,$responsenum);
if ($randomorder \|\| $randompick) {	if ($randomorder \|\| $randompick) {
$responsenum = $respnumlookup{$missing-1};	$responsenum = $respnumlookup{$missing-1};
$first = $startline{$missing-1};	$first = $startline{$missing-1};
} else {	} else {
$responsenum = $missing-1;	$responsenum = $missing-1;
$first = $first_bubble_line{$responsenum};	$first = $first_bubble_line{$responsenum};
}	}
if (!defined($first)) { next; }	if (!defined($first)) { next; }
$lastbubble = $first + $bubble_lines_per_response{$responsenum};	$lastbubble = $first + $bubble_lines_per_response{$responsenum};
}	}
if ($lastbubble > $max_bubble) { next; }	if ($lastbubble > $max_bubble) { next; }
push(@to_correct,$missing);	push(@to_correct,$missing);
Line 8885 sub scantron_process_students {	Line 8969 sub scantron_process_students {
my $default_form_data=&defaultFormData($symb);	my $default_form_data=&defaultFormData($symb);

my %scantron_config=&Apache::lonnet::get_scantron_config($env{'form.scantron_format'});	my %scantron_config=&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)=&scantron_getfile();	my ($scanlines,$scan_data)=&scantron_getfile();
my $classlist=&Apache::loncoursedata::get_classlist();	my $classlist=&Apache::loncoursedata::get_classlist();
my %idmap=&username_to_idmap($classlist);	my %idmap=&username_to_idmap($classlist);
Line 8896 sub scantron_process_students {	Line 8980 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,%symb_for_examcode);	%grader_randomlists_by_symb);
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 8918 sub scantron_process_students {	Line 8991 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,1,\%symb_for_examcode);	$nav_error = &get_master_seq(\@resources,\@master_seq,\%symb_to_resource);
if ($nav_error) {	if ($nav_error) {
$r->print(&navmap_errormsg());	$r->print(&navmap_errormsg());
return '';	return '';
Line 8935 sub scantron_process_students {	Line 9008 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 8980 SCANTRONFORM	Line 9054 SCANTRONFORM
my %startline = ();	my %startline = ();
my $total;	my $total;
my $scan_record=&scantron_parse_scanline($line,$i,\%scantron_config,	my $scan_record=&scantron_parse_scanline($line,$i,\%scantron_config,
$scan_data,undef,\%idmap,$randomorder,	$scan_data,undef,\%idmap,$randomorder,
$randompick,$sequence,\@master_seq,	$randompick,$sequence,\@master_seq,
\%symb_to_resource,\%grader_partids_by_symb,	\%symb_to_resource,\%grader_partids_by_symb,
\%orderedforcode,\%respnumlookup,\%startline,	\%orderedforcode,\%respnumlookup,\%startline,
Line 8997 SCANTRONFORM	Line 9071 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 9010 SCANTRONFORM	Line 9091 SCANTRONFORM

my @mapresources = @resources;	my @mapresources = @resources;
if ($randomorder \|\| $randompick) {	if ($randomorder \|\| $randompick) {
@mapresources =	@mapresources =
&users_order($user,$scancode,$sequence,\@master_seq,\%symb_to_resource,	&users_order($user,$scancode,$sequence,\@master_seq,\%symb_to_resource,
\%orderedforcode);	\%orderedforcode);
}	}
Line 9065 SCANTRONFORM	Line 9146 SCANTRONFORM
}	}

if (($scancode) && ($randomorder \|\| $randompick)) {	if (($scancode) && ($randomorder \|\| $randompick)) {
foreach my $key (keys(%symb_for_examcode)) {	my $parmresult =
my $symb_in_map = $symb_for_examcode{$key};	&Apache::lonparmset::storeparm_by_symb($symb,
if ($symb_in_map ne '') {	'0_examcode',2,$scancode,
my $parmresult =	'string_examcode',$uname,
&Apache::lonparmset::storeparm_by_symb($symb_in_map,	$udom);
'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 9104 SCANTRONFORM	Line 9180 SCANTRONFORM
if (&grade_student_bubbles($r,$uname,$udom,$scan_record,$scancode,	if (&grade_student_bubbles($r,$uname,$udom,$scan_record,$scancode,
\@mapresources,\%partids_by_symb,	\@mapresources,\%partids_by_symb,
$bubbles_per_row,$randomorder,$randompick,	$bubbles_per_row,$randomorder,$randompick,
\%respnumlookup,\%startline)	\%respnumlookup,\%startline)
eq 'ssi_error') {	eq 'ssi_error') {
$ssi_error = 0; # So end of handler error message does not trigger.	$ssi_error = 0; # So end of handler error message does not trigger.
$r->print("</form>");	$r->print("</form>");
Line 9197 sub graders_resources_pass {	Line 9273 sub graders_resources_pass {
=item users_order	=item users_order

Returns array of resources in current map, ordered based on either CODE,	Returns array of resources in current map, ordered based on either CODE,
if this is a CODEd exam, or based on student's identity if this is a	if this is a CODEd exam, or based on student's identity if this is a
"NAMEd" exam.	"NAMEd" exam.

Should be used when randomorder and/or randompick applied when the	Should be used when randomorder and/or randompick applied when the
Line 9224 sub users_order {	Line 9300 sub users_order {
if (ref($actual_seq) eq 'ARRAY') {	if (ref($actual_seq) eq 'ARRAY') {
@mapresources = map { $symb_to_resource->{$_}; } @{$actual_seq};	@mapresources = map { $symb_to_resource->{$_}; } @{$actual_seq};
if (ref($orderedforcode) eq 'HASH') {	if (ref($orderedforcode) eq 'HASH') {
if (@mapresources > 0) {	if (@mapresources > 0) {
$orderedforcode->{$scancode} = \@mapresources;	$orderedforcode->{$scancode} = \@mapresources;
}	}
}	}
Line 9237 sub users_order {	Line 9313 sub users_order {
$master_seq,	$master_seq,
$user,undef,1);	$user,undef,1);
if (ref($actual_seq) eq 'ARRAY') {	if (ref($actual_seq) eq 'ARRAY') {
@mapresources =	@mapresources =
map { $symb_to_resource->{$_}; } @{$actual_seq};	map { $symb_to_resource->{$_}; } @{$actual_seq};
}	}
}	}
Line 9302 sub scantron_upload_scantron_data {	Line 9378 sub scantron_upload_scantron_data {
'domainid',	'domainid',
'coursename',$dom);	'coursename',$dom);
my $syllabuslink = '<a href="javascript:ToSyllabus();">'.&mt('Syllabus').'</a>'.	my $syllabuslink = '<a href="javascript:ToSyllabus();">'.&mt('Syllabus').'</a>'.
('&nbsp'x2).&mt('(shows course personnel)');	('&nbsp'x2).&mt('(shows course personnel)');
my $default_form_data=&defaultFormData($symb);	my $default_form_data=&defaultFormData($symb);
my $nofile_alert = &mt('Please use the browse button to select a file from your local directory.');	my $nofile_alert = &mt('Please use the browse button to select a file from your local directory.');
&js_escape(\$nofile_alert);	&js_escape(\$nofile_alert);
Line 9383 END	Line 9459 END
if (keys(%{$domconfig{'scantron'}{'config'}}) > 1) {	if (keys(%{$domconfig{'scantron'}{'config'}}) > 1) {
if (($domconfig{'scantron'}{'config'}{'dat'}) &&	if (($domconfig{'scantron'}{'config'}{'dat'}) &&
(ref($domconfig{'scantron'}{'config'}{'csv'}) eq 'HASH')) {	(ref($domconfig{'scantron'}{'config'}{'csv'}) eq 'HASH')) {
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'}})) {
my ($onclick,$formatextra,$singleline);	my ($onclick,$formatextra,$singleline);
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 =~ /^\#/) \|\| ($line eq ''));	next if ($line =~ /^#/);
$singleline = $line;	$singleline = $line;
$count ++;	$count ++;
}	}
Line 9457 sub scantron_upload_scantron_data_save {	Line 9533 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);
}	}
return '';	return '';
}	}
my %coursedata=&Apache::lonnet::coursedescription($env{'form.domainid'}.'_'.$env{'form.courseid'});	my %coursedata=&Apache::lonnet::coursedescription($env{'form.domainid'}.'_'.$env{'form.courseid'});
my $uploadedfile;	my $uploadedfile;
$r->print('<p>'.&mt("Uploading file to [_1]",$coursedata{'description'}).'</p>');	$r->print('<p>'.&mt('Uploading file to [_1]','"'.$coursedata{'description'}.'"').'</p>');
if (length($env{'form.upfile'}) < 2) {	if (length($env{'form.upfile'}) < 2) {
$r->print(	$r->print(
&Apache::lonhtmlcommon::confirm_success(	&Apache::lonhtmlcommon::confirm_success(
Line 9506 sub scantron_upload_scantron_data_save {	Line 9584 sub scantron_upload_scantron_data_save {
my $result =	my $result =
&Apache::lonnet::userfileupload('upfile','scantron','scantron',$parser,'','',	&Apache::lonnet::userfileupload('upfile','scantron','scantron',$parser,'','',
$env{'form.courseid'},$env{'form.domainid'});	$env{'form.courseid'},$env{'form.domainid'});
if ($result =~ m{^/uploaded/}) {	if ($result =~ m{^/uploaded/}) {
$r->print(	$r->print(
&Apache::lonhtmlcommon::confirm_success(&mt('Upload successful')).'<br />'.	&Apache::lonhtmlcommon::confirm_success(&mt('Upload successful')).'<br />'.
&mt('Uploaded [_1] bytes of data into location: [_2]',	&mt('Uploaded [_1] bytes of data into location: [_2]',
(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 />'.
&mt('An error ([_1]) occurred when attempting to upload the file: [_2]',	&mt('An error ([_1]) occurred when attempting to upload the file: [_2]',
Line 9532 sub scantron_upload_scantron_data_save {	Line 9619 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 9551 sub validate_uploaded_scantron_file {	Line 9659 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) {
next if (($line =~ /^\#/) \|\| ($line eq ''));	chomp($line);
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 9568 sub validate_uploaded_scantron_file {	Line 9676 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 9575 sub validate_uploaded_scantron_file {	Line 9685 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 9589 sub validate_uploaded_scantron_file {	Line 9716 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 9634 sub validate_uploaded_scantron_file {	Line 9761 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 9663 sub scantron_download_scantron_data {	Line 9956 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 9699 sub checkscantron_results {	Line 10015 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 9710 sub checkscantron_results {	Line 10026 sub checkscantron_results {
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,%orderedforcode);	%grader_randomlists_by_symb,%orderedforcode);
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 9750 sub checkscantron_results {	Line 10055 sub checkscantron_results {
return '';	return '';
}	}

&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,'Processing first student');
'Processing first student');
my $start=&Time::HiRes::time();	my $start=&Time::HiRes::time();
my $i=-1;	my $i=-1;

Line 9761 sub checkscantron_results {	Line 10065 sub checkscantron_results {
my $line=&Apache::grades::scantron_get_line($scanlines,$scan_data,$i);	my $line=&Apache::grades::scantron_get_line($scanlines,$scan_data,$i);
if ($line=~/^[\s\cz]*$/) { next; }	if ($line=~/^[\s\cz]*$/) { next; }
if ($started) {	if ($started) {
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student');
'last student');
}	}
$started=1;	$started=1;
my $scan_record=	my $scan_record=
Line 9874 sub checkscantron_results {	Line 10177 sub checkscantron_results {
}	}
}	}
}	}
$r->print('<p>'.	$r->print(
&mt('Comparison of bubblesheet data (including corrections) with corresponding submission records (most recent submission) for [_1][quant,_2,student][_3] ([quant,_4,bubblesheet line] per student).',	'<p>'
'<b>',	.&mt('Comparison of bubblesheet data (including corrections) with corresponding submission records (most recent submission) for [_1][quant,_2,student][_3] ([quant,_4,bubblesheet line] per student).',
$numstudents,	'<b>',
'</b>',	$numstudents,
$env{'form.scantron_maxbubble'}).	'</b>',
'</p>'	$env{'form.scantron_maxbubble'})
	.'</p>'
);	);
$r->print('<p>'	$r->print('<p>'
.&mt('Exact matches for [_1][quant,_2,student][_3].','<b>',$passed,'</b>')	.&mt('Exact matches for [_1][quant,_2,student][_3].','<b>',$passed,'</b>')
.'<br />'	.'<br />'
.&mt('Discrepancies detected for [_1][quant,_2,student][_3].','<b>',$failed,'</b>')	.&mt('Discrepancies detected for [_1][quant,_2,student][_3].','<b>',$failed,'</b>')
.'</p>');	.'</p>'
	);
if ($passed) {	if ($passed) {
$r->print(&mt('Students with exact correspondence between bubblesheet data and submissions are as follows:').'<br /><br />');	$r->print(&mt('Students with exact correspondence between bubblesheet data and submissions are as follows:').'<br /><br />');
$r->print(&Apache::loncommon::start_data_table()."\n".	$r->print(&Apache::loncommon::start_data_table()."\n".
Line 10051 sub grading_menu {	Line 10356 sub grading_menu {

my %fields = ('symb'=>&Apache::lonenc::check_encrypt($symb),	my %fields = ('symb'=>&Apache::lonenc::check_encrypt($symb),
'command'=>'individual');	'command'=>'individual');

my $url1a = &Apache::lonhtmlcommon::build_url('grades/',\%fields);	my $url1a = &Apache::lonhtmlcommon::build_url('grades/',\%fields);

$fields{'command'}='ungraded';	$fields{'command'}='ungraded';
Line 10065 sub grading_menu {	Line 10370 sub grading_menu {

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

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

Line 10077 sub grading_menu {	Line 10382 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 => $permissions{'either'},	permission => 'F',
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 => $permissions{'either'},	permission => 'F',
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 => $permissions{'either'},	permission => 'F',
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 => $permissions{'either'},	permission => 'F',
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 submitted files',	{ linktext => 'Download submissions',
url => $url1e,	url => $url1e,
permission => $permissions{'either'},	permission => 'F',
icon => 'download_sub.png',	icon => 'download_sub.png',
linktitle => 'Download all files submitted by students.'	linktitle => 'Download all students submissions.'
}]},	}]},
{ categorytitle=>'Automated Grading',	{ categorytitle=>'Automated Grading',
items =>[	items =>[

{ linktext => 'Upload Scores',	{ linktext => 'Upload Scores',
url => $url2,	url => $url2,
permission => $permissions{'mgr'},	permission => 'F',
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 => $permissions{'mgr'},	permission => 'F',
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 => $permissions{'mgr'},	permission => 'F',
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 => $permissions{'either'},	permission => 'F',
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 10189 sub submit_options_table {	Line 10484 sub submit_options_table {
my ($request,$symb) = @_;	my ($request,$symb) = @_;
if (!$symb) {return '';}	if (!$symb) {return '';}
&commonJSfunctions($request);	&commonJSfunctions($request);
	my $is_tool = ($symb =~ /ext\.tool$/);
my $result;	my $result;

$result.='<form action="/adm/grades" method="post" name="gradingMenu">'."\n".	$result.='<form action="/adm/grades" method="post" name="gradingMenu">'."\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";

$result.=&selectfield(1).	$result.=&selectfield(1,$is_tool).
'<input type="hidden" name="command" value="viewgrades" />	'<input type="hidden" name="command" value="viewgrades" />
<div>	<div>
<input type="submit" value="'.&mt('Next').' →" />	<input type="submit" value="'.&mt('Next').' →" />
Line 10226 sub submit_options_download {	Line 10522 sub submit_options_download {
}	}
}	}

	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".
$table."\n".	$table."\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";
$result.='	$result.='
<h2>	<h2>
'.&mt('Select Students for whom to Download Submitted Files').'	'.&mt('Select Students for whom to Download Submissions').'
</h2>'.&selectfield(1).'	</h2>'.&selectfield(1,$is_tool).'
<input type="hidden" name="command" value="downloadfileslink" />	<input type="hidden" name="command" value="downloadfileslink" />
<input type="submit" value="'.&mt('Next').' →" />	<input type="submit" value="'.&mt('Next').' →" />
</div>	</div>
</div>	</div>
Line 10250 sub submit_options {	Line 10547 sub submit_options {
my ($request,$symb) = @_;	my ($request,$symb) = @_;
if (!$symb) {return '';}	if (!$symb) {return '';}

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

$result.='<form action="/adm/grades" method="post" name="gradingMenu">'."\n".	$result.='<form action="/adm/grades" method="post" name="gradingMenu">'."\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";
$result.=&selectfield(1).'	$result.=&selectfield(1,$is_tool).'
<input type="hidden" name="command" value="submission" />	<input type="hidden" name="command" value="submission" />
<input type="submit" value="'.&mt('Next').' →" />	<input type="submit" value="'.&mt('Next').' →" />
</div>	</div>
</div>	</div>
</form>';	</form>';
Line 10265 sub submit_options {	Line 10563 sub submit_options {
}	}

sub selectfield {	sub selectfield {
my ($full)=@_;	my ($full,$is_tool)=@_;
my %options =	my %options;
(&substatus_options,	if ($is_tool) {
'select_form_order' => ['yes','queued','graded','incorrect','all']);	%options =
	(&transtatus_options,
#	'select_form_order' => ['yes','incorrect','all']);
# PrepareClasslist() needs to be called to avoid getting a sections list	} else {
# for a different course from the @Sections global in lonstatistics.pm,	%options =
# populated by an earlier request.	(&substatus_options,
#	'select_form_order' => ['yes','queued','graded','incorrect','all']);
&Apache::lonstatistics::PrepareClasslist();	}

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

<fieldset>	<fieldset>
<legend>	<legend>
'.&mt('Sections').'	'.&mt('Sections').'
</legend>	</legend>
'.&Apache::lonstatistics::SectionSelect('section','multiple',5).'	'.&Apache::lonstatistics::SectionSelect('section','multiple',5).'
</fieldset>	</fieldset>

<fieldset>	<fieldset>
<legend>	<legend>
'.&mt('Groups').'	'.&mt('Groups').'
</legend>	</legend>
'.&Apache::lonstatistics::GroupSelect('group','multiple',5).'	'.&Apache::lonstatistics::GroupSelect('group','multiple',5).'
</fieldset>	</fieldset>

<fieldset>	<fieldset>
<legend>	<legend>
'.&mt('Access Status').'	'.&mt('Access Status').'
Line 10300 sub selectfield {	Line 10597 sub selectfield {
'.&Apache::lonhtmlcommon::StatusOptions(undef,undef,5,undef,'mult').'	'.&Apache::lonhtmlcommon::StatusOptions(undef,undef,5,undef,'mult').'
</fieldset>';	</fieldset>';
if ($full) {	if ($full) {
	my $heading = &mt('Submission Status');
	if ($is_tool) {
	$heading = &mt('Transaction Status');
	}
$result.='	$result.='
<fieldset>	<fieldset>
<legend>	<legend>
'.&mt('Submission Status').'	'.$heading.'
</legend>'.	</legend>'.
&Apache::loncommon::select_form('all','submitonly',\%options).	&Apache::loncommon::select_form('all','submitonly',\%options).
'</fieldset>';	'</fieldset>';
Line 10336 sub reset_perm {	Line 10637 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 10463 sub process_clicker {	Line 10764 sub process_clicker {
my $pcorrect=&mt("Percentage points for correct solution");	my $pcorrect=&mt("Percentage points for correct solution");
my $pincorrect=&mt("Percentage points for incorrect solution");	my $pincorrect=&mt("Percentage points for incorrect solution");
my $selectform=&Apache::loncommon::select_form($env{'form.upfiletype'},'upfiletype',	my $selectform=&Apache::loncommon::select_form($env{'form.upfiletype'},'upfiletype',
{'iclicker' => 'i>clicker',	{'iclicker' => 'i>clicker',
'interwrite' => 'interwrite PRS',	'interwrite' => 'interwrite PRS',
'turning' => 'Turning Technologies'});	'turning' => 'Turning Technologies'});
$symb = &Apache::lonenc::check_encrypt($symb);	$symb = &Apache::lonenc::check_encrypt($symb);
Line 10866 sub turning_eval {	Line 11167 sub turning_eval {
return ($errormsg,$number);	return ($errormsg,$number);
}	}


sub assign_clicker_grades {	sub assign_clicker_grades {
my ($r,$symb) = @_;	my ($r,$symb) = @_;
if (!$symb) {return '';}	if (!$symb) {return '';}
Line 10878 sub assign_clicker_grades {	Line 11180 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().
Line 10937 sub assign_clicker_grades {	Line 11239 sub assign_clicker_grades {
&mt('More than one entry found for [_1]!','<tt>'.$user.'</tt>').	&mt('More than one entry found for [_1]!','<tt>'.$user.'</tt>').
'</span><br />';	'</span><br />';
}	}
$users{$user}=1;	$users{$user}=1;
my @answer=split(/\,/,$env{$key});	my @answer=split(/\,/,$env{$key});
my $sum=0;	my $sum=0;
my $realnumber=$number;	my $realnumber=$number;
Line 11003 sub navmap_errormsg {	Line 11305 sub navmap_errormsg {
}	}

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

# see what command we need to execute	# see what command we need to execute

my @commands=&Apache::loncommon::get_env_multiple('form.command');	my @commands=&Apache::loncommon::get_env_multiple('form.command');
my $command=$commands[0];	my $command=$commands[0];

Line 11081 sub handler {	Line 11384 sub handler {
if (($symb eq '' \|\| $command eq '') && ($env{'request.course.id'})) {	if (($symb eq '' \|\| $command eq '') && ($env{'request.course.id'})) {
#	#
# Not called from a resource, but inside a course	# Not called from a resource, but inside a course
#	#
&startpage($request,undef,[],1,1);	&startpage($request,undef,[],1,1);
&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,$onload);	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) =
Line 11099 sub handler {	Line 11402 sub handler {
} else {	} else {
$divforres = 1;	$divforres = 1;
}	}
my $head_extra = $js;	&startpage($request,$symb,[{href=>"", text=>"Student Submissions"}],undef,undef,$stuvcurrent,$stuvdisp,undef,$js,$onload,$divforres);
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) {	if ($divforres) {
$request->print('<div style="padding:0;clear:both;margin:0;border:0"></div>');	$request->print('<div style="padding:0;clear:both;margin:0;border:0"></div>');
}	}
$request->print($versionform);	$request->print($versionform);
}	}
($env{'form.student'} eq '' ? &listStudents($request,$symb,'',$divforres) : &submission($request,0,0,$symb,$divforres,$command));	($env{'form.student'} eq '' ? &listStudents($request,$symb,'',$divforres) : &submission($request,0,0,$symb,$divforres,$command));
} 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'});
my $head_extra = $js;	&startpage($request,$symb,[{href=>"", text=>"Previous Student Version"}],undef,undef,$stuvcurrent,$stuvdisp,$env{'form.inhibitmenu'},$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);
}	}
$request->print('<br clear="all" />');	$request->print('<br clear="all" />');
$request->print(&show_previous_task_version($request,$symb));	$request->print(&show_previous_task_version($request,$symb));
} elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {	} elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {
&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'},
{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,undef,undef,undef,$csslinks);	{href=>'',text=>'Grade student'}],1,1);
&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'},
{href=>'',text=>'Select student'},	{href=>'',text=>'Select student'},
{href=>'',text=>'Grade student'},	{href=>'',text=>'Grade student'},
{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'}],undef,undef,undef,undef,undef,$csslinks,undef,1);	{href=>'',text=>'Modify grades'}],undef,undef,undef,undef,undef,undef,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);
$request->print(&grading_menu($request,$symb));	$request->print(&grading_menu($request,$symb));
} elsif ($command eq 'individual' && $perm{'vgr'}) {	} elsif ($command eq 'individual' && $perm{'vgr'}) {
&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'}) {
my $js = &part_selector_js();	my $js = &part_selector_js();
my $onload = "toggleParts('gradesub');";	my $onload = "toggleParts('gradesub');";
Line 11180 sub handler {	Line 11459 sub handler {
} elsif ($command eq 'all_for_one' && $perm{'vgr'}) {	} elsif ($command eq 'all_for_one' && $perm{'vgr'}) {
&startpage($request,$symb,[{href=>'',text=>'Grade page/folder for one student'}],1,1);	&startpage($request,$symb,[{href=>'',text=>'Grade page/folder for one student'}],1,1);
$request->print(&submit_options_sequence($request,$symb));	$request->print(&submit_options_sequence($request,$symb));
} elsif ($command eq 'viewgrades' && $perm{'vgr'}) {	} elsif ($command eq 'viewgrades' && $perm{'vgr'}) {
&startpage($request,$symb,[{href=>&href_symb_cmd($symb,"table"), text=>"Grading table"},{href=>'', text=>"Modify grades"}]);	&startpage($request,$symb,[{href=>&href_symb_cmd($symb,"table"), text=>"Grading table"},{href=>'', text=>"Modify grades"}]);
$request->print(&viewgrades($request,$symb));	$request->print(&viewgrades($request,$symb));
} elsif ($command eq 'handgrade' && $perm{'mgr'}) {	} elsif ($command eq 'handgrade' && $perm{'mgr'}) {
&startpage($request,$symb,[{href=>'',text=>'...'},	&startpage($request,$symb,[{href=>'',text=>'...'},
{href=>'',text=>'Store grades'}]);	{href=>'',text=>'Store grades'}]);
$request->print(&processHandGrade($request,$symb));	$request->print(&processHandGrade($request,$symb));
} elsif ($command eq 'editgrades' && $perm{'mgr'}) {	} elsif ($command eq 'editgrades' && $perm{'mgr'}) {
&startpage($request,$symb,[{href=>&href_symb_cmd($symb,"table"), text=>"Grading table"},	&startpage($request,$symb,[{href=>&href_symb_cmd($symb,"table"), text=>"Grading table"},
{href=>&href_symb_cmd($symb,'viewgrades').'&group=all&section=all&Status=Active',	{href=>&href_symb_cmd($symb,'viewgrades').'&group=all&section=all&Status=Active',
text=>"Modify grades"},	text=>"Modify grades"},
{href=>'', text=>"Store grades"}]);	{href=>'', text=>"Store grades"}]);
$request->print(&editgrades($request,$symb));	$request->print(&editgrades($request,$symb));
} elsif ($command eq 'initialverifyreceipt' && $perm{'vgr'}) {	} elsif ($command eq 'initialverifyreceipt' && $perm{'vgr'}) {
&startpage($request,$symb,[{href=>'',text=>'Verify Receipt Number'}]);	&startpage($request,$symb,[{href=>'',text=>'Verify Receipt Number'}]);
$request->print(&initialverifyreceipt($request,$symb));	$request->print(&initialverifyreceipt($request,$symb));
} elsif ($command eq 'verify' && $perm{'vgr'}) {	} elsif ($command eq 'verify' && $perm{'vgr'}) {
&startpage($request,$symb,[{href=>&href_symb_cmd($symb,"initialverifyreceipt"),text=>'Verify Receipt Number'},	&startpage($request,$symb,[{href=>&href_symb_cmd($symb,"initialverifyreceipt"),text=>'Verify Receipt Number'},
{href=>'',text=>'Verification Result'}]);	{href=>'',text=>'Verification Result'}]);
$request->print(&verifyreceipt($request,$symb));	$request->print(&verifyreceipt($request,$symb));
} elsif ($command eq 'processclicker' && $perm{'mgr'}) {	} elsif ($command eq 'processclicker' && $perm{'mgr'}) {
&startpage($request,$symb,[{href=>'', text=>'Process clicker'}]);	&startpage($request,$symb,[{href=>'', text=>'Process clicker'}]);
$request->print(&process_clicker($request,$symb));	$request->print(&process_clicker($request,$symb));
Line 11212 sub handler {	Line 11491 sub handler {
{href=>'', text=>'Process clicker file'},	{href=>'', text=>'Process clicker file'},
{href=>'', text=>'Store grades'}]);	{href=>'', text=>'Store grades'}]);
$request->print(&assign_clicker_grades($request,$symb));	$request->print(&assign_clicker_grades($request,$symb));
} elsif ($command eq 'csvform' && $perm{'mgr'}) {	} elsif ($command eq 'csvform' && $perm{'mgr'}) {
&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);	&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);
$request->print(&upcsvScores_form($request,$symb));	$request->print(&upcsvScores_form($request,$symb));
} elsif ($command eq 'csvupload' && $perm{'mgr'}) {	} elsif ($command eq 'csvupload' && $perm{'mgr'}) {
&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);	&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);
$request->print(&csvupload($request,$symb));	$request->print(&csvupload($request,$symb));
} elsif ($command eq 'csvuploadmap' && $perm{'mgr'} ) {	} elsif ($command eq 'csvuploadmap' && $perm{'mgr'} ) {
&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);	&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);
$request->print(&csvuploadmap($request,$symb));	$request->print(&csvuploadmap($request,$symb));
} elsif ($command eq 'csvuploadoptions' && $perm{'mgr'}) {	} elsif ($command eq 'csvuploadoptions' && $perm{'mgr'}) {
if ($env{'form.associate'} ne 'Reverse Association') {	if ($env{'form.associate'} ne 'Reverse Association') {
&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);	&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);
$request->print(&csvuploadoptions($request,$symb));	$request->print(&csvuploadoptions($request,$symb));
} else {	} else {
if ( $env{'form.upfile_associate'} ne 'reverse' ) {	if ( $env{'form.upfile_associate'} ne 'reverse' ) {
$env{'form.upfile_associate'} = 'reverse';	$env{'form.upfile_associate'} = 'reverse';
} else {	} else {
$env{'form.upfile_associate'} = 'forward';	$env{'form.upfile_associate'} = 'forward';
}	}
&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);	&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);
$request->print(&csvuploadmap($request,$symb));	$request->print(&csvuploadmap($request,$symb));
}	}
} elsif ($command eq 'csvuploadassign' && $perm{'mgr'} ) {	} elsif ($command eq 'csvuploadassign' && $perm{'mgr'} ) {
&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);	&startpage($request,$symb,[{href=>'', text=>'Upload Scores'}],1,1);
$request->print(&csvuploadassign($request,$symb));	$request->print(&csvuploadassign($request,$symb));
} elsif ($command eq 'scantron_selectphase' && $perm{'mgr'}) {	} elsif ($command eq 'scantron_selectphase' && $perm{'mgr'}) {
&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_selectphase($request,undef,$symb));	$request->print(&scantron_selectphase($request,undef,$symb));
} elsif ($command eq 'scantron_warning' && $perm{'mgr'}) {	} elsif ($command eq 'scantron_warning' && $perm{'mgr'}) {
&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_do_warning($request,$symb));	$request->print(&scantron_do_warning($request,$symb));
} elsif ($command eq 'scantron_validate' && $perm{'mgr'}) {	} elsif ($command eq 'scantron_validate' && $perm{'mgr'}) {
&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_validate_file($request,$symb));	$request->print(&scantron_validate_file($request,$symb));
} elsif ($command eq 'scantron_process' && $perm{'mgr'}) {	} elsif ($command eq 'scantron_process' && $perm{'mgr'}) {
&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));
Line 11281 sub handler {	Line 11561 sub handler {
undef,undef,undef,undef,undef,undef,undef,1);	undef,undef,undef,undef,undef,undef,undef,1);
$request->print('<div style="padding:0;clear:both;margin:0;border:0"></div>');	$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'}]);
$request->print('<p class="LC_error">'.&mt('Access Denied ([_1])',$command).'</p>');	$request->print('<p class="LC_error">'.&mt('Access Denied ([_1])',$command).'</p>');
}	}
}	}
if ($ssi_error) {	if ($ssi_error) {
&ssi_print_error($request);	&ssi_print_error($request);
}	}
$request->print(&Apache::loncommon::end_page());	if ($env{'form.inhibitmenu'}) {
	$request->print(&Apache::loncommon::end_page());
	} elsif ($env{'request.course.id'}) {
	&Apache::lonquickgrades::endGradeScreen($request);
	}
&reset_caches();	&reset_caches();
return OK;	return OK;
}	}
Line 11313 described at http://www.lon-capa.org.	Line 11597 described at http://www.lon-capa.org.
=head1 OVERVIEW	=head1 OVERVIEW

Do an ssi with retries:	Do an ssi with retries:
While I'd love to factor out this with the vesrion in lonprintout,	While I'd love to factor out this with the version in lonprintout,
that would either require a data coupling between modules, which I refuse to perpetuate (there's quite enough of that already), or would require the invention of another infrastructure	that would either require a data coupling between modules, which I refuse to perpetuate (there's quite enough of that already), or would require the invention of another infrastructure
I'm not quite ready to invent (e.g. an ssi_with_retry object).	I'm not quite ready to invent (e.g. an ssi_with_retry object).

Line 11360 ssi_with_retries()	Line 11644 ssi_with_retries()

=over	=over

	=head1 Routines to display previous version of a Task for a specific student

	Tasks are graded pass/fail. Students who have yet to pass a particular Task
	can receive another opportunity. Access to tasks is slot-based. If a slot
	requires a proctor to check-in the student, a new version of the Task will
	be created when the student is checked in to the new opportunity.

	If a particular student has tried two or more versions of a particular task,
	the submission screen provides a user with vgr privileges (e.g., a Course
	Coordinator) the ability to display a previous version worked on by the
	student. By default, the current version is displayed. If a previous version
	has been selected for display, submission data are only shown that pertain
	to that particular version, and the interface to submit grades is not shown.

	=over 4

	=item show_previous_task_version()

	Displays a specified version of a student's Task, as the student sees it.

	Inputs: 2
	request - request object
	symb - unique symb for current instance of resource

	Output: None.

	Side Effects: calls &show_problem() to print version of Task, with
	version contained in form item: $env{'form.previousversion'}

	=item choose_task_version_form()

	Displays a web form used to select which version of a student's view of a
	Task should be displayed. Either launches a pop-up window, or replaces
	content in existing pop-up, or replaces page in main window.

	Inputs: 4
	symb - unique symb for current instance of resource
	uname - username of student
	udom - domain of student
	nomenu - 1 if display is in a pop-up window, and hence no menu
	breadcrumbs etc., are displayed

	Output: 4
	current - student's current version
	displayed - student's version being displayed
	result - scalar containing HTML for web form used to switch to
	a different version (or a link to close window, if pop-up).
	js - javascript for processing selection in versions web form

	Side Effects: None.

	=item previous_display_javascript()

	Inputs: 2
	nomenu - 1 if display is in a pop-up window, and hence no menu
	breadcrumbs etc., are displayed.
	current - student's current version number.

	Output: 1
	js - javascript for processing selection in versions web form.

	Side Effects: None.

	=back

	=head1 Routines to process bubblesheet data.

	=over 4

=item scantron_get_correction() :	=item scantron_get_correction() :

Builds the interface screen to interact with the operator to fix a	Builds the interface screen to interact with the operator to fix a
Line 11386 ssi_with_retries()	Line 11739 ssi_with_retries()
- 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 (or a sub-folder) has randomorder set	$randomorder - True if exam folder has randomorder set
$randompick - True if exam folder (or a sub-folder) has randompick set	$randompick - True if exam 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 11396 ssi_with_retries()	Line 11749 ssi_with_retries()
or code-based randompick and/or randomorder.	or code-based randompick and/or randomorder.



=item scantron_get_maxbubble() :	=item scantron_get_maxbubble() :

Arguments:	Arguments:
Line 11455 ssi_with_retries()	Line 11809 ssi_with_retries()
=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() :

Line 11475 ssi_with_retries()	Line 11834 ssi_with_retries()
=item navmap_errormsg() :	=item navmap_errormsg() :

Returns HTML mark-up inside a <div></div> with a link to re-initialize the course.	Returns HTML mark-up inside a <div></div> with a link to re-initialize the course.
Should be called whenever the request to instantiate a navmap object fails.	Should be called whenever the request to instantiate a navmap object fails.

	=back

=back	=back

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

Removed from v.1.596.2.12.2.62
changed lines
	Added in v.1.776