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.425 and 1.471

version 1.425, 2007/07/25 00:11:05	version 1.471, 2007/10/30 00:27:23
Line 35 use Apache::loncommon;	Line 35 use Apache::loncommon;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
use Apache::lonnavmaps;	use Apache::lonnavmaps;
use Apache::lonhomework;	use Apache::lonhomework;
	use Apache::lonpickcode;
use Apache::loncoursedata;	use Apache::loncoursedata;
use Apache::lonmsg();	use Apache::lonmsg();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
Line 45 use LONCAPA;	Line 46 use LONCAPA;

use POSIX qw(floor);	use POSIX qw(floor);

my %oldessays=();
my %perm=();	my %perm=();
	my %bubble_lines_per_response = (); # no. bubble lines for each response.
	# index is "symb.part_id"

	my %first_bubble_line = (); # First bubble line no. for each bubble.

	# Save and restore the bubble lines array to the form env.


	sub save_bubble_lines {
	foreach my $line (keys(%bubble_lines_per_response)) {
	$env{"form.scantron.bubblelines.$line"} = $bubble_lines_per_response{$line};
	$env{"form.scantron.first_bubble_line.$line"} =
	$first_bubble_line{$line};
	}
	}


	sub restore_bubble_lines {
	my $line = 0;
	%bubble_lines_per_response = ();
	while ($env{"form.scantron.bubblelines.$line"}) {
	my $value = $env{"form.scantron.bubblelines.$line"};
	$bubble_lines_per_response{$line} = $value;
	$first_bubble_line{$line} =
	$env{"form.scantron.first_bubble_line.$line"};
	$line++;
	}

	}

	# Given the parsed scanline, get the response for
	# 'answer' number n:

	sub get_response_bubbles {
	my ($parsed_line, $response) = @_;


	my $bubble_line = $first_bubble_line{$response-1} +1;
	my $bubble_lines= $bubble_lines_per_response{$response-1};

	my $selected = "";

	for (my $bline = 0; $bline < $bubble_lines; $bline++) {
	$selected .= $$parsed_line{"scantron.$bubble_line.answer"}.":";
	$bubble_line++;
	}
	return $selected;
	}


# ----- These first few routines are general use routines.----	# ----- These first few routines are general use routines.----

	# Return the number of occurences of a pattern in a string.

	sub occurence_count {
	my ($string, $pattern) = @_;

	my @matches = ($string =~ /$pattern/g);

	return scalar(@matches);
	}


	# Take a string known to have digits and convert all the
	# digits into letters in the range J,A..I.

	sub digits_to_letters {
	my ($input) = @_;

	my @alphabet = ('J', 'A'..'I');

	my @input = split(//, $input);
	my $output ='';
	for (my $i = 0; $i < scalar(@input); $i++) {
	if ($input[$i] =~ /\d/) {
	$output .= $alphabet[$input[$i]];
	} else {
	$output .= $input[$i];
	}
	}
	return $output;
	}

#	#
# --- Retrieve the parts from the metadata file.---	# --- Retrieve the parts from the metadata file.---
sub getpartlist {	sub getpartlist {
my ($symb) = @_;	my ($symb) = @_;
my (undef,undef,$url) = &Apache::lonnet::decode_symb($symb);
my $partorder = &Apache::lonnet::metadata($url, 'partorder');	my $navmap = Apache::lonnavmaps::navmap->new();
my @parts;	my $res = $navmap->getBySymb($symb);
if ($partorder) {	my $partlist = $res->parts();
for my $part (split (/,/,$partorder)) {	my $url = $res->src();
if (!&Apache::loncommon::check_if_partid_hidden($part,$symb)) {	my @metakeys = split(/,/,&Apache::lonnet::metadata($url,'keys'));
push(@parts, $part);
}
}
} else {
my $metadata = &Apache::lonnet::metadata($url, 'packages');
foreach (split(/\,/,$metadata)) {
if ($_ =~ /^part_(.*)$/) {
if (!&Apache::loncommon::check_if_partid_hidden($1,$symb)) {
push(@parts, $1);
}
}
}
}
my @stores;	my @stores;
foreach my $part (@parts) {	foreach my $part (@{ $partlist }) {
my (@metakeys) = split(/,/,&Apache::lonnet::metadata($url,'keys'));
foreach my $key (@metakeys) {	foreach my $key (@metakeys) {
if ($key =~ m/^stores_\Q$part\E_/) { push(@stores,$key); }	if ($key =~ m/^stores_\Q$part\E_/) { push(@stores,$key); }
}	}
Line 195 sub showResourceInfo {	Line 264 sub showResourceInfo {
return $result,$responseType,$hdgrade,$partlist,$handgrade;	return $result,$responseType,$hdgrade,$partlist,$handgrade;
}	}

	sub reset_caches {
	&reset_analyze_cache();
	&reset_perm();
	}

	{
	my %analyze_cache;

sub get_order {	sub reset_analyze_cache {
my ($partid,$respid,$symb,$uname,$udom)=@_;	undef(%analyze_cache);
my (undef,undef,$url)=&Apache::lonnet::decode_symb($symb);	}
$url=&Apache::lonnet::clutter($url);
my $subresult=&Apache::lonnet::ssi($url,	sub get_analyze {
('grade_target' => 'analyze'),	my ($symb,$uname,$udom)=@_;
('grade_domain' => $udom),	my $key = "$symb\0$uname\0$udom";
('grade_symb' => $symb),	return $analyze_cache{$key} if (exists($analyze_cache{$key}));
('grade_courseid' =>
$env{'request.course.id'}),	my (undef,undef,$url)=&Apache::lonnet::decode_symb($symb);
('grade_username' => $uname));	$url=&Apache::lonnet::clutter($url);
(undef,$subresult)=split(/_HASH_REF__/,$subresult,2);	my $subresult=&Apache::lonnet::ssi($url,
my %analyze=&Apache::lonnet::str2hash($subresult);	('grade_target' => 'analyze'),
return ($analyze{"$partid.$respid.shown"});	('grade_domain' => $udom),
	('grade_symb' => $symb),
	('grade_courseid' =>
	$env{'request.course.id'}),
	('grade_username' => $uname));
	(undef,$subresult)=split(/_HASH_REF__/,$subresult,2);
	my %analyze=&Apache::lonnet::str2hash($subresult);
	return $analyze_cache{$key} = \%analyze;
	}

	sub get_order {
	my ($partid,$respid,$symb,$uname,$udom)=@_;
	my $analyze = &get_analyze($symb,$uname,$udom);
	return $analyze->{"$partid.$respid.shown"};
	}

	sub get_radiobutton_correct_foil {
	my ($partid,$respid,$symb,$uname,$udom)=@_;
	my $analyze = &get_analyze($symb,$uname,$udom);
	foreach my $foil (@{&get_order($partid,$respid,$symb,$uname,$udom)}) {
	if ($analyze->{"$partid.$respid.foil.value.$foil"} eq 'true') {
	return $foil;
	}
	}
	}
}	}

#--- Clean response type for display	#--- Clean response type for display
#--- Currently filters option/rank/radiobutton/match/essay/Task	#--- Currently filters option/rank/radiobutton/match/essay/Task
# response types only.	# response types only.
Line 231 sub cleanRecord {	Line 332 sub cleanRecord {
$bottomrow.='<td>'.$grayFont.$foil.'</span> </td>';	$bottomrow.='<td>'.$grayFont.$foil.'</span> </td>';
}	}
return '<blockquote><table border="1">'.	return '<blockquote><table border="1">'.
'<tr valign="top"><td>Answer</td>'.$toprow.'</tr>'.	'<tr valign="top"><td>'.&mt('Answer').'</td>'.$toprow.'</tr>'.
'<tr valign="top"><td>'.$grayFont.'Option ID</span></td>'.	'<tr valign="top"><td>'.$grayFont.&mt('Option ID').'</span></td>'.
$grayFont.$bottomrow.'</tr>'.'</table></blockquote>';	$grayFont.$bottomrow.'</tr>'.'</table></blockquote>';
} elsif ($response eq 'match') {	} elsif ($response eq 'match') {
my %answer=&Apache::lonnet::str2hash($answer);	my %answer=&Apache::lonnet::str2hash($answer);
Line 251 sub cleanRecord {	Line 352 sub cleanRecord {
$bottomrow.='<td>'.$grayFont.$foil.'</span> </td>';	$bottomrow.='<td>'.$grayFont.$foil.'</span> </td>';
}	}
return '<blockquote><table border="1">'.	return '<blockquote><table border="1">'.
'<tr valign="top"><td>Answer</td>'.$toprow.'</tr>'.	'<tr valign="top"><td>'.&mt('Answer').'</td>'.$toprow.'</tr>'.
'<tr valign="top"><td>'.$grayFont.'Item ID</span></td>'.	'<tr valign="top"><td>'.$grayFont.&mt('Item ID').'</span></td>'.
$middlerow.'</tr>'.	$middlerow.'</tr>'.
'<tr valign="top"><td>'.$grayFont.'Option ID</span></td>'.	'<tr valign="top"><td>'.$grayFont.&mt('Option ID').'</span></td>'.
$bottomrow.'</tr>'.'</table></blockquote>';	$bottomrow.'</tr>'.'</table></blockquote>';
} elsif ($response eq 'radiobutton') {	} elsif ($response eq 'radiobutton') {
my %answer=&Apache::lonnet::str2hash($answer);	my %answer=&Apache::lonnet::str2hash($answer);
my ($toprow,$bottomrow);	my ($toprow,$bottomrow);
my $correct=($order->[0])+1;	my $correct =
for (my $i=1;$i<=$#$order;$i++) {	&get_radiobutton_correct_foil($partid,$respid,$symb,$uname,$udom);
my $foil=$order->[$i];	foreach my $foil (@$order) {
if (exists($answer{$foil})) {	if (exists($answer{$foil})) {
if ($i == $correct) {	if ($foil eq $correct) {
$toprow.='<td><b>true</b></td>';	$toprow.='<td><b>'.&mt('true').'</b></td>';
} else {	} else {
$toprow.='<td><i>true</i></td>';	$toprow.='<td><i>'.&mt('true').'</i></td>';
}	}
} else {	} else {
$toprow.='<td>false</td>';	$toprow.='<td>'.&mt('false').'</td>';
}	}
$bottomrow.='<td>'.$grayFont.$foil.'</span> </td>';	$bottomrow.='<td>'.$grayFont.$foil.'</span> </td>';
}	}
return '<blockquote><table border="1">'.	return '<blockquote><table border="1">'.
'<tr valign="top"><td>Answer</td>'.$toprow.'</tr>'.	'<tr valign="top"><td>'.&mt('Answer').'</td>'.$toprow.'</tr>'.
'<tr valign="top"><td>'.$grayFont.'Option ID</span></td>'.	'<tr valign="top"><td>'.$grayFont.&mt('Option ID').'</span></td>'.
$grayFont.$bottomrow.'</tr>'.'</table></blockquote>';	$grayFont.$bottomrow.'</tr>'.'</table></blockquote>';
} elsif ($response eq 'essay') {	} elsif ($response eq 'essay') {
if (! exists ($env{'form.'.$symb})) {	if (! exists ($env{'form.'.$symb})) {
Line 327 sub cleanRecord {	Line 428 sub cleanRecord {
$result.='</ul>';	$result.='</ul>';
return $result;	return $result;
}	}
	} elsif ( $response =~ m/(?:numerical\|formula)/) {
	$answer =
	&Apache::loncommon::format_previous_attempt_value('submission',
	$answer);
}	}
return $answer;	return $answer;
}	}
Line 371 COMMONJSFUNCTIONS	Line 475 COMMONJSFUNCTIONS
#--- Dumps the class list with usernames,list of sections,	#--- Dumps the class list with usernames,list of sections,
#--- section, ids and fullnames for each user.	#--- section, ids and fullnames for each user.
sub getclasslist {	sub getclasslist {
my ($getsec,$filterlist) = @_;	my ($getsec,$filterlist,$getgroup) = @_;
my @getsec;	my @getsec;
	my @getgroup;
	my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));
if (!ref($getsec)) {	if (!ref($getsec)) {
if ($getsec ne '' && $getsec ne 'all') {	if ($getsec ne '' && $getsec ne 'all') {
@getsec=($getsec);	@getsec=($getsec);
Line 381 sub getclasslist {	Line 487 sub getclasslist {
@getsec=@{$getsec};	@getsec=@{$getsec};
}	}
if (grep(/^all$/,@getsec)) { undef(@getsec); }	if (grep(/^all$/,@getsec)) { undef(@getsec); }
	if (!ref($getgroup)) {
	if ($getgroup ne '' && $getgroup ne 'all') {
	@getgroup=($getgroup);
	}
	} else {
	@getgroup=@{$getgroup};
	}
	if (grep(/^all$/,@getgroup)) { undef(@getgroup); }

my $classlist=&Apache::loncoursedata::get_classlist();	my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();
# Bail out if we were unable to get the classlist	# Bail out if we were unable to get the classlist
return if (! defined($classlist));	return if (! defined($classlist));
	&Apache::loncoursedata::get_group_memberships($classlist,$keylist);
#	#
my %sections;	my %sections;
my %fullnames;	my %fullnames;
Line 401 sub getclasslist {	Line 516 sub getclasslist {
$classlist->{$student}->[&Apache::loncoursedata::CL_FULLNAME()];	$classlist->{$student}->[&Apache::loncoursedata::CL_FULLNAME()];
my $status =	my $status =
$classlist->{$student}->[&Apache::loncoursedata::CL_STATUS()];	$classlist->{$student}->[&Apache::loncoursedata::CL_STATUS()];
	my $group =
	$classlist->{$student}->[&Apache::loncoursedata::CL_GROUP()];
# filter students according to status selected	# filter students according to status selected
if ($filterlist && $env{'form.Status'} ne 'Any') {	if ($filterlist && (!($stu_status =~ /Any/))) {
if ($env{'form.Status'} ne $status) {	if (!($stu_status =~ $status)) {
delete ($classlist->{$student});	delete($classlist->{$student});
next;	next;
}	}
}	}
	# filter students according to groups selected
	my @stu_groups = split(/,/,$group);
	if (@getgroup) {
	my $exclude = 1;
	foreach my $grp (@getgroup) {
	foreach my $stu_group (@stu_groups) {
	if ($stu_group eq $grp) {
	$exclude = 0;
	}
	}
	if (($grp eq 'none') && !$group) {
	$exclude = 0;
	}
	}
	if ($exclude) {
	delete($classlist->{$student});
	}
	}
$section = ($section ne '' ? $section : 'none');	$section = ($section ne '' ? $section : 'none');
if (&canview($section)) {	if (&canview($section)) {
if (!@getsec \|\| grep(/^\Q$section\E$/,@getsec)) {	if (!@getsec \|\| grep(/^\Q$section\E$/,@getsec)) {
$sections{$section}++;	$sections{$section}++;
$fullnames{$student}=$fullname;	if ($classlist->{$student}) {
	$fullnames{$student}=$fullname;
	}
} else {	} else {
delete($classlist->{$student});	delete($classlist->{$student});
}	}
Line 485 sub student_gradeStatus {	Line 622 sub student_gradeStatus {
# Shows a student's view of problem and submission	# Shows a student's view of problem and submission
sub jscriptNform {	sub jscriptNform {
my ($symb) = @_;	my ($symb) = @_;
	my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));
my $jscript='<script type="text/javascript" language="javascript">'."\n".	my $jscript='<script type="text/javascript" language="javascript">'."\n".
' function viewOneStudent(user,domain) {'."\n".	' function viewOneStudent(user,domain) {'."\n".
' document.onestudent.student.value = user;'."\n".	' document.onestudent.student.value = user;'."\n".
Line 496 sub jscriptNform {	Line 634 sub jscriptNform {
'<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="saveState" value="'.$env{'form.saveState'}.'" />'."\n".	'<input type="hidden" name="saveState" value="'.$env{'form.saveState'}.'" />'."\n".
'<input type="hidden" name="probTitle" value="'.$env{'form.probTitle'}.'" />'."\n".	'<input type="hidden" name="probTitle" value="'.$env{'form.probTitle'}.'" />'."\n".
'<input type="hidden" name="Status" value="'.$env{'form.Status'}.'" />'."\n".	'<input type="hidden" name="Status" value="'.$stu_status.'" />'."\n".
'<input type="hidden" name="command" value="submission" />'."\n".	'<input type="hidden" name="command" value="submission" />'."\n".
'<input type="hidden" name="student" value="" />'."\n".	'<input type="hidden" name="student" value="" />'."\n".
'<input type="hidden" name="userdom" value="" />'."\n".	'<input type="hidden" name="userdom" value="" />'."\n".
Line 504 sub jscriptNform {	Line 642 sub jscriptNform {
return $jscript;	return $jscript;
}	}



# Given the score (as a number [0-1] and the weight) what is the final	# Given the score (as a number [0-1] and the weight) what is the final
# point value? This function will round to the nearest tenth, third,	# point value? This function will round to the nearest tenth, third,
# or quarter if one of those is within the tolerance of .00001.	# or quarter if one of those is within the tolerance of .00001.
Line 538 sub compute_points {	Line 678 sub compute_points {
#	#

sub most_similar {	sub most_similar {
my ($uname,$udom,$uessay)=@_;	my ($uname,$udom,$uessay,$old_essays)=@_;

# ignore spaces and punctuation	# ignore spaces and punctuation

Line 555 sub most_similar {	Line 695 sub most_similar {
my $scrsid='';	my $scrsid='';
my $sessay='';	my $sessay='';
# go through all essays ...	# go through all essays ...
foreach my $tkey (keys %oldessays) {	foreach my $tkey (keys(%$old_essays)) {
my ($tname,$tdom,$tcrsid)=split(/\./,$tkey);	my ($tname,$tdom,$tcrsid)=map {&unescape($_)} (split(/\./,$tkey));
# ... except the same student	# ... except the same student
if (($tname ne $uname) \|\| ($tdom ne $udom)) {	next if (($tname eq $uname) && ($tdom eq $udom));
my $tessay=$oldessays{$tkey};	my $tessay=$old_essays->{$tkey};
$tessay=~s/\W+/ /gs;	$tessay=~s/\W+/ /gs;
# String similarity gives up if not even limit	# String similarity gives up if not even limit
my $tsimilar=&String::Similarity::similarity($uessay,$tessay,$limit);	my $tsimilar=&String::Similarity::similarity($uessay,$tessay,$limit);
# Found one	# Found one
if ($tsimilar>$limit) {	if ($tsimilar>$limit) {
$limit=$tsimilar;	$limit=$tsimilar;
$sname=$tname;	$sname=$tname;
$sdom=$tdom;	$sdom=$tdom;
$scrsid=$tcrsid;	$scrsid=$tcrsid;
$sessay=$oldessays{$tkey};	$sessay=$old_essays->{$tkey};
}	}
}
}	}
if ($limit>0.6) {	if ($limit>0.6) {
return ($sname,$sdom,$scrsid,$sessay,$limit);	return ($sname,$sdom,$scrsid,$sessay,$limit);
Line 661 sub listStudents {	Line 800 sub listStudents {
my $cdom = $env{"course.$env{'request.course.id'}.domain"};	my $cdom = $env{"course.$env{'request.course.id'}.domain"};
my $cnum = $env{"course.$env{'request.course.id'}.num"};	my $cnum = $env{"course.$env{'request.course.id'}.num"};
my $getsec = $env{'form.section'} eq '' ? 'all' : $env{'form.section'};	my $getsec = $env{'form.section'} eq '' ? 'all' : $env{'form.section'};
	my $getgroup = $env{'form.group'} eq '' ? 'all' : $env{'form.group'};
my $submitonly= $env{'form.submitonly'} eq '' ? 'all' : $env{'form.submitonly'};	my $submitonly= $env{'form.submitonly'} eq '' ? 'all' : $env{'form.submitonly'};

my $viewgrade = $env{'form.showgrading'} eq 'yes' ? 'View/Grade/Regrade' : 'View';	my $viewgrade = $env{'form.showgrading'} eq 'yes' ? 'View/Grade/Regrade' : 'View';
$env{'form.probTitle'} = $env{'form.probTitle'} eq '' ?	$env{'form.probTitle'} = $env{'form.probTitle'} eq '' ?
&Apache::lonnet::gettitle($symb) : $env{'form.probTitle'};	&Apache::lonnet::gettitle($symb) : $env{'form.probTitle'};
Line 722 LISTJAVASCRIPT	Line 861 LISTJAVASCRIPT
if ($env{'form.handgrade'} eq 'yes' && scalar(@$partlist) > 1) {	if ($env{'form.handgrade'} eq 'yes' && scalar(@$partlist) > 1) {
$gradeTable.='<label><input type="radio" name="lastSub" value="hdgrade" '.$checkhdgrade.' /> essay part only </label>'."\n";	$gradeTable.='<label><input type="radio" name="lastSub" value="hdgrade" '.$checkhdgrade.' /> essay part only </label>'."\n";
}	}
	my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));
my $saveStatus = $env{'form.Status'} eq '' ? 'Active' : $env{'form.Status'};	my $saveStatus = $stu_status eq '' ? 'Active' : $stu_status;
$env{'form.Status'} = $saveStatus;	$env{'form.Status'} = $saveStatus;

$gradeTable.='<label><input type="radio" name="lastSub" value="lastonly" '.$checklastsub.' /> last submission only </label>'."\n".	$gradeTable.='<label><input type="radio" name="lastSub" value="lastonly" '.$checklastsub.' /> last submission only </label>'."\n".
'<label><input type="radio" name="lastSub" value="last" /> last submission & parts info </label>'."\n".	'<label><input type="radio" name="lastSub" value="last" /> last submission & parts info </label>'."\n".
'<label><input type="radio" name="lastSub" value="datesub" /> by dates and submissions </label>'."\n".	'<label><input type="radio" name="lastSub" value="datesub" /> by dates and submissions </label>'."\n".
Line 736 LISTJAVASCRIPT	Line 874 LISTJAVASCRIPT
'<option value=".25">Quarter Points</option>'.	'<option value=".25">Quarter Points</option>'.
'<option value=".1">Tenths of a Point</option>'.	'<option value=".1">Tenths of a Point</option>'.
'</select>'.	'</select>'.
	&build_section_inputs().
'<input type="hidden" name="section" value="'.$getsec.'" />'."\n".
'<input type="hidden" name="submitonly" value="'.$submitonly.'" />'."\n".	'<input type="hidden" name="submitonly" value="'.$submitonly.'" />'."\n".
'<input type="hidden" name="handgrade" value="'.$env{'form.handgrade'}.'" /><br />'."\n".	'<input type="hidden" name="handgrade" value="'.$env{'form.handgrade'}.'" /><br />'."\n".
'<input type="hidden" name="showgrading" value="'.$env{'form.showgrading'}.'" /><br />'."\n".	'<input type="hidden" name="showgrading" value="'.$env{'form.showgrading'}.'" /><br />'."\n".
Line 747 LISTJAVASCRIPT	Line 884 LISTJAVASCRIPT
'<input type="hidden" name="saveStatusOld" value="'.$saveStatus.'" />'."\n";	'<input type="hidden" name="saveStatusOld" value="'.$saveStatus.'" />'."\n";

if (exists($env{'form.gradingMenu'}) && exists($env{'form.Status'})) {	if (exists($env{'form.gradingMenu'}) && 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.='<b>Student Status:</b> '.	$gradeTable.='<b>Student Status:</b> '.
&Apache::lonhtmlcommon::StatusOptions($saveStatus,undef,1,'javascript:reLoadList(this.form);').'<br />';	&Apache::lonhtmlcommon::StatusOptions($saveStatus,undef,1,'javascript:reLoadList(this.form);').'<br />';
Line 764 LISTJAVASCRIPT	Line 901 LISTJAVASCRIPT
'value="Next->" /> <br />'."\n";	'value="Next->" /> <br />'."\n";
$gradeTable.=&check_buttons();	$gradeTable.=&check_buttons();
$gradeTable.='<label><input type="checkbox" name="checkPlag" checked="checked" />Check For Plagiarism</label>';	$gradeTable.='<label><input type="checkbox" name="checkPlag" checked="checked" />Check For Plagiarism</label>';
my ($classlist, undef, $fullname) = &getclasslist($getsec,'1');	my ($classlist, undef, $fullname) = &getclasslist($getsec,'1',$getgroup);
$gradeTable.='<table border="0"><tr><td bgcolor="#777777">'.	$gradeTable.='<table border="0"><tr><td bgcolor="#777777">'.
'<table border="0"><tr bgcolor="#e6ffff">';	'<table border="0"><tr bgcolor="#e6ffff">';
my $loop = 0;	my $loop = 0;
Line 839 LISTJAVASCRIPT	Line 976 LISTJAVASCRIPT

$ctr++;	$ctr++;
my $section = $classlist->{$student}->[&Apache::loncoursedata::CL_SECTION()];	my $section = $classlist->{$student}->[&Apache::loncoursedata::CL_SECTION()];
	my $group = $classlist->{$student}->[&Apache::loncoursedata::CL_GROUP()];
if ( $perm{'vgr'} eq 'F' ) {	if ( $perm{'vgr'} eq 'F' ) {
$gradeTable.='<tr bgcolor="#ffffe6">' if ($ctr%2 ==1);	$gradeTable.='<tr bgcolor="#ffffe6">' if ($ctr%2 ==1);
$gradeTable.='<td align="right">'.$ctr.' </td>'.	$gradeTable.='<td align="right">'.$ctr.' </td>'.
Line 847 LISTJAVASCRIPT	Line 984 LISTJAVASCRIPT
$student.':'.$$fullname{$student}.':::SECTION'.$section.	$student.':'.$$fullname{$student}.':::SECTION'.$section.
') " />  </label></td>'."\n".'<td>'.	') " />  </label></td>'."\n".'<td>'.
&nameUserString(undef,$$fullname{$student},$uname,$udom).	&nameUserString(undef,$$fullname{$student},$uname,$udom).
' '.$section.'</td>'."\n";	' '.$section.'/'.$group.'</td>'."\n";

if ($env{'form.showgrading'} eq 'yes' && $submitonly ne 'all') {	if ($env{'form.showgrading'} eq 'yes' && $submitonly ne 'all') {
foreach (sort keys(%status)) {	foreach (sort keys(%status)) {
Line 1343 INNERJS	Line 1480 INNERJS

pDoc.write("<form action=\\"inactive\\" name=\\"msgcenter\\">");	pDoc.write("<form action=\\"inactive\\" name=\\"msgcenter\\">");
pDoc.write("<input value=\\""+usrctr+"\\" name=\\"usrctr\\" type=\\"hidden\\">");	pDoc.write("<input value=\\""+usrctr+"\\" name=\\"usrctr\\" type=\\"hidden\\">");
pDoc.write("<h3><span class=\\"LC_info\\"> Compose Message for \"+fullname+\"</span></h3><br /><br />");	pDoc.write("<h3><span class=\\"LC_info\\"> Compose Message for \"+fullname+\"<\\/span><\\/h3><br /><br />");

pDoc.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">");	pDoc.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">");
pDoc.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">");	pDoc.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">");
pDoc.write("<td><b>Type</b></td><td><b>Include</b></td><td><b>Message</td></tr>");	pDoc.write("<td><b>Type<\\/b><\\/td><td><b>Include<\\/b><\\/td><td><b>Message<\\/td><\\/tr>");
}	}
function displaySubject(msg,shwsel) {	function displaySubject(msg,shwsel) {
pDoc = pWin.document;	pDoc = pWin.document;
pDoc.write("<tr bgcolor=\\"#ffffdd\\">");	pDoc.write("<tr bgcolor=\\"#ffffdd\\">");
pDoc.write("<td>Subject</td>");	pDoc.write("<td>Subject<\\/td>");
pDoc.write("<td align=\\"center\\"><input name=\\"subchk\\" type=\\"checkbox\\"" +shwsel+"></td>");	pDoc.write("<td align=\\"center\\"><input name=\\"subchk\\" type=\\"checkbox\\"" +shwsel+"><\\/td>");
pDoc.write("<td><input name=\\"msgsub\\" type=\\"text\\" value=\\""+msg+"\\"size=\\"60\\" maxlength=\\"80\\"></td></tr>");	pDoc.write("<td><input name=\\"msgsub\\" type=\\"text\\" value=\\""+msg+"\\"size=\\"60\\" maxlength=\\"80\\"><\\/td><\\/tr>");
}	}

function displaySavedMsg(ctr,msg,shwsel) {	function displaySavedMsg(ctr,msg,shwsel) {
pDoc = pWin.document;	pDoc = pWin.document;
pDoc.write("<tr bgcolor=\\"#ffffdd\\">");	pDoc.write("<tr bgcolor=\\"#ffffdd\\">");
pDoc.write("<td align=\\"center\\">"+ctr+"</td>");	pDoc.write("<td align=\\"center\\">"+ctr+"<\\/td>");
pDoc.write("<td align=\\"center\\"><input name=\\"msgn"+ctr+"\\" type=\\"checkbox\\"" +shwsel+"></td>");	pDoc.write("<td align=\\"center\\"><input name=\\"msgn"+ctr+"\\" type=\\"checkbox\\"" +shwsel+"><\\/td>");
pDoc.write("<td><textarea name=\\"msg"+ctr+"\\" cols=\\"60\\" rows=\\"3\\">"+msg+"</textarea></td></tr>");	pDoc.write("<td><textarea name=\\"msg"+ctr+"\\" cols=\\"60\\" rows=\\"3\\">"+msg+"<\\/textarea><\\/td><\\/tr>");
}	}

function newMsg(newmsg,shwsel) {	function newMsg(newmsg,shwsel) {
pDoc = pWin.document;	pDoc = pWin.document;
pDoc.write("<tr bgcolor=\\"#ffffdd\\">");	pDoc.write("<tr bgcolor=\\"#ffffdd\\">");
pDoc.write("<td align=\\"center\\">New</td>");	pDoc.write("<td align=\\"center\\">New<\\/td>");
pDoc.write("<td align=\\"center\\"><input name=\\"newmsgchk\\" type=\\"checkbox\\"" +shwsel+"></td>");	pDoc.write("<td align=\\"center\\"><input name=\\"newmsgchk\\" type=\\"checkbox\\"" +shwsel+"><\\/td>");
pDoc.write("<td><textarea name=\\"newmsg\\" cols=\\"60\\" rows=\\"3\\" onchange=\\"javascript:this.form.newmsgchk.checked=true\\" >"+newmsg+"</textarea></td></tr>");	pDoc.write("<td><textarea name=\\"newmsg\\" cols=\\"60\\" rows=\\"3\\" onchange=\\"javascript:this.form.newmsgchk.checked=true\\" >"+newmsg+"<\\/textarea><\\/td><\\/tr>");
}	}

function msgTail() {	function msgTail() {
pDoc = pWin.document;	pDoc = pWin.document;
pDoc.write("</table>");	pDoc.write("<\\/table>");
pDoc.write("</td></tr></table> ");	pDoc.write("<\\/td><\\/tr><\\/table> ");
pDoc.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:checkInput()\\">  ");	pDoc.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:checkInput()\\">  ");
pDoc.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br /><br />");	pDoc.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br /><br />");
pDoc.write("</form>");	pDoc.write("<\\/form>");
pDoc.write('$end_page_msg_central');	pDoc.write('$end_page_msg_central');
pDoc.close();	pDoc.close();
}	}
Line 1428 INNERJS	Line 1565 INNERJS
hDoc.$docopen;	hDoc.$docopen;
hDoc.write('$start_page_highlight_central');	hDoc.write('$start_page_highlight_central');
hDoc.write("<form action=\\"inactive\\" name=\\"hlCenter\\">");	hDoc.write("<form action=\\"inactive\\" name=\\"hlCenter\\">");
hDoc.write("<h3><span class=\\"LC_info\\"> Keyword Highlight Options</span></h3><br /><br />");	hDoc.write("<h3><span class=\\"LC_info\\"> Keyword Highlight Options<\\/span><\\/h3><br /><br />");

hDoc.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">");	hDoc.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">");
hDoc.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">");	hDoc.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">");
hDoc.write("<td><b>Text Color</b></td><td><b>Font Size</b></td><td><b>Font Style</td></tr>");	hDoc.write("<td><b>Text Color<\\/b><\\/td><td><b>Font Size<\\/b><\\/td><td><b>Font Style<\\/td><\\/tr>");
}	}

function highlightbody(clrval,clrtxt,clrsel,szval,sztxt,szsel,syval,sytxt,sysel) {	function highlightbody(clrval,clrtxt,clrsel,szval,sztxt,szsel,syval,sytxt,sysel) {
var hDoc = hwdWin.document;	var hDoc = hwdWin.document;
hDoc.write("<tr bgcolor=\\"#ffffdd\\">");	hDoc.write("<tr bgcolor=\\"#ffffdd\\">");
hDoc.write("<td align=\\"left\\">");	hDoc.write("<td align=\\"left\\">");
hDoc.write("<input name=\\"kwdclr\\" type=\\"radio\\" value=\\""+clrval+"\\" "+clrsel+"> "+clrtxt+"</td>");	hDoc.write("<input name=\\"kwdclr\\" type=\\"radio\\" value=\\""+clrval+"\\" "+clrsel+"> "+clrtxt+"<\\/td>");
hDoc.write("<td align=\\"left\\">");	hDoc.write("<td align=\\"left\\">");
hDoc.write("<input name=\\"kwdsize\\" type=\\"radio\\" value=\\""+szval+"\\" "+szsel+"> "+sztxt+"</td>");	hDoc.write("<input name=\\"kwdsize\\" type=\\"radio\\" value=\\""+szval+"\\" "+szsel+"> "+sztxt+"<\\/td>");
hDoc.write("<td align=\\"left\\">");	hDoc.write("<td align=\\"left\\">");
hDoc.write("<input name=\\"kwdstyle\\" type=\\"radio\\" value=\\""+syval+"\\" "+sysel+"> "+sytxt+"</td>");	hDoc.write("<input name=\\"kwdstyle\\" type=\\"radio\\" value=\\""+syval+"\\" "+sysel+"> "+sytxt+"<\\/td>");
hDoc.write("</tr>");	hDoc.write("<\\/tr>");
}	}

function highlightend() {	function highlightend() {
var hDoc = hwdWin.document;	var hDoc = hwdWin.document;
hDoc.write("</table>");	hDoc.write("<\\/table>");
hDoc.write("</td></tr></table> ");	hDoc.write("<\\/td><\\/tr><\\/table> ");
hDoc.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:updateChoice(1)\\">  ");	hDoc.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:updateChoice(1)\\">  ");
hDoc.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br /><br />");	hDoc.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br /><br />");
hDoc.write("</form>");	hDoc.write("<\\/form>");
hDoc.write('$end_page_highlight_central');	hDoc.write('$end_page_highlight_central');
hDoc.close();	hDoc.close();
}	}
Line 1478 sub gradeBox {	Line 1615 sub gradeBox {
'" src="'.$request->dir_config('lonIconsURL').	'" src="'.$request->dir_config('lonIconsURL').
'/check.gif" height="16" border="0" />';	'/check.gif" height="16" border="0" />';
my $wgt = &Apache::lonnet::EXT('resource.'.$partid.'.weight',$symb,$udom,$uname);	my $wgt = &Apache::lonnet::EXT('resource.'.$partid.'.weight',$symb,$udom,$uname);
my $wgtmsg = ($wgt > 0 ? '(problem weight)' :	my $wgtmsg = ($wgt > 0) ? &mt('(problem weight)')
'<span class="LC_info">problem weight assigned by computer</span>');	: '<span class="LC_info">'.&mt('problem weight assigned by computer').'</span>';
$wgt = ($wgt > 0 ? $wgt : '1');	$wgt = ($wgt > 0 ? $wgt : '1');
my $score = ($$record{'resource.'.$partid.'.awarded'} eq '' ?	my $score = ($$record{'resource.'.$partid.'.awarded'} eq '' ?
'' : &compute_points($$record{'resource.'.$partid.'.awarded'},$wgt));	'' : &compute_points($$record{'resource.'.$partid.'.awarded'},$wgt));
my $result='<input type="hidden" name="WGT'.$counter.'_'.$partid.'" value="'.$wgt.'" />'."\n";	my $result='<input type="hidden" name="WGT'.$counter.'_'.$partid.'" value="'.$wgt.'" />'."\n";
my $display_part=&get_display_part($partid,$symb);	my $display_part= &get_display_part($partid,$symb);
my %last_resets = &get_last_resets($symb,$env{'request.course.id'},	my %last_resets = &get_last_resets($symb,$env{'request.course.id'},
[$partid]);	[$partid]);
my $aggtries = $$record{'resource.'.$partid.'.tries'};	my $aggtries = $$record{'resource.'.$partid.'.tries'};
Line 1566 sub handback_box {	Line 1703 sub handback_box {
'<span class="LC_filename">'.$file_disp.'</span>');	'<span class="LC_filename">'.$file_disp.'</span>');
$result.='<input type="file" name="'.$prefix.'returndoc'.$file_counter.'" />'."\n";	$result.='<input type="file" name="'.$prefix.'returndoc'.$file_counter.'" />'."\n";
$result.='<input type="hidden" name="'.$prefix.'origdoc'.$file_counter.'" value="'.$file.'" /><br />';	$result.='<input type="hidden" name="'.$prefix.'origdoc'.$file_counter.'" value="'.$file.'" /><br />';
$result.='(File will be uploaded when you click on Save & Next below.)<br />';	$result.='(File will be uploaded when you click on Save & Next below.)<br />';
$file_counter++;	$file_counter++;
}	}
}	}
Line 1602 sub show_problem {	Line 1739 sub show_problem {
$companswer=~s\|</form>\|\|g;	$companswer=~s\|</form>\|\|g;
$companswer=~s\|name="submit"\|name="would_have_been_submit"\|g;	$companswer=~s\|name="submit"\|name="would_have_been_submit"\|g;
}	}
my $result.='<table border="0" width="100%"><tr><td bgcolor="#777777">';	$rendered=
$result.='<table border="0" width="100%">';	'<div class="LC_grade_show_problem_header">'.
if ($viewon) {	&mt('View of the problem').
$result.='<tr><td bgcolor="#e6ffff"><b> ';	'</div><div class="LC_grade_show_problem_problem">'.
if ($mode eq 'both' or $mode eq 'text') {	$rendered.
$result.='View of the problem - ';	'</div>';
} else {	$companswer=
$result.='Correct answer: ';	'<div class="LC_grade_show_problem_header">'.
}	&mt('Correct answer').
$result.=$env{'form.fullname'}.'</b></td></tr>';	'</div><div class="LC_grade_show_problem_problem">'.
}	$companswer.
	'</div>';
	my $result;
if ($mode eq 'both') {	if ($mode eq 'both') {
$result.='<tr><td bgcolor="#ffffff">'.$rendered.'<br />';	$result=$rendered.$companswer;
$result.='<b>Correct answer:</b><br />'.$companswer;
} elsif ($mode eq 'text') {	} elsif ($mode eq 'text') {
$result.='<tr><td bgcolor="#ffffff">'.$rendered;	$result=$rendered;
} elsif ($mode eq 'answer') {	} elsif ($mode eq 'answer') {
$result.='<tr><td bgcolor="#ffffff">'.$companswer;	$result=$companswer;
}	}
$result.='</td></tr></table>';	$result='<div class="LC_grade_show_problem">'.$result.'</div>';
$result.='</td></tr></table><br />';
return $result;	return $result;
}	}

Line 1663 sub download_all_link {	Line 1800 sub download_all_link {
return	return
}	}

	sub build_section_inputs {
	my $section_inputs;
	if ($env{'form.section'} eq '') {
	$section_inputs .= '<input type="hidden" name="section" value="all" />'."\n";
	} else {
	my @sections = &Apache::loncommon::get_env_multiple('form.section');
	foreach my $section (@sections) {
	$section_inputs .= '<input type="hidden" name="section" value="'.$section.'" />'."\n";
	}
	}
	return $section_inputs;
	}

# --------------------------- show submissions of a student, option to grade	# --------------------------- show submissions of a student, option to grade
sub submission {	sub submission {
my ($request,$counter,$total) = @_;	my ($request,$counter,$total) = @_;

my ($uname,$udom) = ($env{'form.student'},$env{'form.userdom'});	my ($uname,$udom) = ($env{'form.student'},$env{'form.userdom'});
$udom = ($udom eq '' ? $env{'user.domain'} : $udom); #has form.userdom changed for a student?	$udom = ($udom eq '' ? $env{'user.domain'} : $udom); #has form.userdom changed for a student?
my $usec = &Apache::lonnet::getsection($udom,$uname,$env{'request.course.id'});	my $usec = &Apache::lonnet::getsection($udom,$uname,$env{'request.course.id'});
$env{'form.fullname'} = &Apache::loncommon::plainname($uname,$udom,'lastname') if $env{'form.fullname'} eq '';	$env{'form.fullname'} = &Apache::loncommon::plainname($uname,$udom,'lastname') if $env{'form.fullname'} eq '';

my $symb = &get_symb($request);	my $symb = &get_symb($request);
if ($symb eq '') { $request->print("Unable to handle ambiguous references:."); return ''; }	if ($symb eq '') { $request->print("Unable to handle ambiguous references:."); return ''; }

Line 1691 sub submission {	Line 1839 sub submission {
'" src="'.$request->dir_config('lonIconsURL').	'" src="'.$request->dir_config('lonIconsURL').
'/check.gif" height="16" border="0" />';	'/check.gif" height="16" border="0" />';

	my %old_essays;
# header info	# header info
if ($counter == 0) {	if ($counter == 0) {
&sub_page_js($request);	&sub_page_js($request);
Line 1703 sub submission {	Line 1852 sub submission {
$request->print('<h3> <span class="LC_info">Submission Record</span></h3>'."\n".	$request->print('<h3> <span class="LC_info">Submission Record</span></h3>'."\n".
'<h4> <b>Resource: </b>'.$env{'form.probTitle'}.'</h4>'."\n");	'<h4> <b>Resource: </b>'.$env{'form.probTitle'}.'</h4>'."\n");

if ($env{'form.handgrade'} eq 'no') {
my $checkMark='<br /><br /> <b>Note:</b> Part(s) graded correct by the computer is marked with a '.
$checkIcon.' symbol.'."\n";
$request->print($checkMark);
}

# option to display problem, only once else it cause problems	# option to display problem, only once else it cause problems
# with the form later since the problem has a form.	# with the form later since the problem has a form.
if ($env{'form.vProb'} eq 'yes' or $env{'form.vAns'} eq 'yes') {	if ($env{'form.vProb'} eq 'yes' or $env{'form.vAns'} eq 'yes') {
Line 1723 sub submission {	Line 1866 sub submission {
&Apache::lonxml::clear_problem_counter();	&Apache::lonxml::clear_problem_counter();
$request->print(&show_problem($request,$symb,$uname,$udom,0,1,$mode));	$request->print(&show_problem($request,$symb,$uname,$udom,0,1,$mode));
}	}

# kwclr is the only variable that is guaranteed to be non blank	# kwclr is the only variable that is guaranteed to be non blank
# if this subroutine has been called once.	# if this subroutine has been called once.
my %keyhash = ();	my %keyhash = ();
Line 1742 sub submission {	Line 1885 sub submission {
$env{'form.savemsgN'} = $keyhash{$symb.'_savemsgN'} ne '' ? $keyhash{$symb.'_savemsgN'} : '0';	$env{'form.savemsgN'} = $keyhash{$symb.'_savemsgN'} ne '' ? $keyhash{$symb.'_savemsgN'} : '0';
}	}
my $overRideScore = $env{'form.overRideScore'} eq '' ? 'no' : $env{'form.overRideScore'};	my $overRideScore = $env{'form.overRideScore'} eq '' ? 'no' : $env{'form.overRideScore'};
	my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));
$request->print('<form action="/adm/grades" method="post" name="SCORE" enctype="multipart/form-data">'."\n".	$request->print('<form action="/adm/grades" method="post" name="SCORE" enctype="multipart/form-data">'."\n".
'<input type="hidden" name="command" value="handgrade" />'."\n".	'<input type="hidden" name="command" value="handgrade" />'."\n".
'<input type="hidden" name="saveState" value="'.$env{'form.saveState'}.'" />'."\n".	'<input type="hidden" name="saveState" value="'.$env{'form.saveState'}.'" />'."\n".
'<input type="hidden" name="Status" value="'.$env{'form.Status'}.'" />'."\n".	'<input type="hidden" name="Status" value="'.$stu_status.'" />'."\n".
'<input type="hidden" name="overRideScore" value="'.$overRideScore.'" />'."\n".	'<input type="hidden" name="overRideScore" value="'.$overRideScore.'" />'."\n".
'<input type="hidden" name="probTitle" value="'.$env{'form.probTitle'}.'" />'."\n".	'<input type="hidden" name="probTitle" value="'.$env{'form.probTitle'}.'" />'."\n".
'<input type="hidden" name="refresh" value="off" />'."\n".	'<input type="hidden" name="refresh" value="off" />'."\n".
Line 1757 sub submission {	Line 1900 sub submission {
'<input type="hidden" name="vProb" value="'.$env{'form.vProb'}.'" />'."\n".	'<input type="hidden" name="vProb" value="'.$env{'form.vProb'}.'" />'."\n".
'<input type="hidden" name="vAns" value="'.$env{'form.vAns'}.'" />'."\n".	'<input type="hidden" name="vAns" value="'.$env{'form.vAns'}.'" />'."\n".
'<input type="hidden" name="lastSub" value="'.$env{'form.lastSub'}.'" />'."\n".	'<input type="hidden" name="lastSub" value="'.$env{'form.lastSub'}.'" />'."\n".
'<input type="hidden" name="section" value="'.$env{'form.section'}.'" />'."\n".	&build_section_inputs().
'<input type="hidden" name="submitonly" value="'.$env{'form.submitonly'}.'" />'."\n".	'<input type="hidden" name="submitonly" value="'.$env{'form.submitonly'}.'" />'."\n".
'<input type="hidden" name="handgrade" value="'.$env{'form.handgrade'}.'" />'."\n".	'<input type="hidden" name="handgrade" value="'.$env{'form.handgrade'}.'" />'."\n".
'<input type="hidden" name="NCT"'.	'<input type="hidden" name="NCT"'.
Line 1805 KEYWORDS	Line 1948 KEYWORDS
my ($adom,$aname,$apath)=($essayurl=~/^($LONCAPA::domain_re)\/($LONCAPA::username_re)\/(.*)$/);	my ($adom,$aname,$apath)=($essayurl=~/^($LONCAPA::domain_re)\/($LONCAPA::username_re)\/(.*)$/);
$apath=&escape($apath);	$apath=&escape($apath);
$apath=~s/\W/\_/gs;	$apath=~s/\W/\_/gs;
%oldessays=&Apache::lonnet::dump('nohist_essay_'.$apath,$adom,$aname);	%old_essays=&Apache::lonnet::dump('nohist_essay_'.$apath,$adom,$aname);
}	}
}	}

	# This is where output for one specific student would start
	my $add_class = ($counter%2) ? 'LC_grade_show_user_odd_row' : '';
	$request->print("\n\n".
	'<div class="LC_grade_show_user '.$add_class.'">'.
	'<div class="LC_grade_user_name">'.&nameUserString(undef,$env{'form.fullname'},$uname,$udom).'</div>'.
	'<div class="LC_grade_show_user_body">'."\n");

if ($env{'form.vProb'} eq 'all' or $env{'form.vAns'} eq 'all') {	if ($env{'form.vProb'} eq 'all' or $env{'form.vAns'} eq 'all') {
$request->print('<br /><br /><br />') if ($counter > 0);
my $mode;	my $mode;
if ($env{'form.vProb'} eq 'all' && $env{'form.vAns'} eq 'all') {	if ($env{'form.vProb'} eq 'all' && $env{'form.vAns'} eq 'all') {
$mode='both';	$mode='both';
Line 1828 KEYWORDS	Line 1977 KEYWORDS

# Display student info	# Display student info
$request->print(($counter == 0 ? '' : '<br />'));	$request->print(($counter == 0 ? '' : '<br />'));
my $result='<table border="0" width="100%"><tr><td bgcolor="#777777">'."\n".	my $result='<div class="LC_grade_submissions">';
'<table border="0" width="100%"><tr bgcolor="#edffff"><td>'."\n";
	$result.='<div class="LC_grade_submissions_header">';
$result.='<b>Fullname: </b>'.&nameUserString(undef,$env{'form.fullname'},$uname,$udom).'<br />'."\n";	$result.= &mt('Submissions');
$result.='<input type="hidden" name="name'.$counter.	$result.='<input type="hidden" name="name'.$counter.
'" value="'.$env{'form.fullname'}.'" />'."\n";	'" value="'.$env{'form.fullname'}.'" />'."\n";
	if ($env{'form.handgrade'} eq 'no') {
	$result.='<span class="LC_grade_check_note">'.
	&mt('Part(s) graded correct by the computer is marked with a [_1] symbol.',$checkIcon)."</span>\n";

	}



# If any part of the problem is an essay-response (handgraded), then check for collaborators	# If any part of the problem is an essay-response (handgraded), then check for collaborators
my @col_fullnames;	my $fullname;
my ($classlist,$fullname);	my $col_fullnames = [];
if ($env{'form.handgrade'} eq 'yes') {	if ($env{'form.handgrade'} eq 'yes') {
($classlist,undef,$fullname) = &getclasslist('all','0');	(my $sub_result,$fullname,$col_fullnames)=
for (keys (%$handgrade)) {	&check_collaborators($symb,$uname,$udom,\%record,$handgrade,
my $ncol = &Apache::lonnet::EXT('resource.'.$_.	$counter);
'.maxcollaborators',	$result.=$sub_result;
$symb,$udom,$uname);
next if ($ncol <= 0);
s/\_/\./g;
next if ($record{'resource.'.$_.'.collaborators'} eq '');
my @goodcollaborators = ();
my @badcollaborators = ();
foreach (split(/,?\s+/,$record{'resource.'.$_.'.collaborators'})) {
$_ =~ s/[\$\^]//g;
next if ($_ eq '');
my ($co_name,$co_dom) = split /\@\|:/,$_;
$co_dom = $udom if (! defined($co_dom) \|\| $co_dom =~ /^domain$/i);
next if ($co_name eq $uname && $co_dom eq $udom);
# Doing this grep allows 'fuzzy' specification
my @Matches = grep /^$co_name:$co_dom$/i,keys %$classlist;
if (! scalar(@Matches)) {
push @badcollaborators,$_;
} else {
push @goodcollaborators, @Matches;
}
}
if (scalar(@goodcollaborators) != 0) {
$result.='<b>Collaborators: </b>';
foreach (@goodcollaborators) {
my ($lastname,$givenn) = split(/,/,$$fullname{$_});
push @col_fullnames, $givenn.' '.$lastname;
$result.=$$fullname{$_}.'     ';
}
$result.='<br />'."\n";
my ($part)=split(/\./,$_);
$result.='<input type="hidden" name="collaborator'.$counter.
'" value="'.$part.':'.(join ':',@goodcollaborators).'" />'.
"\n";
}
if (scalar(@badcollaborators) > 0) {
$result.='<table border="0"><tr bgcolor="#ffbbbb"><td>';
$result.='This student has submitted ';
$result.=(scalar(@badcollaborators) == 1) ? 'an invalid collaborator' : 'invalid collaborators';
$result .= ': '.join(', ',@badcollaborators);
$result .= '</td></tr></table>';
}
if (scalar(@badcollaborators > $ncol)) {
$result .= '<table border="0"><tr bgcolor="#ffbbbb"><td>';
$result .= 'This student has submitted too many '.
'collaborators. Maximum is '.$ncol.'.';
$result .= '</td></tr></table>';
}
}
}	}
$request->print($result."\n");	$request->print($result."\n");
	$request->print('</div>'."\n");
# print student answer/submission	# print student answer/submission
# Options are (1) Handgaded submission only	# Options are (1) Handgaded submission only
# (2) Last submission, includes submission that is not handgraded	# (2) Last submission, includes submission that is not handgraded
Line 1901 KEYWORDS	Line 2010 KEYWORDS
# (4) The whole record for this student	# (4) The whole record for this student
if ($env{'form.lastSub'} =~ /^(lastonly\|hdgrade)$/) {	if ($env{'form.lastSub'} =~ /^(lastonly\|hdgrade)$/) {
my ($string,$timestamp)= &get_last_submission(\%record);	my ($string,$timestamp)= &get_last_submission(\%record);
my $lastsubonly=''.
($$timestamp eq '' ? '' : '<b>Date Submitted:</b> '.	my $lastsubonly;
$$timestamp)."</td></tr>\n";
if ($$timestamp eq '') {	if ($$timestamp eq '') {
$lastsubonly.='<tr><td bgcolor="#ffffe6">'.$$string[0];	$lastsubonly.='<div class="LC_grade_submissions_body">'.$$string[0].'</div>';
} else {	} else {
	$lastsubonly = '<div class="LC_grade_submissions_body"> <b>Date Submitted:</b> '.$$timestamp."\n";

my %seenparts;	my %seenparts;
my @part_response_id = &flatten_responseType($responseType);	my @part_response_id = &flatten_responseType($responseType);
foreach my $part (@part_response_id) {	foreach my $part (@part_response_id) {
Line 1929 KEYWORDS	Line 2040 KEYWORDS
}	}
my $responsetype = $responseType->{$partid}->{$respid};	my $responsetype = $responseType->{$partid}->{$respid};
if (!exists($record{"resource.$partid.$respid.submission"})) {	if (!exists($record{"resource.$partid.$respid.submission"})) {
$lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part:</b> '.	$lastsubonly.="\n".'<div class="LC_grade_submission_part"><b>Part:</b> '.
$display_part.' <span class="LC_internal_info">( ID '.$respid.	$display_part.' <span class="LC_internal_info">( ID '.$respid.
' )</span>   '.	' )</span>   '.
'<span class="LC_warning">Nothing submitted - no attempts</span><br /><br />';	'<span class="LC_warning">'.&mt('Nothing submitted - no attempts').'</span><br /><br /></div>';
next;	next;
}	}
foreach (@$string) {	foreach my $submission (@$string) {
my ($partid,$respid) = /^resource\.([^\.])\.([^\.])\.submission/;	my ($partid,$respid) = ($submission =~ /^resource\.([^\.])\.([^\.])\.submission/);
if (join('_',@{$part}) ne ($partid.'_'.$respid)) { next; }	if (join('_',@{$part}) ne ($partid.'_'.$respid)) { next; }
my ($ressub,$subval) = split(/:/,$_,2);	my ($ressub,$subval) = split(/:/,$submission,2);
# Similarity check	# Similarity check
my $similar='';	my $similar='';
if($env{'form.checkPlag'}){	if($env{'form.checkPlag'}){
my ($oname,$odom,$ocrsid,$oessay,$osim)=	my ($oname,$odom,$ocrsid,$oessay,$osim)=
&most_similar($uname,$udom,$subval);	&most_similar($uname,$udom,$subval,\%old_essays);
if ($osim) {	if ($osim) {
$osim=int($osim*100.0);	$osim=int($osim*100.0);
$similar="<hr /><h3><span class=\"LC_warning\">Essay".	my %old_course_desc =
" is $osim% similar to an essay by ".	&Apache::lonnet::coursedescription($ocrsid,
&Apache::loncommon::plainname($oname,$odom).	{'one_time' => 1});

	$similar="<hr /><h3><span class=\"LC_warning\">".
	&mt('Essay is [_1]% similar to an essay by [_2] ([_3]:[_4]) in course [_5] (course id [_6]:[_7])',
	$osim,
	&Apache::loncommon::plainname($oname,$odom),
	$oname,$odom,
	$old_course_desc{'description'},
	$old_course_desc{'num'},
	$old_course_desc{'domain'}).
'</span></h3><blockquote><i>'.	'</span></h3><blockquote><i>'.
&keywords_highlight($oessay).	&keywords_highlight($oessay).
'</i></blockquote><hr />';	'</i></blockquote><hr />';
Line 1959 KEYWORDS	Line 2079 KEYWORDS
($env{'form.lastSub'} eq 'hdgrade' &&	($env{'form.lastSub'} eq 'hdgrade' &&
$$handgrade{$$part[0].'_'.$$part[1]} eq 'yes')) {	$$handgrade{$$part[0].'_'.$$part[1]} eq 'yes')) {
my $display_part=&get_display_part($partid,$symb);	my $display_part=&get_display_part($partid,$symb);
$lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part:</b> '.	$lastsubonly.='<div class="LC_grade_submission_part"><b>Part:</b> '.
$display_part.' <span class="LC_internal_info">( ID '.$respid.	$display_part.' <span class="LC_internal_info">( ID '.$respid.
' )</span>   ';	' )</span>   ';
my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);	my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);
if (@$files) {	if (@$files) {
$lastsubonly.='<br /><span class="LC_warning">Like all files provided by users, this file may contain virusses</span><br />';	$lastsubonly.='<br /><span class="LC_warning">'.&mt('Like all files provided by users, this file may contain virusses').'</span><br />';
my $file_counter = 0;	my $file_counter = 0;
foreach my $file (@$files) {	foreach my $file (@$files) {
$file_counter ++;	$file_counter++;
&Apache::lonnet::allowuploaded('/adm/grades',$file);	&Apache::lonnet::allowuploaded('/adm/grades',$file);
$lastsubonly.='<br /><a href="'.$file.'?rawmode=1" target="lonGRDs"><img src="'.&Apache::loncommon::icon($file).'" border=0"> '.$file.'</a>';	$lastsubonly.='<br /><a href="'.$file.'?rawmode=1" target="lonGRDs"><img src="'.&Apache::loncommon::icon($file).'" border=0"> '.$file.'</a>';
}	}
$lastsubonly.='<br />';	$lastsubonly.='<br />';
}	}
$lastsubonly.='<b>Submitted Answer: </b>'.	$lastsubonly.='<b>'.&mt('Submitted Answer:').' </b>'.
&cleanRecord($subval,$responsetype,$symb,$partid,	&cleanRecord($subval,$responsetype,$symb,$partid,
$respid,\%record,$order);	$respid,\%record,$order);
if ($similar) {$lastsubonly.="<br /><br />$similar\n";}	if ($similar) {$lastsubonly.="<br /><br />$similar\n";}
	$lastsubonly.='</div>';
}	}
}	}
}	}
	$lastsubonly.='</div>'."\n";
}	}
$lastsubonly.='</td></tr><tr bgcolor="#ffffff"><td>'."\n";
$request->print($lastsubonly);	$request->print($lastsubonly);
} elsif ($env{'form.lastSub'} eq 'datesub') {	} elsif ($env{'form.lastSub'} eq 'datesub') {
my (undef,$responseType,undef,$parts) = &showResourceInfo($symb);	my (undef,$responseType,undef,$parts) = &showResourceInfo($symb);
$request->print(&displaySubByDates($symb,\%record,$parts,$responseType,$checkIcon,$uname,$udom));	$request->print(&displaySubByDates($symb,\%record,$parts,$responseType,$checkIcon,$uname,$udom));
} elsif ($env{'form.lastSub'} =~ /^(last\|all)$/) {	} elsif ($env{'form.lastSub'} =~ /^(last\|all)$/) {
Line 1995 KEYWORDS	Line 2116 KEYWORDS

$request->print('<input type="hidden" name="unamedom'.$counter.'" value="'.$uname.':'	$request->print('<input type="hidden" name="unamedom'.$counter.'" value="'.$uname.':'
.$udom.'" />'."\n");	.$udom.'" />'."\n");

# return if view submission with no grading option	# return if view submission with no grading option
if ($env{'form.showgrading'} eq '' \|\| (!&canmodify($usec))) {	if ($env{'form.showgrading'} eq '' \|\| (!&canmodify($usec))) {
my $toGrade.='<input type="button" value="Grade Student" '.	my $toGrade.='<input type="button" value="Grade Student" '.
'onClick="javascript:checksubmit(this.form,\'Grade Student\',\''	'onClick="javascript:checksubmit(this.form,\'Grade Student\',\''
.$counter.'\');" target="_self" />  '."\n" if (&canmodify($usec));	.$counter.'\');" target="_self" />  '."\n" if (&canmodify($usec));
$toGrade.='</td></tr></table></td></tr></table>'."\n";	$toGrade.='</div>'."\n";
if (($env{'form.command'} eq 'submission') \|\|	if (($env{'form.command'} eq 'submission') \|\|
($env{'form.command'} eq 'processGroup' && $counter == $total)) {	($env{'form.command'} eq 'processGroup' && $counter == $total)) {
$toGrade.='</form>'.&show_grading_menu_form($symb);	$toGrade.='</form>'.&show_grading_menu_form($symb);
Line 2009 KEYWORDS	Line 2129 KEYWORDS
$request->print($toGrade);	$request->print($toGrade);
return;	return;
} else {	} else {
$request->print('</td></tr></table></td></tr></table>'."\n");	$request->print('</div>'."\n");
}	}

# essay grading message center	# essay grading message center
if ($env{'form.handgrade'} eq 'yes') {	if ($env{'form.handgrade'} eq 'yes') {
	my $result='<div class="LC_grade_message_center">';

	$result.='<div class="LC_grade_message_center_header">'.
	&mt('Send Message').'</div><div class="LC_grade_message_center_body">';
my ($lastname,$givenn) = split(/,/,$env{'form.fullname'});	my ($lastname,$givenn) = split(/,/,$env{'form.fullname'});
my $msgfor = $givenn.' '.$lastname;	my $msgfor = $givenn.' '.$lastname;
if (scalar(@col_fullnames) > 0) {	if (scalar(@$col_fullnames) > 0) {
my $lastone = pop @col_fullnames;	my $lastone = pop(@$col_fullnames);
$msgfor .= ', '.(join ', ',@col_fullnames).' and '.$lastone.'.';	$msgfor .= ', '.(join ', ',@$col_fullnames).' and '.$lastone.'.';
}	}
$msgfor =~ s/\'/\\'/g; #' stupid emacs - no! javascript	$msgfor =~ s/\'/\\'/g; #' stupid emacs - no! javascript
$result='<input type="hidden" name="includemsg'.$counter.'" value="" />'."\n".	$result.='<input type="hidden" name="includemsg'.$counter.'" value="" />'."\n".
'<input type="hidden" name="newmsg'.$counter.'" value="" />'."\n";	'<input type="hidden" name="newmsg'.$counter.'" value="" />'."\n";
$result.=' <a href="javascript:msgCenter(document.SCORE,'.$counter.	$result.=' <a href="javascript:msgCenter(document.SCORE,'.$counter.
',\''.$msgfor.'\');" target="_self">'.	',\''.$msgfor.'\');" target="_self">'.
&mt('Compose message to student').(scalar(@col_fullnames) >= 1 ? 's' : '').'</a><label> ('.	&mt('Compose message to student').(scalar(@$col_fullnames) >= 1 ? 's' : '').'</a><label> ('.
&mt('incl. grades').' <input type="checkbox" name="withgrades'.$counter.'" /></label>)'.	&mt('incl. grades').' <input type="checkbox" name="withgrades'.$counter.'" /></label>)'.
'<img src="'.$request->dir_config('lonIconsURL').	'<img src="'.$request->dir_config('lonIconsURL').
'/mailbkgrd.gif" width="14" height="10" name="mailicon'.$counter.'" />'."\n".	'/mailbkgrd.gif" width="14" height="10" 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";
	$result.='</div></div>';
$request->print($result);	$request->print($result);
}	}
if ($perm{'vgr'}) {
$request->print('<br />'.
&Apache::loncommon::track_student_link(&mt('View recent activity'),
$uname,$udom,'check'));
}
if ($perm{'opa'}) {
$request->print('<br />'.
&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),
$uname,$udom,$symb,'check'));
}

my %seen = ();	my %seen = ();
my @partlist;	my @partlist;
my @gradePartRespid;	my @gradePartRespid;
my @part_response_id = &flatten_responseType($responseType);	my @part_response_id = &flatten_responseType($responseType);
	$request->print('<div class="LC_grade_assign">'.

	'<div class="LC_grade_assign_header">'.
	&mt('Assign Grades').'</div>'.
	'<div class="LC_grade_assign_body">');
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 2059 KEYWORDS	Line 2179 KEYWORDS
push @gradePartRespid,$partid.'.'.$respid;	push @gradePartRespid,$partid.'.'.$respid;
$request->print(&gradeBox($request,$symb,$uname,$udom,$counter,$partid,\%record));	$request->print(&gradeBox($request,$symb,$uname,$udom,$counter,$partid,\%record));
}	}
	$request->print('</div></div>');

	$request->print('<div class="LC_grade_info_links">');
	if ($perm{'vgr'}) {
	$request->print(
	&Apache::loncommon::track_student_link(&mt('View recent activity'),
	$uname,$udom,'check'));
	}
	if ($perm{'opa'}) {
	$request->print(
	&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),
	$uname,$udom,$symb,'check'));
	}
	$request->print('</div>');

$result='<input type="hidden" name="partlist'.$counter.	$result='<input type="hidden" name="partlist'.$counter.
'" value="'.(join ":",@partlist).'" />'."\n";	'" value="'.(join ":",@partlist).'" />'."\n";
$result.='<input type="hidden" name="gradePartRespid'.	$result.='<input type="hidden" name="gradePartRespid'.
Line 2069 KEYWORDS	Line 2204 KEYWORDS
$partlist[$ctr].'" />'."\n";	$partlist[$ctr].'" />'."\n";
$ctr++;	$ctr++;
}	}
$request->print($result.'</td></tr></table></td></tr></table>'."\n");	$request->print($result.''."\n");

	# Done with printing info for one student

	$request->print('</div>');#LC_grade_show_user_body
	$request->print('</div>');#LC_grade_show_user


# print end of form	# print end of form
if ($counter == $total) {	if ($counter == $total) {
Line 2098 KEYWORDS	Line 2239 KEYWORDS
return '';	return '';
}	}

	sub check_collaborators {
	my ($symb,$uname,$udom,$record,$handgrade,$counter) = @_;
	my ($result,@col_fullnames);
	my ($classlist,undef,$fullname) = &getclasslist('all','0');
	foreach my $part (keys(%$handgrade)) {
	my $ncol = &Apache::lonnet::EXT('resource.'.$part.
	'.maxcollaborators',
	$symb,$udom,$uname);
	next if ($ncol <= 0);
	$part =~ s/\_/\./g;
	next if ($record->{'resource.'.$part.'.collaborators'} eq '');
	my (@good_collaborators, @bad_collaborators);
	foreach my $possible_collaborator
	(split(/,?\s+/,$record->{'resource.'.$part.'.collaborators'})) {
	$possible_collaborator =~ s/[\$\^]//g;
	next if ($possible_collaborator eq '');
	my ($co_name,$co_dom) = split(/\@\|:/,$possible_collaborator);
	$co_dom = $udom if (! defined($co_dom) \|\| $co_dom =~ /^domain$/i);
	next if ($co_name eq $uname && $co_dom eq $udom);
	# Doing this grep allows 'fuzzy' specification
	my @matches = grep(/^\Q$co_name\E:\Q$co_dom\E$/i,
	keys(%$classlist));
	if (! scalar(@matches)) {
	push(@bad_collaborators, $possible_collaborator);
	} else {
	push(@good_collaborators, @matches);
	}
	}
	if (scalar(@good_collaborators) != 0) {
	$result.='<br />'.&mt('Collaborators: ');
	foreach my $name (@good_collaborators) {
	my ($lastname,$givenn) = split(/,/,$$fullname{$name});
	push(@col_fullnames, $givenn.' '.$lastname);
	$result.=$fullname->{$name}.'     ';
	}
	$result.='<br />'."\n";
	my ($part)=split(/\./,$part);
	$result.='<input type="hidden" name="collaborator'.$counter.
	'" value="'.$part.':'.(join ':',@good_collaborators).'" />'.
	"\n";
	}
	if (scalar(@bad_collaborators) > 0) {
	$result.='<div class="LC_warning">';
	$result.=&mt('This student has submitted [quant,_1,invalid collaborator]: [_2]',scalar(@bad_collaborators),join(', ',@bad_collaborators));
	$result .= '</div>';
	}
	if (scalar(@bad_collaborators > $ncol)) {
	$result .= '<div class="LC_warning">';
	$result .= &mt('This student has submitted too many '.
	'collaborators. Maximum is [_1].',$ncol);
	$result .= '</div>';
	}
	}
	return ($result,$fullname,\@col_fullnames);
	}

#--- 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)=@_;
Line 2733 sub version_selected_portfile {	Line 2930 sub version_selected_portfile {
my $new_answer;	my $new_answer;
$env{'form.copy'} = &Apache::lonnet::getfile("/uploaded/$domain/$stu_name/portfolio$directory$file_name");	$env{'form.copy'} = &Apache::lonnet::getfile("/uploaded/$domain/$stu_name/portfolio$directory$file_name");
if($env{'form.copy'} eq '-1') {	if($env{'form.copy'} eq '-1') {
&Apache::lonnet::logthis('problem getting file '.$file_name);
$new_answer = 'problem getting file';	$new_answer = 'problem getting file';
} else {	} else {
$new_answer = $answer_name.'.'.$version.'.'.$answer_ext;	$new_answer = $answer_name.'.'.$version.'.'.$answer_ext;
Line 2954 sub viewgrades {	Line 3150 sub viewgrades {
$result.=&jscriptNform($symb);	$result.=&jscriptNform($symb);

#beginning of class grading form	#beginning of class grading form
	my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));
$result.= '<form action="/adm/grades" method="post" name="classgrade">'."\n".	$result.= '<form action="/adm/grades" method="post" name="classgrade">'."\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="command" value="editgrades" />'."\n".	'<input type="hidden" name="command" value="editgrades" />'."\n".
'<input type="hidden" name="section" value="'.$env{'form.section'}.'" />'."\n".	&build_section_inputs().
'<input type="hidden" name="saveState" value="'.$env{'form.saveState'}.'" />'."\n".	'<input type="hidden" name="saveState" value="'.$env{'form.saveState'}.'" />'."\n".
'<input type="hidden" name="Status" value="'.$env{'form.Status'}.'" />'."\n".	'<input type="hidden" name="Status" value="'.$env{'stu_status'}.'" />'."\n".
'<input type="hidden" name="probTitle" value="'.$env{'form.probTitle'}.'" />'."\n";	'<input type="hidden" name="probTitle" value="'.$env{'form.probTitle'}.'" />'."\n";

my $sectionClass;	my $sectionClass;
	my $section_display = join (", ",&Apache::loncommon::get_env_multiple('form.section'));
if ($env{'form.section'} eq 'all') {	if ($env{'form.section'} eq 'all') {
$sectionClass='Class </h3>';	$sectionClass='Class </h3>';
} elsif ($env{'form.section'} eq 'none') {	} elsif ($env{'form.section'} eq 'none') {
$sectionClass='Students in no Section </h3>';	$sectionClass=&mt('Students in no Section').'</h3>';
} else {	} else {
$sectionClass='Students in Section '.$env{'form.section'}.'</h3>';	$sectionClass=&mt('Students in Section(s) [_1]',$section_display).'</h3>';
}	}
$result.='<h3>Assign Common Grade To '.$sectionClass;	$result.='<h3>'.&mt('Assign Common Grade To [_1]',$sectionClass);
$result.= '<table border=0><tr><td bgcolor="#777777">'."\n".	$result.= '<table border=0><tr><td bgcolor="#777777">'."\n".
'<table border=0><tr bgcolor="#ffffdd"><td>';	'<table border=0><tr bgcolor="#ffffdd"><td>';
#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 3076 sub viewgrades {	Line 3274 sub viewgrades {
'onClick="javascript:submit();" target="_self" /></form>'."\n";	'onClick="javascript:submit();" target="_self" /></form>'."\n";
if (scalar(%$fullname) eq 0) {	if (scalar(%$fullname) eq 0) {
my $colspan=3+scalar(@parts);	my $colspan=3+scalar(@parts);
$result='<span class="LC_warning">There are no students in section "'.$env{'form.section'}.	my $section_display = join (", ",&Apache::loncommon::get_env_multiple('form.section'));
'" with enrollment status "'.$env{'form.Status'}.'" to modify or grade.</span>';	my $stu_status = join(' or ',&Apache::loncommon::get_env_multiple('form.Status'));
	$result='<span class="LC_warning">'.
	&mt('There are no students in section(s) [_1] with enrollment status [_2] to modify or grade',
	$section_display, $stu_status).
	'</span>';
}	}
$result.=&show_grading_menu_form($symb);	$result.=&show_grading_menu_form($symb);
return $result;	return $result;
Line 3154 sub editgrades {	Line 3356 sub editgrades {
my ($request) = @_;	my ($request) = @_;

my $symb=&get_symb($request);	my $symb=&get_symb($request);
my $title='<h3><span class="LC_info">Current Grade Status</span></h3>';	my $section_display = join (", ",&Apache::loncommon::get_env_multiple('form.section'));
$title.='<h4><b>Current Resource: </b>'.$env{'form.probTitle'}.'</h4><br />'."\n";	my $title='<h3><span class="LC_info">'.&mt('Current Grade Status').'</span></h3>';
$title.='<h4><b>Section: </b>'.$env{'form.section'}.'</h4>'."\n";	$title.='<h4>'.&mt('<b>Current Resource: </b>[_1]',$env{'form.probTitle'}).'</h4><br />'."\n";
	$title.='<h4>'.&mt('<b>Section: </b>[_1]',$section_display).'</h4>'."\n";

my $result= '<table border="0"><tr><td bgcolor="#777777">'."\n";	my $result= '<table border="0"><tr><td bgcolor="#777777">'."\n";
$result.= '<table border="0"><tr bgcolor="#deffff">'.	$result.= '<table border="0"><tr bgcolor="#deffff">'.
Line 3354 sub split_part_type {	Line 3557 sub split_part_type {
my ($partstr) = @_;	my ($partstr) = @_;
my ($temp,@allparts)=split(/_/,$partstr);	my ($temp,@allparts)=split(/_/,$partstr);
my $type=pop(@allparts);	my $type=pop(@allparts);
my $part=join('.',@allparts);	my $part=join('_',@allparts);
return ($part,$type);	return ($part,$type);
}	}

Line 3738 sub csvuploadassign {	Line 3941 sub csvuploadassign {
if ($wgt) {	if ($wgt) {
$entries{$fields{$dest}}=~s/\s//g;	$entries{$fields{$dest}}=~s/\s//g;
my $pcr=$entries{$fields{$dest}} / $wgt;	my $pcr=$entries{$fields{$dest}} / $wgt;
my $award='correct_by_override';	my $award=($pcr == 0) ? 'incorrect_by_override'
	: 'correct_by_override';
$grades{"resource.$part.awarded"}=$pcr;	$grades{"resource.$part.awarded"}=$pcr;
$grades{"resource.$part.solved"}=$award;	$grades{"resource.$part.solved"}=$award;
$points{$part}=1;	$points{$part}=1;
Line 3760 sub csvuploadassign {	Line 3964 sub csvuploadassign {
}	}
if (! %grades) { push(@skipped,"$username:$domain no data to save"); }	if (! %grades) { push(@skipped,"$username:$domain no data to save"); }
$grades{"resource.regrader"}="$env{'user.name'}:$env{'user.domain'}";	$grades{"resource.regrader"}="$env{'user.name'}:$env{'user.domain'}";
# &Apache::lonnet::logthis(" storing ".(join('-',%grades)));
my $result=&Apache::lonnet::cstore(\%grades,$symb,	my $result=&Apache::lonnet::cstore(\%grades,$symb,
$env{'request.course.id'},	$env{'request.course.id'},
$domain,$username);	$domain,$username);
Line 3857 LISTJAVASCRIPT	Line 4060 LISTJAVASCRIPT
'<label><input type="radio" name="lastSub" value="none" /> none</label>'."\n".	'<label><input type="radio" name="lastSub" value="none" /> none</label>'."\n".
'<label><input type="radio" name="lastSub" value="datesub" checked="checked" /> by dates and submissions</label>'."\n".	'<label><input type="radio" name="lastSub" value="datesub" checked="checked" /> by dates and submissions</label>'."\n".
'<label><input type="radio" name="lastSub" value="all" /> all details</label>'."\n";	'<label><input type="radio" name="lastSub" value="all" /> all details</label>'."\n";

$result.='<input type="hidden" name="section" value="'.$getsec.'" />'."\n".	$result.=&build_section_inputs();
'<input type="hidden" name="Status" value="'.$env{'form.Status'}.'" />'."\n".	my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));
	$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".
'<input type="hidden" name="saveState" value="'.$env{'form.saveState'}.'" />'."<br />\n";	'<input type="hidden" name="saveState" value="'.$env{'form.saveState'}.'" />'."<br />\n";
Line 4089 sub displaySubByDates {	Line 4293 sub displaySubByDates {
my $isCODE=0;	my $isCODE=0;
my $isTask = ($symb =~/\.task$/);	my $isTask = ($symb =~/\.task$/);
if (exists($record->{'resource.CODE'})) { $isCODE=1; }	if (exists($record->{'resource.CODE'})) { $isCODE=1; }
my $studentTable='<table border="0" width="100%"><tr><td bgcolor="#777777">'.	my $studentTable=&Apache::loncommon::start_data_table().
'<table border="0" width="100%"><tr bgcolor="#e6ffff">'.	&Apache::loncommon::start_data_table_header_row().
'<td><b>Date/Time</b></td>'.	'<th>'.&mt('Date/Time').'</th>'.
($isCODE?'<td><b>CODE</b></td>':'').	($isCODE?'<th>'.&mt('CODE').'</th>':'').
'<td><b>Submission</b></td>'.	'<th>'.&mt('Submission').'</th>'.
'<td><b>Status </b></td></tr>';	'<th>'.&mt('Status').'</th>'.
	&Apache::loncommon::end_data_table_header_row();
my ($version);	my ($version);
my %mark;	my %mark;
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">Nothing submitted - no attempts</span><br />';	return '<br /> <span class="LC_warning">'.&mt('Nothing submitted - no attempts').'</span><br />';
}	}

my $interaction;	my $interaction;
for ($version=1;$version<=$$record{'version'};$version++) {	for ($version=1;$version<=$$record{'version'};$version++) {
my $timestamp = scalar(localtime($$record{$version.':timestamp'}));	my $timestamp =
	&Apache::lonlocal::locallocaltime($$record{$version.':timestamp'});
if (exists($$record{$version.':resource.0.version'})) {	if (exists($$record{$version.':resource.0.version'})) {
$interaction = $$record{$version.':resource.0.version'};	$interaction = $$record{$version.':resource.0.version'};
}	}

my $where = ($isTask ? "$version:resource.$interaction"	my $where = ($isTask ? "$version:resource.$interaction"
: "$version:resource");	: "$version:resource");
#&Apache::lonnet::logthis(" got $where");	$studentTable.=&Apache::loncommon::start_data_table_row().
$studentTable.='<tr bgcolor="#ffffff" valign="top"><td>'.$timestamp.'</td>';	'<td>'.$timestamp.'</td>';
if ($isCODE) {	if ($isCODE) {
$studentTable.='<td>'.$record->{$version.':resource.CODE'}.'</td>';	$studentTable.='<td>'.$record->{$version.':resource.CODE'}.'</td>';
}	}
Line 4132 sub displaySubByDates {	Line 4338 sub displaySubByDates {

my ($responseId)= ($isTask ? ($matchKey=~ /^resource\.(.*?)\.\Q$partid\E\.award$/)	my ($responseId)= ($isTask ? ($matchKey=~ /^resource\.(.*?)\.\Q$partid\E\.award$/)
: ($matchKey=~ /^resource\.\Q$partid\E\.(.*?)\.submission$/));	: ($matchKey=~ /^resource\.\Q$partid\E\.(.*?)\.submission$/));
#&Apache::lonnet::logthis("match $matchKey $responseId (".$$record{$version.':'.$matchKey});	$displaySub[0].='<b>'.&mt('Part:').'</b> '.$display_part.' ';
$displaySub[0].='<b>Part:</b> '.$display_part.' ';	$displaySub[0].='<span class="LC_internal_info">('.&mt('ID').' '.
$displaySub[0].='<span class="LC_internal_info">(ID '.
$responseId.')</span> <b>';	$responseId.')</span> <b>';
if ($$record{"$where.$partid.tries"} eq '') {	if ($$record{"$where.$partid.tries"} eq '') {
$displaySub[0].='Trial not counted';	$displaySub[0].=&mt('Trial not counted');
} else {	} else {
$displaySub[0].='Trial '.	$displaySub[0].=&mt('Trial [_1]',
$$record{"$where.$partid.tries"};	$$record{"$where.$partid.tries"});
}	}
my $responseType=($isTask ? 'Task'	my $responseType=($isTask ? 'Task'
: $responseType->{$partid}->{$responseId});	: $responseType->{$partid}->{$responseId});
Line 4180 sub displaySubByDates {	Line 4385 sub displaySubByDates {
}	}
$studentTable.='<td>'.$displaySub[0].' </td><td>'.$displaySub[1];	$studentTable.='<td>'.$displaySub[0].' </td><td>'.$displaySub[1];
if ($displaySub[2]) {	if ($displaySub[2]) {
$studentTable.='Manually graded by '.$displaySub[2];	$studentTable.=&mt('Manually graded by [_1]',$displaySub[2]);
}	}
$studentTable.=' </td></tr>';	$studentTable.=' </td>'.
	&Apache::loncommon::end_data_table_row();
}	}
$studentTable.='</table></td></tr></table>';	$studentTable.=&Apache::loncommon::end_data_table();
return $studentTable;	return $studentTable;
}	}

Line 4373 one of the predefined configurations for	Line 4578 one of the predefined configurations for
like.	like.

Next each scanline is checked for any errors of either 'missing	Next each scanline is checked for any errors of either 'missing
bubbles' (it's an error because it may have been missed scanned	bubbles' (it's an error because it may have been mis-scanned
because too light bubbling), 'double bubble' (each bubble line should	because too light bubbling), 'double bubble' (each bubble line should
have no more that one letter picked), invalid or duplicated CODE,	have no more that one letter picked), invalid or duplicated CODE,
invalid student ID	invalid student ID
Line 4384 username:domain.	Line 4589 username:domain.

During the validation phase the instructor can choose to skip scanlines.	During the validation phase the instructor can choose to skip scanlines.

After the validation phase, there is now 3 bubble sheet files	After the validation phase, there are now 3 bubble sheet files

scantron_original_filename (unmodified original file)	scantron_original_filename (unmodified original file)
scantron_corrected_filename (file where the corrected information has replaced the original information)	scantron_corrected_filename (file where the corrected information has replaced the original information)
Line 4401 the homework problem.	Line 4606 the homework problem.

=over 4	=over 4

=cut


=pod

=item defaultFormData	=item defaultFormData

Line 4417 the homework problem.	Line 4619 the homework problem.

sub defaultFormData {	sub defaultFormData {
my ($symb)=@_;	my ($symb)=@_;
return '	return '<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="saveState" value="'.$env{'form.saveState'}.'" />'."\n".	'<input type="hidden" name="saveState" value="'.$env{'form.saveState'}.'" />'."\n".
'<input type="hidden" name="probTitle" value="'.$env{'form.probTitle'}.'" />'."\n";	'<input type="hidden" name="probTitle" value="'.$env{'form.probTitle'}.'" />'."\n";
}	}


=pod	=pod

=item getSequenceDropDown	=item getSequenceDropDown
Line 4724 SCANTRONFORM	Line 4926 SCANTRONFORM
</tr>	</tr>
SCANTRONFORM	SCANTRONFORM

$r->print(<<SCANTRONFORM);	$r->print('<tr><td bgcolor="#777777">');
</table>	&Apache::lonpickcode::code_list($r,2);
$grading_menu_button	$r->print('</td></tr></table>');
SCANTRONFORM	$r->print($grading_menu_button);

return	return
}	}

Line 5012 sub scan_data {	Line 5213 sub scan_data {

if just_header was not true these key may also exist	if just_header was not true these key may also exist

missingerror - a list of bubbled line numbers that had a blank bubble	missingerror - a list of bubble ranges that are considered to be answers
that is considered an error (if the operator had already	to a single question that don't have any bubbles filled in.
okayed a blank bubble line as really being blank then	Of the form questionnumber:firstbubblenumber:count.
that bubble line number won't appear here.	doubleerror - a list of bubble ranges that are considered to be answers
doubleerror - a list of bubbled line numbers that had more than one	to a single question that have more than one bubble filled in.
bubble filled in and has not been corrected by the	Of the form questionnumber::firstbubblenumber:count
operator
	In the above, count is the number of bubble responses in the
	input line needed to represent the possible answers to the question.
	e.g. a radioresponse with 15 choices in an answer sheet with 10 choices
	per line would have count = 2.

maxquest - the number of the last bubble line that was parsed	maxquest - the number of the last bubble line that was parsed

(<number> starts at 1)	(<number> starts at 1)
Line 5033 sub scan_data {	Line 5239 sub scan_data {

sub scantron_parse_scanline {	sub scantron_parse_scanline {
my ($line,$whichline,$scantron_config,$scan_data,$just_header)=@_;	my ($line,$whichline,$scantron_config,$scan_data,$just_header)=@_;

my %record;	my %record;
my $questions=substr($line,$$scantron_config{'Qstart'}-1); # Answers	my $questions=substr($line,$$scantron_config{'Qstart'}-1); # Answers
my $data=substr($line,0,$$scantron_config{'Qstart'}-1); # earlier stuff	my $data=substr($line,0,$$scantron_config{'Qstart'}-1); # earlier stuff
Line 5069 sub scantron_parse_scanline {	Line 5276 sub scantron_parse_scanline {

my @alphabet=('A'..'Z');	my @alphabet=('A'..'Z');
my $questnum=0;	my $questnum=0;
while ($questions) {	my $ansnum =1; # Multiple 'answer lines'/question.

	chomp($questions); # Get rid of any trailing \n.
	$questions =~ s/\r$//; # Get rid of trailing \r too (MAC or Win uploads).
	while (length($questions)) {
	my $answers_needed = $bubble_lines_per_response{$questnum};
	my $answer_length = $$scantron_config{'Qlength'} * $answers_needed;



$questnum++;	$questnum++;
my $currentquest=substr($questions,0,$$scantron_config{'Qlength'});	my $currentquest = substr($questions,0,$answer_length);
substr($questions,0,$$scantron_config{'Qlength'})='';	$questions = substr($questions,0,$answer_length)='';
if (length($currentquest) < $$scantron_config{'Qlength'}) { next; }	if (length($currentquest) < $answer_length) { next; }

	# Qon letter implies for each slot in currentquest we have:
	# ? or * for doubles a letter in A-Z for a bubble and
	# about anything else (esp. a value of Qoff for missing
	# bubbles.


if ($$scantron_config{'Qon'} eq 'letter') {	if ($$scantron_config{'Qon'} eq 'letter') {
if ($currentquest eq '?'
\|\| $currentquest eq '*') {	if ($currentquest =~ /\?/
	\|\| $currentquest =~ /\*/
	\|\| (&occurence_count($currentquest, "[A-Z]") > 1)) {
push(@{$record{'scantron.doubleerror'}},$questnum);	push(@{$record{'scantron.doubleerror'}},$questnum);
$record{"scantron.$questnum.answer"}='';	for (my $ans = 0; $ans < $answers_needed; $ans++) {
	my $bubble = substr($currentquest, $ans, 1);
	if ($bubble =~ /[A-Z]/ ) {
	$record{"scantron.$ansnum.answer"} = $bubble;
	} else {
	$record{"scantron.$ansnum.answer"}='';
	}
	$ansnum++;
	}

} elsif (!defined($currentquest)	} elsif (!defined($currentquest)
\|\| $currentquest eq $$scantron_config{'Qoff'}	\|\| (&occurence_count($currentquest, $$scantron_config{'Qoff'}) == length($currentquest))
\|\| $currentquest !~ /^[A-Z]$/) {	\|\| (&occurence_count($currentquest, "[A-Z]") == 0)) {
$record{"scantron.$questnum.answer"}='';	for (my $ans = 0; $ans < $answers_needed; $ans++ ) {
	$record{"scantron.$ansnum.answer"}='';
	$ansnum++;

	}
if (!&scan_data($scan_data,"$whichline.no_bubble.$questnum")) {	if (!&scan_data($scan_data,"$whichline.no_bubble.$questnum")) {
push(@{$record{"scantron.missingerror"}},$questnum);	push(@{$record{"scantron.missingerror"}},$questnum);
	# $ansnum += $answers_needed;
}	}
} else {	} else {
$record{"scantron.$questnum.answer"}=$currentquest;	for (my $ans = 0; $ans < $answers_needed; $ans++) {
	$record{"scantron.$ansnum.answer"} = substr($currentquest, $ans, 1);
	$ansnum++;
	}
}	}

	# Qon 'number' implies each slot gives a digit that indexes the
	# the bubbles filled or Qoff or a non number for unbubbled lines.
	# and *? for double bubbles on a line.
	# these answers are also stored as letters.

} elsif ($$scantron_config{'Qon'} eq 'number') {	} elsif ($$scantron_config{'Qon'} eq 'number') {
if ($currentquest eq '?'	if ($currentquest =~ /\?/
\|\| $currentquest eq '*') {	\|\| $currentquest =~ /\*/
	\|\| (&occurence_count($currentquest, '\d') > 1)) {
push(@{$record{'scantron.doubleerror'}},$questnum);	push(@{$record{'scantron.doubleerror'}},$questnum);
$record{"scantron.$questnum.answer"}='';	for (my $ans = 0; $ans < $answers_needed; $ans++) {
	my $bubble = substr($currentquest, $ans, 1);
	if ($bubble =~ /\d/) {
	$record{"scantron.$ansnum.answer"} = $alphabet[$bubble];
	} else {
	$record{"scantron.$ansnum.answer"}=' ';
	}
	$ansnum++;
	}

} elsif (!defined($currentquest)	} elsif (!defined($currentquest)
\|\| $currentquest eq $$scantron_config{'Qoff'}	\|\| (&occurence_count($currentquest,$$scantron_config{'Qoff'}) == length($currentquest))
\|\| $currentquest !~ /^\d$/) {	\|\| (&occurence_count($currentquest, '\d') == 0)) {
$record{"scantron.$questnum.answer"}='';	for (my $ans = 0; $ans < $answers_needed; $ans++ ) {
	$record{"scantron.$ansnum.answer"}='';
	$ansnum++;

	}
if (!&scan_data($scan_data,"$whichline.no_bubble.$questnum")) {	if (!&scan_data($scan_data,"$whichline.no_bubble.$questnum")) {
push(@{$record{"scantron.missingerror"}},$questnum);	push(@{$record{"scantron.missingerror"}},$questnum);
	$ansnum += $answers_needed;
}	}

} else {	} else {
# wrap zero back to J	$currentquest = &digits_to_letters($currentquest);
if ($currentquest eq '0') {	for (my $ans =0; $ans < $answers_needed; $ans++) {
$record{"scantron.$questnum.answer"}=	$record{"scantron.$ansnum.answer"} = substr($currentquest, $ans, 1);
$alphabet[9];	$ansnum++;
} else {
$record{"scantron.$questnum.answer"}=
$alphabet[$currentquest-1];
}	}
}	}
} else {	} else {

	# Otherwise there's a positional notation;
	# each bubble line requires Qlength items, and there are filled in
	# bubbles for each case where there 'Qon' characters.
	#

my @array=split($$scantron_config{'Qon'},$currentquest,-1);	my @array=split($$scantron_config{'Qon'},$currentquest,-1);
if (length($array[0]) eq $$scantron_config{'Qlength'}) {
$record{"scantron.$questnum.answer"}='';	# If the split only giveas us one element.. the full length of the
	# answser string, no bubbles are filled in:

	if (length($array[0]) eq $$scantron_config{'Qlength'}*$answers_needed) {
	for (my $ans = 0; $ans < $answers_needed; $ans++ ) {
	$record{"scantron.$ansnum.answer"}='';
	$ansnum++;

	}
if (!&scan_data($scan_data,"$whichline.no_bubble.$questnum")) {	if (!&scan_data($scan_data,"$whichline.no_bubble.$questnum")) {
push(@{$record{"scantron.missingerror"}},$questnum);	push(@{$record{"scantron.missingerror"}},$questnum);
}	}
} else {	} elsif (scalar(@array) lt 2) {
$record{"scantron.$questnum.answer"}=
$alphabet[length($array[0])];	my $location = length($array[0]);
	my $line_num = $location / $$scantron_config{'Qlength'};
	my $bubble = $alphabet[$location % $$scantron_config{'Qlength'}];

	for (my $ans = 0; $ans < $answers_needed; $ans++) {
	if ($ans eq $line_num) {
	$record{"scantron.$ansnum.answer"} = $bubble;
	} else {
	$record{"scantron.$ansnum.answer"} = ' ';
	}
	$ansnum++;
	}
}	}
if (scalar(@array) gt 2) {	# If there's more than one instance of a bubble character
	# That's a double bubble; with positional notation we can
	# record all the bubbles filled in as well as the
	# fact this response consists of multiple bubbles.
	#
	else {
push(@{$record{'scantron.doubleerror'}},$questnum);	push(@{$record{'scantron.doubleerror'}},$questnum);

	my $first_answer = $ansnum;
	for (my $ans =0; $ans < $answers_needed; $ans++) {
	my $item = $first_answer+$ans;
	$record{"scantron.$item.answer"} = '';
	}

my @ans=@array;	my @ans=@array;
my $i=length($ans[0]);shift(@ans);	my $i=0;
	my $increment = 0;
while ($#ans) {	while ($#ans) {
$i+=length($ans[0])+1;	$i+=length($ans[0]) + $increment;
$record{"scantron.$questnum.answer"}.=$alphabet[$i];	my $line = int($i/$$scantron_config{'Qlength'} + $first_answer);
	my $bubble = $i%$$scantron_config{'Qlength'};
	$record{"scantron.$line.answer"}.=$alphabet[$bubble];
shift(@ans);	shift(@ans);
	$increment = 1;
}	}
	$ansnum += $answers_needed;
}	}
}	}
}	}
Line 5487 sub scantron_form_start {	Line 5790 sub scantron_form_start {
<input type="hidden" name="scantron_options_ignore" value="$env{'form.scantron_options_ignore'}" />	<input type="hidden" name="scantron_options_ignore" value="$env{'form.scantron_options_ignore'}" />
<input type="hidden" name="scantron_options_hidden" value="$env{'form.scantron_options_hidden'}" />	<input type="hidden" name="scantron_options_hidden" value="$env{'form.scantron_options_hidden'}" />
SCANTRONFORM	SCANTRONFORM

	my $line = 0;
	while (defined($env{"form.scantron.bubblelines.$line"})) {
	my $chunk =
	'<input type="hidden" name="scantron.bubblelines.'.$line.'" value="'.$env{"form.scantron.bubblelines.$line"}.'" />'."\n";
	$chunk .=
	'<input type="hidden" name="scantron.first_bubble_line.'.$line.'" value="'.$env{"form.scantron.first_bubble_line.$line"}.'" />'."\n";
	$result .= $chunk;
	$line++;
	}
return $result;	return $result;
}	}

Line 5545 sub scantron_validate_file {	Line 5858 sub scantron_validate_file {
}	}
my $currentphase=$env{'form.validatepass'};	my $currentphase=$env{'form.validatepass'};


my $stop=0;	my $stop=0;
while (!$stop && $currentphase < scalar(@validate_phases)) {	while (!$stop && $currentphase < scalar(@validate_phases)) {
$r->print("<p> Validating ".$validate_phases[$currentphase]."</p>");	$r->print("<p> Validating ".$validate_phases[$currentphase]."</p>");
Line 5968 sub scantron_validate_ID {	Line 6282 sub scantron_validate_ID {
#get scantron line setup	#get scantron line setup
my %scantron_config=&get_scantron_config($env{'form.scantron_format'});	my %scantron_config=&get_scantron_config($env{'form.scantron_format'});
my ($scanlines,$scan_data)=&scantron_getfile();	my ($scanlines,$scan_data)=&scantron_getfile();

	&scantron_get_maxbubble(); # parse needs the bubble_lines.. array.

my %found=('ids'=>{},'usernames'=>{});	my %found=('ids'=>{},'usernames'=>{});
for (my $i=0;$i<=$scanlines->{'count'};$i++) {	for (my $i=0;$i<=$scanlines->{'count'};$i++) {
Line 6053 sub scantron_validate_ID {	Line 6369 sub scantron_validate_ID {
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)=@_;

#FIXME in the case of a duplicated ID the previous line, probaly need	#FIXME in the case of a duplicated ID the previous line, probably need
#to show both the current line and the previous one and allow skipping	#to show both the current line and the previous one and allow skipping
#the previous one or the current one	#the previous one or the current one

Line 6152 ENDSCRIPT	Line 6468 ENDSCRIPT
$r->print($message);	$r->print($message);
$r->print("<p>Please indicate which bubble should be used for grading</p>");	$r->print("<p>Please indicate which bubble should be used for grading</p>");
foreach my $question (@{$arg}) {	foreach my $question (@{$arg}) {
my $selected=$$scan_record{"scantron.$question.answer"};	my $selected = &get_response_bubbles($scan_record, $question);
	my @select_array = split(/:/,$selected);
&scantron_bubble_selector($r,$scan_config,$question,	&scantron_bubble_selector($r,$scan_config,$question,
split('',$selected));	@select_array);
}	}
} elsif ($error eq 'missingbubble') {	} elsif ($error eq 'missingbubble') {
$r->print("<p>There have been <b>no</b> bubbles scanned for some question(s)</p>\n");	$r->print("<p>There have been <b>no</b> bubbles scanned for some question(s)</p>\n");
Line 6164 ENDSCRIPT	Line 6481 ENDSCRIPT
$r->print('<input type="hidden" name="scantron_questions" value="'.	$r->print('<input type="hidden" name="scantron_questions" value="'.
join(',',@{$arg}).'" />');	join(',',@{$arg}).'" />');
foreach my $question (@{$arg}) {	foreach my $question (@{$arg}) {
my $selected=$$scan_record{"scantron.$question.answer"};	my $selected = &get_response_bubbles($scan_record, $question);
&scantron_bubble_selector($r,$scan_config,$question);	my @select_array = split(/:/,$selected); # ought to be an array of empties.
	&scantron_bubble_selector($r,$scan_config,$question, @select_array);
}	}
} else {	} else {
$r->print("\n<ul>");	$r->print("\n<ul>");
Line 6185 ENDSCRIPT	Line 6503 ENDSCRIPT
$r - Apache request object	$r - Apache request object
$scan_config - hash from &get_scantron_config()	$scan_config - hash from &get_scantron_config()
$quest - number of the bubble line to make a corrector for	$quest - number of the bubble line to make a corrector for
$selected - array of letters of previously selected bubbles	@lines - array of answer lines.
$lines - if present, number of bubble lines to show

=cut	=cut

sub scantron_bubble_selector {	sub scantron_bubble_selector {
my ($r,$scan_config,$quest,@selected, $lines)=@_;	my ($r,$scan_config,$quest,@lines)=@_;
my $max=$$scan_config{'Qlength'};	my $max=$$scan_config{'Qlength'};


my $scmode=$$scan_config{'Qon'};	my $scmode=$$scan_config{'Qon'};

	my $bubble_length = scalar(@lines);


if ($scmode eq 'number' \|\| $scmode eq 'letter') { $max=10; }	if ($scmode eq 'number' \|\| $scmode eq 'letter') { $max=10; }

	my $response = $quest-1;
	my $lines = $bubble_lines_per_response{$response};

if (!defined($lines)) {
$lines = 1;
}
my $total_lines = $lines*2;	my $total_lines = $lines*2;
my @alphabet=('A'..'Z');	my @alphabet=('A'..'Z');
$r->print("<table border='1'><tr><td rowspan='".$total_lines."'>$quest</td>");	$r->print("<table border='1'><tr><td rowspan='".$total_lines."'>$quest</td>");
Line 6209 sub scantron_bubble_selector {	Line 6530 sub scantron_bubble_selector {
if ($l != 0) {	if ($l != 0) {
$r->print('<tr>');	$r->print('<tr>');
}	}
	my @selected = split(//,$lines[$l]);
# FIXME: This loop probably has to be considerably more clever for
# multiline bubbles: User can multibubble by having bubbles in
# several lines. User can skip lines legitimately etc. etc.

for (my $i=0;$i<$max;$i++) {	for (my $i=0;$i<$max;$i++) {
$r->print("\n".'<td align="center">');	$r->print("\n".'<td align="center">');
if ($selected[0] eq $alphabet[$i]) {	if ($selected[0] eq $alphabet[$i]) {
Line 6374 sub scantron_validate_CODE {	Line 6691 sub scantron_validate_CODE {

my %allcodes=&get_codes();	my %allcodes=&get_codes();

	&scantron_get_maxbubble(); # parse needs the lines per response array.

my ($scanlines,$scan_data)=&scantron_getfile();	my ($scanlines,$scan_data)=&scantron_getfile();
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);
Line 6426 sub scantron_validate_doublebubble {	Line 6745 sub scantron_validate_doublebubble {
#get scantron line setup	#get scantron line setup
my %scantron_config=&get_scantron_config($env{'form.scantron_format'});	my %scantron_config=&get_scantron_config($env{'form.scantron_format'});
my ($scanlines,$scan_data)=&scantron_getfile();	my ($scanlines,$scan_data)=&scantron_getfile();

	&scantron_get_maxbubble(); # parse needs the bubble line array.

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 6449 sub scantron_validate_doublebubble {	Line 6771 sub scantron_validate_doublebubble {
resource and then checking &Apache::lonxml::get_problem_counter()	resource and then checking &Apache::lonxml::get_problem_counter()
for what the current value of the problem counter is.	for what the current value of the problem counter is.

Caches the result to $env{'form.scantron_maxbubble'}	Caches the results to $env{'form.scantron_maxbubble'},
	$env{'form.scantron.bubble_lines.n'} and
	$env{'form.scantron.first_bubble_line.n'}
	which are the total number of bubble, lines, the number of bubble
	lines for reponse n and number of the first bubble line for response n.

=cut	=cut

sub scantron_get_maxbubble {	sub scantron_get_maxbubble {
if (defined($env{'form.scantron_maxbubble'}) &&	if (defined($env{'form.scantron_maxbubble'}) &&
$env{'form.scantron_maxbubble'}) {	$env{'form.scantron_maxbubble'}) {
	&restore_bubble_lines();
return $env{'form.scantron_maxbubble'};	return $env{'form.scantron_maxbubble'};
}	}

my $navmap=Apache::lonnavmaps::navmap->new();	my (undef, undef, $sequence) =
my (undef,undef,$sequence)=
&Apache::lonnet::decode_symb($env{'form.selectpage'});	&Apache::lonnet::decode_symb($env{'form.selectpage'});

	my $navmap=Apache::lonnavmaps::navmap->new();
my $map=$navmap->getResourceByUrl($sequence);	my $map=$navmap->getResourceByUrl($sequence);
my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0);	my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0);

&Apache::lonxml::clear_problem_counter();	&Apache::lonxml::clear_problem_counter();

	my $uname = $env{'form.student'};
	my $udom = $env{'form.userdom'};
	my $cid = $env{'request.course.id'};
	my $total_lines = 0;
	%bubble_lines_per_response = ();
	%first_bubble_line = ();


	my $response_number = 0;
	my $bubble_line = 0;
foreach my $resource (@resources) {	foreach my $resource (@resources) {
	my $symb = $resource->symb();
	&Apache::lonxml::clear_bubble_lines_for_part();
my $result=&Apache::lonnet::ssi($resource->src(),	my $result=&Apache::lonnet::ssi($resource->src(),
('symb' => $resource->symb()));	('symb' => $resource->symb()),
	('grade_target' => 'analyze'),
	('grade_courseid' => $cid),
	('grade_domain' => $udom),
	('grade_username' => $uname));
	my (undef, $an) =
	split(/_HASH_REF__/,$result, 2);

	my %analysis = &Apache::lonnet::str2hash($an);



	foreach my $part_id (@{$analysis{'parts'}}) {


	my $lines = $analysis{"$part_id.bubble_lines"};;

	# TODO - make this a persistent hash not an array.


	$first_bubble_line{$response_number} = $bubble_line;
	$bubble_lines_per_response{$response_number} = $lines;
	$response_number++;

	$bubble_line += $lines;
	$total_lines += $lines;
	}

}	}
&Apache::lonnet::delenv('scantron\.');	&Apache::lonnet::delenv('scantron\.');
$env{'form.scantron_maxbubble'} =
&Apache::lonxml::get_problem_counter()-1;

	&save_bubble_lines();
	$env{'form.scantron_maxbubble'} =
	$total_lines;
return $env{'form.scantron_maxbubble'};	return $env{'form.scantron_maxbubble'};
}	}

Line 6484 sub scantron_get_maxbubble {	Line 6851 sub scantron_get_maxbubble {
=item scantron_validate_missingbubbles	=item scantron_validate_missingbubbles

Validates all scanlines in the selected file to not have any	Validates all scanlines in the selected file to not have any
bubble lines with missing bubbles that haven't been verified as missing.	answers that don't have bubbles that have not been verified
	to be bubble free.

=cut	=cut

Line 6506 sub scantron_validate_missingbubbles {	Line 6874 sub scantron_validate_missingbubbles {
$scan_data);	$scan_data);
if (!defined($$scan_record{'scantron.missingerror'})) { next; }	if (!defined($$scan_record{'scantron.missingerror'})) { next; }
my @to_correct;	my @to_correct;

	# Probably here's where the error is...

foreach my $missing (@{$$scan_record{'scantron.missingerror'}}) {	foreach my $missing (@{$$scan_record{'scantron.missingerror'}}) {
if ($missing > $max_bubble) { next; }	if ($missing > $max_bubble) { next; }
push(@to_correct,$missing);	push(@to_correct,$missing);
Line 6578 SCANTRONFORM	Line 6949 SCANTRONFORM
my $start=&Time::HiRes::time();	my $start=&Time::HiRes::time();
my $i=-1;	my $i=-1;
my ($uname,$udom,$started);	my ($uname,$udom,$started);

	&scantron_get_maxbubble(); # Need the bubble lines array to parse.

while ($i<$scanlines->{'count'}) {	while ($i<$scanlines->{'count'}) {
($uname,$udom)=('','');	($uname,$udom)=('','');
$i++;	$i++;
Line 6628 SCANTRONFORM	Line 7002 SCANTRONFORM
}	}
my $result=&Apache::lonnet::ssi($resource->src(),%form);	my $result=&Apache::lonnet::ssi($resource->src(),%form);
if ($result ne '') {	if ($result ne '') {
&Apache::lonnet::logthis("scantron grading error -> $result");
&Apache::lonnet::logthis("scantron grading error info name $uname domain $udom course $env{'request.course.id'} url ".$resource->src());
}	}
if (&Apache::loncommon::connection_aborted($r)) { last; }	if (&Apache::loncommon::connection_aborted($r)) { last; }
}	}
Line 6854 sub savedState {	Line 7226 sub savedState {
return \%savedState;	return \%savedState;
}	}

#--- Displays the main menu page -------	sub grading_menu {
sub gradingmenu {	my ($request) = @_;
	my ($symb)=&get_symb($request);
	if (!$symb) {return '';}
	my $probTitle = &Apache::lonnet::gettitle($symb);
	my ($table,undef,$hdgrade) = &showResourceInfo($symb,$probTitle);

	$request->print($table);
	my %fields = ('symb'=>&Apache::lonenc::check_encrypt($symb),
	'handgrade'=>$hdgrade,
	'probTitle'=>$probTitle,
	'command'=>'submit_options',
	'saveState'=>"",
	'gradingMenu'=>1,
	'showgrading'=>"yes");
	my $url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);
	my @menu = ({ url => $url,
	name => &mt('Manual Grading/View Submissions'),
	short_description =>
	&mt('Start the process of hand grading submissions.'),
	});
	$fields{'command'} = 'csvform';
	$url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);
	push (@menu, { url => $url,
	name => &mt('Upload Scores'),
	short_description =>
	&mt('Specify a file containing the class scores for current resource.')});
	$fields{'command'} = 'processclicker';
	$url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);
	push (@menu, { url => $url,
	name => &mt('Process Clicker'),
	short_description =>
	&mt('Specify a file containing the clicker information for this resource.')});
	$fields{'command'} = 'scantron_selectphase';
	$url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);
	push (@menu, { url => $url,
	name => &mt('Grade/Manage Scantron Forms'),
	short_description =>
	&mt('')});
	$fields{'command'} = 'verify';
	$url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);
	push (@menu, { url => "",
	name => &mt('Verify Receipt'),
	short_description =>
	&mt('')});
	#
	# Create the menu
	my $Str;
	# $Str .= '<h2>'.&mt('Please select a grading task').'</h2>';
	$Str .= '<form method="post" action="" name="gradingMenu">';
	$Str .= '<input type="hidden" name="command" value="" />'.
	'<input type="hidden" name="symb" value="'.&Apache::lonenc::check_encrypt($symb).'" />'."\n".
	'<input type="hidden" name="handgrade" value="'.$hdgrade.'" />'."\n".
	'<input type="hidden" name="probTitle" value="'.$probTitle.'" ue="" />'."\n".
	'<input type="hidden" name="saveState" value="" />'."\n".
	'<input type="hidden" name="gradingMenu" value="1" />'."\n".
	'<input type="hidden" name="showgrading" value="yes" />'."\n";

	foreach my $menudata (@menu) {
	if ($menudata->{'name'} ne &mt('Verify Receipt')) {
	$Str .=' <h3><a '.
	$menudata->{'jscript'}.
	' href="'.
	$menudata->{'url'}.'" >'.
	$menudata->{'name'}."</a></h3>\n";
	} else {
	$Str .=' <h3><input type="button" value="Verify Receipt" '.
	$menudata->{'jscript'}.
	' onClick="javascript:checkChoice(document.forms.gradingMenu,\'5\',\'verify\')" '.
	' /></h3>';
	$Str .= (' 'x8).
	' receipt: '.&Apache::lonnet::recprefix($env{'request.course.id'}).
	'-<input type="text" name="receipt" size="4" onChange="javascript:checkReceiptNo(this.form,\'OK\')" />';
	}
	$Str .= ' '.(' 'x8).$menudata->{'short_description'}.
	"\n";
	}
	$Str .="</dl>\n";
	$Str .="</form>\n";
	$request->print(<<GRADINGMENUJS);
	<script type="text/javascript" language="javascript">
	function checkChoice(formname,val,cmdx) {
	if (val <= 2) {
	var cmd = radioSelection(formname.radioChoice);
	var cmdsave = cmd;
	} else {
	cmd = cmdx;
	cmdsave = 'submission';
	}
	formname.command.value = cmd;
	if (val < 5) formname.submit();
	if (val == 5) {
	if (!checkReceiptNo(formname,'notOK')) {
	return false;
	} else {
	formname.submit();
	}
	}
	}

	function checkReceiptNo(formname,nospace) {
	var receiptNo = formname.receipt.value;
	var checkOpt = false;
	if (nospace == "OK" && isNaN(receiptNo)) {checkOpt = true;}
	if (nospace == "notOK" && (isNaN(receiptNo) \|\| receiptNo == "")) {checkOpt = true;}
	if (checkOpt) {
	alert("Please enter a receipt number given by a student in the receipt box.");
	formname.receipt.value = "";
	formname.receipt.focus();
	return false;
	}
	return true;
	}
	</script>
	GRADINGMENUJS
	&commonJSfunctions($request);
	return $Str;
	}


	#--- Displays the submissions first page -------
	sub submit_options {
my ($request) = @_;	my ($request) = @_;
my ($symb)=&get_symb($request);	my ($symb)=&get_symb($request);
if (!$symb) {return '';}	if (!$symb) {return '';}
Line 6917 GRADINGMENUJS	Line 7409 GRADINGMENUJS
'<input type="hidden" name="gradingMenu" value="1" />'."\n".	'<input type="hidden" name="gradingMenu" value="1" />'."\n".
'<input type="hidden" name="showgrading" value="yes" />'."\n";	'<input type="hidden" name="showgrading" value="yes" />'."\n";

$result.='<table width="100%" border="0"><tr><td bgcolor=#777777>'."\n".	$result.='<table border="0"><tr><td bgcolor=#777777>'."\n".
'<table width="100%" border="0"><tr bgcolor="#e6ffff"><td colspan="2">'."\n".	'<table width="100%" border="0"><tr bgcolor="#e6ffff"><td>'."\n".
' <b>Select a Grading/Viewing Option</b></td></tr>'."\n".	' <b>Select a Grading/Viewing Option</b></td></tr>'."\n".
'<tr bgcolor="#ffffe6" valign="top"><td>'."\n";	'<tr bgcolor="#ffffe6" valign="top"><td>'."\n";

$result.='<table width="100%" border="0">';	$result.='<table width="100%" border="0">';
	$result.='<tr bgcolor="#ffffe6" valign="top">'."\n";
	$result.='<td><b>'.&mt('Sections').'</b></td>';
	$result.='<td><b>'.&mt('Groups').'</b></td>';
	$result.='<td><b>'.&mt('Access Status').'</td>'."\n";
	$result.='<td><b>'.&mt('Submission Status').'</td>'."\n";
	$result.='</tr>';
$result.='<tr bgcolor="#ffffe6" valign="top"><td>'."\n".	$result.='<tr bgcolor="#ffffe6" valign="top"><td>'."\n".
' '.&mt('Select Section').': <select name="section">'."\n";	' <select name="section" multiple="multiple" size="3">'."\n";
if (ref($sections)) {	if (ref($sections)) {
foreach (sort (@$sections)) {	foreach (sort (@$sections)) {
$result.='<option value="'.$_.'" '.	$result.='<option value="'.$_.'" '.
Line 6932 GRADINGMENUJS	Line 7430 GRADINGMENUJS
}	}
}	}
$result.= '<option value="all" '.($saveSec eq 'all' ? 'selected="selected"' : ''). '>all</option></select>   ';	$result.= '<option value="all" '.($saveSec eq 'all' ? 'selected="selected"' : ''). '>all</option></select>   ';
	$result.= '</td><td>'."\n";
	$result.= &Apache::lonstatistics::GroupSelect('group','multiple',3);
	$result.='</td><td>'."\n";
	$result.=&Apache::lonhtmlcommon::StatusOptions($saveStatus,undef,3,undef,'mult');

$result.=&mt('Student Status').':'.&Apache::lonhtmlcommon::StatusOptions($saveStatus,undef,1,undef);	$result.='</td>';
	$result.='<td><select name="submitonly" size="3">'.
$result.='</td></tr>';

$result.='<tr bgcolor="#ffffe6"valign="top"><td><label>'.
'<input type="radio" name="radioChoice" value="submission" '.
($saveCmd eq 'submission' ? 'checked="checked"' : '').' /> '.'<b>'.&mt('Current Resource').':</b> '.&mt('For one or more students').
'</label> <select name="submitonly">'.
'<option value="yes" '.	'<option value="yes" '.
($saveSub eq 'yes' ? 'selected="selected"' : '').'>'.&mt('with submissions').'</option>'.	($saveSub eq 'yes' ? 'selected="selected"' : '').'>'.&mt('with submissions').'</option>'.
'<option value="queued" '.	'<option value="queued" '.
Line 6950 GRADINGMENUJS	Line 7446 GRADINGMENUJS
'<option value="incorrect" '.	'<option value="incorrect" '.
($saveSub eq 'incorrect' ? 'selected="selected"' : '').'>'.&mt('with incorrect submissions').'</option>'.	($saveSub eq 'incorrect' ? 'selected="selected"' : '').'>'.&mt('with incorrect submissions').'</option>'.
'<option value="all" '.	'<option value="all" '.
($saveSub eq 'all' ? 'selected="selected"' : '').'>'.&mt('with any status').'</option></select></td></tr>'."\n";	($saveSub eq 'all' ? 'selected="selected"' : '').'>'.&mt('with any status').'</option></select></td></tr>';

$result.='<tr bgcolor="#ffffe6"valign="top"><td>'.	$result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="3"><label>'.
	'<input type="radio" name="radioChoice" value="submission" '.
	($saveCmd eq 'submission' ? 'checked="checked"' : '').' /> '.'<b>'.&mt('Current Resource').':</b> '.&mt('For one or more students').
	'</label> </td></tr>'."\n";

	$result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="3">'.
'<label><input type="radio" name="radioChoice" value="viewgrades" '.	'<label><input type="radio" name="radioChoice" value="viewgrades" '.
($saveCmd eq 'viewgrades' ? 'checked="checked"' : '').' /> '.	($saveCmd eq 'viewgrades' ? 'checked="checked"' : '').' /> '.
'<b>Current Resource:</b> For all students in selected section or course</label></td></tr>'."\n";	'<b>Current Resource:</b> For all students in selected section or course</label></td></tr>'."\n";

$result.='<tr bgcolor="#ffffe6" valign="top"><td>'.	$result.='<tr bgcolor="#ffffe6"><td colspan="3"><br />'.
'<label><input type="radio" name="radioChoice" value="pickStudentPage" '.	'<input type="button" onClick="javascript:checkChoice(this.form,\'2\');" value="Next->" />'.
	'</td></tr>'."\n";


	$result.='<tr bgcolor="#ffffe6" valign="top"><td colspan="3">'.
	'<br /><label><input type="radio" name="radioChoice" value="pickStudentPage" '.
($saveCmd eq 'pickStudentPage' ? 'checked="checked"' : '').' /> '.	($saveCmd eq 'pickStudentPage' ? 'checked="checked"' : '').' /> '.
'The <b>complete</b> set/page/sequence: For one student</label></td></tr>'."\n";	'The <b>complete</b> set/page/sequence/folder: For one student</label></td></tr>'."\n";

$result.='<tr bgcolor="#ffffe6"><td><br />'.	$result.='<tr bgcolor="#ffffe6"><td colspan="3"><br />'.
'<input type="button" onClick="javascript:checkChoice(this.form,\'2\');" value="Next->" />'.	'<input type="button" onClick="javascript:checkChoice(this.form,\'2\');" value="Next->" />'.
'</td></tr></table>'."\n";	'</td></tr></table>'."\n";

$result.='</td><td valign="top">';	$result.='</td>'; #<td valign="top">';

$result.='<table width="100%" border="0">';	# $result.='<table width="100%" border="0">';
$result.='<tr bgcolor="#ffffe6"><td>'.	# $result.='<tr bgcolor="#ffffe6"><td>'.
'<input type="button" onClick="javascript:checkChoice(this.form,\'3\',\'csvform\');" value="'.&mt('Upload').'" />'.	# '<input type="button" onClick="javascript:checkChoice(this.form,\'3\',\'csvform\');" value="'.&mt('Upload').'" />'.
' '.&mt('scores from file').' </td></tr>'."\n";	# ' '.&mt('scores from file').' </td></tr>'."\n";
	#
$result.='<tr bgcolor="#ffffe6"><td>'.	# $result.='<tr bgcolor="#ffffe6"><td>'.
'<input type="button" onClick="javascript:checkChoice(this.form,\'6\',\'processclicker\');" value="'.&mt('Process').'" />'.	# '<input type="button" onClick="javascript:checkChoice(this.form,\'6\',\'processclicker\');" value="'.&mt('Process').'" />'.
' '.&mt('clicker file').' </td></tr>'."\n";	# ' '.&mt('clicker file').' </td></tr>'."\n";
	#
$result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.	# $result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.
'<input type="button" onClick="javascript:checkChoice(this.form,\'4\',\'scantron_selectphase\');'.	# '<input type="button" onClick="javascript:checkChoice(this.form,\'4\',\'scantron_selectphase\');'.
'" value="'.&mt('Grade').'" /> scantron forms</td></tr>'."\n";	# '" value="'.&mt('Grade').'" /> scantron forms</td></tr>'."\n";
	#
if ((&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) && ($symb)) {	# if ((&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) && ($symb)) {
$result.='<tr bgcolor="#ffffe6"valign="top"><td>'.	# $result.='<tr bgcolor="#ffffe6"valign="top"><td>'.
'<input type="button" onClick="javascript:checkChoice(this.form,\'5\',\'verify\');" value="'.&mt('Verify').'" />'.	# '<input type="button" onClick="javascript:checkChoice(this.form,\'5\',\'verify\');" value="'.&mt('Verify').'" />'.
' '.&mt('receipt').': '.	# ' '.&mt('receipt').': '.
&Apache::lonnet::recprefix($env{'request.course.id'}).	# &Apache::lonnet::recprefix($env{'request.course.id'}).
'-<input type="text" name="receipt" size="4" onChange="javascript:checkReceiptNo(this.form,\'OK\')" />'.	# '-<input type="text" name="receipt" size="4" onChange="javascript:checkReceiptNo(this.form,\'OK\')" />'.
'</td></tr>'."\n";	# '</td></tr>'."\n";
}	# }
$result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.	# $result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.
'<input type="button" onClick="javascript:this.form.action=\'/adm/helper/resettimes.helper\';this.form.submit();'.	# '<input type="button" onClick="javascript:this.form.action=\'/adm/helper/resettimes.helper\';this.form.submit();'.
'" value="'.&mt('Manage').'" /> access times.</td></tr>'."\n";	# '" value="'.&mt('Manage').'" /> access times.</td></tr>'."\n";
$result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.	# $result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.
'<input type="button" onClick="javascript:this.form.command.value=\'codelist\';this.form.action=\'/adm/pickcode\';this.form.submit();'.	# '<input type="button" onClick="javascript:this.form.command.value=\'codelist\';this.form.action=\'/adm/pickcode\';this.form.submit();'.
'" value="'.&mt('View').'" /> saved CODEs.</td></tr>'."\n";	# '" value="'.&mt('View').'" /> saved CODEs.</td></tr>'."\n";
	#
$result.='</table>'."\n".	# $result.='</table>'."\n".'</td>';
'</td></tr></table>'."\n".	$result.= '</tr></table>'."\n".
'</td></tr></table></form>'."\n";	'</td></tr></table></form>'."\n";
return $result;	return $result;
}	}
Line 7032 sub gather_clicker_ids {	Line 7538 sub gather_clicker_ids {
# Set up a couple variables.	# Set up a couple variables.
my $username_idx = &Apache::loncoursedata::CL_SNAME();	my $username_idx = &Apache::loncoursedata::CL_SNAME();
my $domain_idx = &Apache::loncoursedata::CL_SDOM();	my $domain_idx = &Apache::loncoursedata::CL_SDOM();
	my $status_idx = &Apache::loncoursedata::CL_STATUS();

foreach my $student (keys(%$classlist)) {	foreach my $student (keys(%$classlist)) {
	if ($classlist->{$student}->[$status_idx] ne 'Active') { next; }
my $username = $classlist->{$student}->[$username_idx];	my $username = $classlist->{$student}->[$username_idx];
my $domain = $classlist->{$student}->[$domain_idx];	my $domain = $classlist->{$student}->[$domain_idx];
my $clickers =	my $clickers =
Line 7171 function sanitycheck() {	Line 7678 function sanitycheck() {
<input type="hidden" name="saveState" value="$env{'form.saveState'}" />	<input type="hidden" name="saveState" value="$env{'form.saveState'}" />
<input type="file" name="upfile" size="50" />	<input type="file" name="upfile" size="50" />
<br /><label>$type: $selectform</label>	<br /><label>$type: $selectform</label>
<br /><label>$attendance: <input type="radio" name="gradingmechanism" value="attendance" $checked{'attendance'} onClick="sanitycheck()" /></label>	<br /><label><input type="radio" name="gradingmechanism" value="attendance" $checked{'attendance'} onClick="sanitycheck()" />$attendance </label>
<br /><label>$personnel: <input type="radio" name="gradingmechanism" value="personnel" $checked{'personnel'} onClick="sanitycheck()" /></label>	<br /><label><input type="radio" name="gradingmechanism" value="personnel" $checked{'personnel'} onClick="sanitycheck()" />$personnel</label>
<br /><label>$specific: <input type="radio" name="gradingmechanism" value="specific" $checked{'specific'} onClick="sanitycheck()" /></label>	<br /><label><input type="radio" name="gradingmechanism" value="specific" $checked{'specific'} onClick="sanitycheck()" />$specific </label>
<input type="text" name="specificid" value="$env{'form.specificid'}" size="20" />	<input type="text" name="specificid" value="$env{'form.specificid'}" size="20" />
<input type="hidden" name="waschecked" value="$env{'form.gradingmechanism'}" />	<input type="hidden" name="waschecked" value="$env{'form.gradingmechanism'}" />
<br /><label>$pcorrect: <input type="text" name="pcorrect" size="4" value="$env{'form.pcorrect'}" onChange="sanitycheck()" /></label>	<br /><label>$pcorrect: <input type="text" name="pcorrect" size="4" value="$env{'form.pcorrect'}" onChange="sanitycheck()" /></label>
Line 7276 ENDHEADER	Line 7783 ENDHEADER
}	}
$result.='<br />'.&mt('Found [_1] question(s)',$number).'<br />'.	$result.='<br />'.&mt('Found [_1] question(s)',$number).'<br />'.
'<input type="hidden" name="number" value="'.$number.'" />'.	'<input type="hidden" name="number" value="'.$number.'" />'.
	&mt('Awarding [_1] percent for corrion(s)',$number).'<br />'.
	'<input type="hidden" name="number" value="'.$number.'" />'.
&mt('Awarding [_1] percent for correct and [_2] percent for incorrect responses',	&mt('Awarding [_1] percent for correct and [_2] percent for incorrect responses',
$env{'form.pcorrect'},$env{'form.pincorrect'}).	$env{'form.pcorrect'},$env{'form.pincorrect'}).
'<br />';	'<br />';
Line 7295 ENDHEADER	Line 7804 ENDHEADER
$result.="\n".'<input type="hidden" name="correct:'.$correct_count.':'.$correct_ids{$id}.'" value="'.$responses{$id}.'" />';	$result.="\n".'<input type="hidden" name="correct:'.$correct_count.':'.$correct_ids{$id}.'" value="'.$responses{$id}.'" />';
$correct_count++;	$correct_count++;
} elsif ($clicker_ids{$id}) {	} elsif ($clicker_ids{$id}) {
$result.="\n".'<input type="hidden" name="student:'.$clicker_ids{$id}.'" value="'.$responses{$id}.'" />';	if ($clicker_ids{$id}=~/\,/) {
$student_count++;	# More than one user with the same clicker!
	$result.="\n<hr />".&mt('Clicker registered more than once').": <tt>".$id."</tt><br />";
	$result.="\n".'<input type="hidden" name="unknown:'.$id.'" value="'.$responses{$id}.'" />'.
	"<select name='multi".$id."'>";
	foreach my $reguser (sort(split(/\,/,$clicker_ids{$id}))) {
	$result.="<option value='".$reguser."'>".&Apache::loncommon::plainname(split(/\:/,$reguser)).' ('.$reguser.')</option>';
	}
	$result.='</select>';
	$unknown_count++;
	} else {
	# Good: found one and only one user with the right clicker
	$result.="\n".'<input type="hidden" name="student:'.$clicker_ids{$id}.'" value="'.$responses{$id}.'" />';
	$student_count++;
	}
} else {	} else {
$result.="\n<hr />".&mt('Unregistered Clicker')." <tt>".$id."</tt><br />";	$result.="\n<hr />".&mt('Unregistered Clicker')." <tt>".$id."</tt><br />";
$result.="\n".'<input type="hidden" name="unknown:'.$id.'" value="'.$responses{$id}.'" />'.	$result.="\n".'<input type="hidden" name="unknown:'.$id.'" value="'.$responses{$id}.'" />'.
Line 7316 ENDHEADER	Line 7838 ENDHEADER
$result.='<br /><span class="LC_warning">'.&mt("Found [_1] entries for grading!",$correct_count).'</span>';	$result.='<br /><span class="LC_warning">'.&mt("Found [_1] entries for grading!",$correct_count).'</span>';
}	}
}	}
	if ($number<1) {
	$errormsg.="Found no questions.";
	}
if ($errormsg) {	if ($errormsg) {
$result.='<br /><span class="LC_error">'.&mt($errormsg).'</span>';	$result.='<br /><span class="LC_error">'.&mt($errormsg).'</span>';
} else {	} else {
Line 7444 ENDHEADER	Line 7969 ENDHEADER
my $id=$1;	my $id=$1;
if (($env{'form.uname'.$id}) && ($env{'form.udom'.$id})) {	if (($env{'form.uname'.$id}) && ($env{'form.udom'.$id})) {
$user=$env{'form.uname'.$id}.':'.$env{'form.udom'.$id};	$user=$env{'form.uname'.$id}.':'.$env{'form.udom'.$id};
	} elsif ($env{'form.multi'.$id}) {
	$user=$env{'form.multi'.$id};
}	}
}	}
if ($user) {	if ($user) {
Line 7488 ENDHEADER	Line 8015 ENDHEADER

sub handler {	sub handler {
my $request=$_[0];	my $request=$_[0];
	&reset_caches();
&reset_perm();
if ($env{'browser.mathml'}) {	if ($env{'browser.mathml'}) {
&Apache::loncommon::content_type($request,'text/xml');	&Apache::loncommon::content_type($request,'text/xml');
} else {	} else {
Line 7501 sub handler {	Line 8027 sub handler {
my $symb=&get_symb($request,1);	my $symb=&get_symb($request,1);
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];

if ($#commands > 0) {	if ($#commands > 0) {
&Apache::lonnet::logthis("grades got multiple commands ".join(':',@commands));	&Apache::lonnet::logthis("grades got multiple commands ".join(':',@commands));
}	}


$request->print(&Apache::loncommon::start_page('Grading'));	$request->print(&Apache::loncommon::start_page('Grading'));
if ($symb eq '' && $command eq '') {	if ($symb eq '' && $command eq '') {
if ($env{'user.adv'}) {	if ($env{'user.adv'}) {
Line 7544 sub handler {	Line 8073 sub handler {
} elsif ($command eq 'processGroup' && $perm{'vgr'}) {	} elsif ($command eq 'processGroup' && $perm{'vgr'}) {
&processGroup($request);	&processGroup($request);
} elsif ($command eq 'gradingmenu' && $perm{'vgr'}) {	} elsif ($command eq 'gradingmenu' && $perm{'vgr'}) {
$request->print(&gradingmenu($request));	$request->print(&grading_menu($request));
	} elsif ($command eq 'submit_options' && $perm{'vgr'}) {
	$request->print(&submit_options($request));
} elsif ($command eq 'viewgrades' && $perm{'vgr'}) {	} elsif ($command eq 'viewgrades' && $perm{'vgr'}) {
$request->print(&viewgrades($request));	$request->print(&viewgrades($request));
} elsif ($command eq 'handgrade' && $perm{'mgr'}) {	} elsif ($command eq 'handgrade' && $perm{'mgr'}) {
Line 7602 sub handler {	Line 8133 sub handler {
}	}
}	}
$request->print(&Apache::loncommon::end_page());	$request->print(&Apache::loncommon::end_page());
	&reset_caches();
return '';	return '';
}	}

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

Removed from v.1.425
changed lines
	Added in v.1.471