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.73 and 1.106

version 1.73, 2003/03/17 19:08:50	version 1.106, 2003/06/21 00:39:46
Line 46 use Apache::lonhomework;	Line 46 use Apache::lonhomework;
use Apache::loncoursedata;	use Apache::loncoursedata;
use Apache::lonmsg qw(:user_normal_msg);	use Apache::lonmsg qw(:user_normal_msg);
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
	use String::Similarity;

	my %oldessays=();
	my %perm=();

# ----- These first few routines are general use routines.----	# ----- These first few routines are general use routines.----
#	#
Line 113 sub response_type {	Line 117 sub response_type {
#--- 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,$hideexpired) = @_;	my ($getsec,$filterlist) = @_;
my $classlist=&Apache::loncoursedata::get_classlist();	my $classlist=&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));
Line 124 sub getclasslist {	Line 128 sub getclasslist {
# the following undefs are for 'domain', and 'username' respectively.	# the following undefs are for 'domain', and 'username' respectively.
my (undef,undef,$end,$start,$id,$section,$fullname,$status)=	my (undef,undef,$end,$start,$id,$section,$fullname,$status)=
@{$classlist->{$_}};	@{$classlist->{$_}};
# still a student?	# filter students according to status selected
if (($hideexpired) && ($status ne 'Active')) {	if ($filterlist && $ENV{'form.status'} ne 'Any') {
delete ($classlist->{$_});	if ($ENV{'form.status'} ne $status) {
next;	delete ($classlist->{$_});
}	next;
	}
	}
$section = ($section ne '' ? $section : 'no');	$section = ($section ne '' ? $section : 'no');
if ($getsec eq 'all' \|\| $getsec eq $section) {	if (&canview($section)) {
$sections{$section}++;	if ($getsec eq 'all' \|\| $getsec eq $section) {
$fullnames{$_}=$fullname;	$sections{$section}++;
} else {	$fullnames{$_}=$fullname;
delete($classlist->{$_});	} else {
}	delete($classlist->{$_});
	}
	} else {
	delete($classlist->{$_});
	}
}	}
my %seen = ();	my %seen = ();
my @sections = sort(keys(%sections));	my @sections = sort(keys(%sections));
return ($classlist,\@sections,\%fullnames);	return ($classlist,\@sections,\%fullnames);
}	}

#find user domain	sub canmodify {
sub finduser {	my ($sec)=@_;
my ($name) = @_;	if ($perm{'mgr'}) {
my $domain = '';	if (!defined($perm{'mgr_section'})) {
if ( $Apache::grades::viewgrades eq 'F' ) {	# can modify whole class
my %classlist=&Apache::lonnet::dump('classlist',	return 1;
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	} else {
$ENV{'course.'.$ENV{'request.course.id'}.'.num'});	if ($sec eq $perm{'mgr_section'}) {
my (@fields) = grep /^$name:/, keys %classlist;	#can modify the requested section
($name, $domain) = split(/:/,$fields[0]);	return 1;
return ($name,$domain);	} else {
} else {	# can't modify the request section
return ($ENV{'user.name'},$ENV{'user.domain'});	return 0;
	}
	}
}	}
	#can't modify
	return 0;
}	}

#--- Prompts a user to enter a username.	sub canview {
sub moreinfo {	my ($sec)=@_;
my ($request,$reason) = @_;	if ($perm{'vgr'}) {
$request->print("Unable to process request: $reason");	if (!defined($perm{'vgr_section'})) {
if ( $Apache::grades::viewgrades eq 'F' ) {	# can modify whole class
$request->print('<form action="/adm/grades" method="post">'."\n");	return 1;
if ($ENV{'form.url'}) {	} else {
$request->print('<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />'."\n");	if ($sec eq $perm{'vgr_section'}) {
}	#can modify the requested section
if ($ENV{'form.symb'}) {	return 1;
$request->print('<input type="hidden" name="symb" value="'.$ENV{'form.symb'}.'" />'."\n");	} else {
}	# can't modify the request section
$request->print('<input type="hidden" name="command" value="'.$ENV{'form.command'}.'" />'."\n");	return 0;
$request->print("Student:".'<input type="text" name="student" value="'.$ENV{'form.student'}.'" />'."<br />\n");	}
$request->print("Domain:".'<input type="text" name="domain" value="'.$ENV{'user.domain'}.'" />'."<br />\n");	}
$request->print('<input type="submit" name="submit" value="ReSubmit" />'."<br />\n");
$request->print('</form>');
}	}
return '';	#can't modify
	return 0;
}	}

#--- Retrieve the grade status of a student for all the parts	#--- Retrieve the grade status of a student for all the parts
Line 209 sub jscriptNform {	Line 222 sub jscriptNform {
$jscript.= '<form action="/adm/grades" method="post" name="onestudent">'."\n".	$jscript.= '<form action="/adm/grades" method="post" name="onestudent">'."\n".
'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".	'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
'<input type="hidden" name="url" value="'.$url.'" />'."\n".	'<input type="hidden" name="url" value="'.$url.'" />'."\n".
'<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".	'<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n".
'<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\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="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".
Line 220 sub jscriptNform {	Line 232 sub jscriptNform {
}	}

#------------------ End of general use routines --------------------	#------------------ End of general use routines --------------------

	#
	# Find most similar essay
	#

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

	# ignore spaces and punctuation

	$uessay=~s/\W+/ /gs;

	# these will be returned. Do not care if not at least 50 percent similar
	my $limit=0.6;
	my $sname='';
	my $sdom='';
	my $scrsid='';
	my $sessay='';
	# go through all essays ...
	foreach my $tkey (keys %oldessays) {
	my ($tname,$tdom,$tcrsid)=split(/\./,$tkey);
	# ... except the same student
	if (($tname ne $uname) \|\| ($tdom ne $udom)) {
	my $tessay=$oldessays{$tkey};
	$tessay=~s/\W+/ /gs;
	# String similarity gives up if not even limit
	my $tsimilar=&String::Similarity::similarity($uessay,$tessay,$limit);
	# Found one
	if ($tsimilar>$limit) {
	$limit=$tsimilar;
	$sname=$tname;
	$sdom=$tdom;
	$scrsid=$tcrsid;
	$sessay=$oldessays{$tkey};
	}
	}
	}
	if ($limit>0.6) {
	return ($sname,$sdom,$scrsid,$sessay,$limit);
	} else {
	return ('','','','',0);
	}
	}

#-------------------------------------------------------------------	#-------------------------------------------------------------------

#------------------------------------ Receipt Verification Routines	#------------------------------------ Receipt Verification Routines
Line 297 sub listStudents {	Line 353 sub listStudents {
'<td><b>Type: </b>'.$responsetype.'</td>'.	'<td><b>Type: </b>'.$responsetype.'</td>'.
'<td><b>Handgrade: </b>'.$handgrade.'</font></td></tr>';	'<td><b>Handgrade: </b>'.$handgrade.'</font></td></tr>';
}	}
$result.='</table>';	$result.='</table>'."\n";

my $viewgrade = $ENV{'form.handgrade'} eq 'yes' ? 'View/Grade' : 'View';	my $viewgrade = $ENV{'form.handgrade'} eq 'yes' ? 'View/Grade' : 'View';
	$ENV{'form.probTitle'} = $ENV{'form.probTitle'} eq '' ?
	&Apache::lonnet::gettitle($symb) : $ENV{'form.probTitle'};

$result='<h3><font color="#339933"> '.	$result='<h3><font color="#339933"> '.
$viewgrade.	$viewgrade.
Line 340 LISTJAVASCRIPT	Line 398 LISTJAVASCRIPT
my $checklastsub = $ENV{'form.handgrade'} eq 'yes' ? '' : 'checked';	my $checklastsub = $ENV{'form.handgrade'} eq 'yes' ? '' : 'checked';

my $gradeTable='<form action="/adm/grades" method="post" name="gradesub">'."\n".	my $gradeTable='<form action="/adm/grades" method="post" name="gradesub">'."\n".
' <b>View Problem: </b><input type="radio" name="vProb" value="no" /> no '."\n".	' <b>View Problem: </b><input type="radio" name="vProb" value="no" checked /> no '."\n".
'<input type="radio" name="vProb" value="yes" checked /> one student '."\n".	'<input type="radio" name="vProb" value="yes" /> one student '."\n".
'<input type="radio" name="vProb" value="all" /> all students <br />'."\n".	'<input type="radio" name="vProb" value="all" /> all students <br />'."\n".
' <b>Submissions: </b>'."\n";	' <b>Submissions: </b>'."\n";
if ($ENV{'form.handgrade'} eq 'yes') {	if ($ENV{'form.handgrade'} eq 'yes') {
Line 355 LISTJAVASCRIPT	Line 413 LISTJAVASCRIPT
'<input type="hidden" name="response" value="'.$ENV{'form.response'}.'" />'."\n".	'<input type="hidden" name="response" value="'.$ENV{'form.response'}.'" />'."\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".
'<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".	'<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n".
'<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\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="url" value="'.$url.'" />'."\n".	'<input type="hidden" name="url" value="'.$url.'" />'."\n".
'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".	'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
Line 368 LISTJAVASCRIPT	Line 425 LISTJAVASCRIPT
'onClick="javascript:checkSelect(this.form.stuinfo);" '."\n".	'onClick="javascript:checkSelect(this.form.stuinfo);" '."\n".
'value="'.$viewgrade.'" />'."\n";	'value="'.$viewgrade.'" />'."\n";

my (undef,undef,$fullname) = &getclasslist($getsec,'0');	my (undef,undef,$fullname) = &getclasslist($getsec,$ENV{'form.showgrading'} eq 'yes' ? '1' : '0');

$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">'.
Line 397 LISTJAVASCRIPT	Line 454 LISTJAVASCRIPT
next if ($statusflg eq '' && $submitonly eq 'yes');	next if ($statusflg eq '' && $submitonly eq 'yes');

$ctr++;	$ctr++;
if ( $Apache::grades::viewgrades eq 'F' ) {	if ( $perm{'vgr'} eq 'F' ) {
$gradeTable.='<tr bgcolor="#ffffe6">'.	$gradeTable.='<tr bgcolor="#ffffe6">'.
'<td align="center"><input type=checkbox name="stuinfo" value="'.	'<td align="center"><input type=checkbox name="stuinfo" value="'.
$student.':'.$$fullname{$student}.'"></td>'."\n".	$student.':'.$$fullname{$student}.'"></td>'."\n".
Line 417 LISTJAVASCRIPT	Line 474 LISTJAVASCRIPT
'onClick="javascript:checkSelect(this.form.stuinfo);" '.	'onClick="javascript:checkSelect(this.form.stuinfo);" '.
'value="'.$viewgrade.'" /></form>'."\n";	'value="'.$viewgrade.'" /></form>'."\n";
if ($ctr == 0) {	if ($ctr == 0) {
$gradeTable='<br /> <font color="red">'.	my $num_students=(scalar(keys(%$fullname)));
'No submission found for this resource.</font><br />';	if ($num_students eq 0) {
	$gradeTable='<br /> <font color="red">There are no students currently enrolled.</font>';
	} else {
	$gradeTable='<br /> <font color="red">'.
	'No submissions found for this resource for any students. ('.$num_students.' checked for submissions</font><br />';
	}
} elsif ($ctr == 1) {	} elsif ($ctr == 1) {
$gradeTable =~ s/type=checkbox/type=checkbox checked/;	$gradeTable =~ s/type=checkbox/type=checkbox checked/;
}	}
Line 626 SUBJAVASCRIPT	Line 688 SUBJAVASCRIPT
#--- javascript for essay type problem --	#--- javascript for essay type problem --
sub sub_page_kw_js {	sub sub_page_kw_js {
my $request = shift;	my $request = shift;
	my $iconpath = $request->dir_config('lonIconsURL');
$request->print(<<SUBJAVASCRIPT);	$request->print(<<SUBJAVASCRIPT);
<script type="text/javascript" language="javascript">	<script type="text/javascript" language="javascript">

//===================== Show list of keywords ====================	//===================== Show list of keywords ====================
function keywords(keyform) {	function keywords(keyform) {
var keywds = keyform.value;	var nret = prompt("Keywords list, separated by a space. Add/delete to list if desired.",keyform.value);
var nret = prompt("Keywords list, separated by a space. Add/delete to list if desired.",keywds);
if (nret==null) return;	if (nret==null) return;
keyform.value = nret;	keyform.value = nret;

Line 674 sub sub_page_kw_js {	Line 736 sub sub_page_kw_js {
}	}

//====================== Script for composing message ==============	//====================== Script for composing message ==============
	// preload images
	img1 = new Image();
	img1.src = "$iconpath/mailbkgrd.gif";
	img2 = new Image();
	img2.src = "$iconpath/mailto.gif";

function msgCenter(msgform,usrctr,fullname) {	function msgCenter(msgform,usrctr,fullname) {
var Nmsg = msgform.savemsgN.value;	var Nmsg = msgform.savemsgN.value;
savedMsgHeader(Nmsg,usrctr,fullname);	savedMsgHeader(Nmsg,usrctr,fullname);
Line 701 sub sub_page_kw_js {	Line 769 sub sub_page_kw_js {
return;	return;
}	}

	// var pWin = null;
function savedMsgHeader(Nmsg,usrctr,fullname) {	function savedMsgHeader(Nmsg,usrctr,fullname) {
var height = 50*Nmsg+250;	var height = 70*Nmsg+250;
var scrollbar = "no";	var scrollbar = "no";
if (height > 600) {	if (height > 600) {
height = 600;	height = 600;
scrollbar = "yes";	scrollbar = "yes";
}	}
/* if (window.pWin)	// if (window.pWin) {window.pWin.close(); window.pWin=null}
window.pWin.close(); */
pWin = window.open('', 'MessageCenter', 'toolbar=no,location=no,scrollbars='+scrollbar+',screenx=70,screeny=75,width=600,height='+height);	pWin = window.open('', 'MessageCenter', 'toolbar=no,location=no,scrollbars='+scrollbar+',screenx=70,screeny=75,width=600,height='+height);
pWin.document.write("<html><head>");	pWin.focus();
pWin.document.write("<title>Message Central</title>");	pDoc = pWin.document;
	pDoc.write("<html><head>");
pWin.document.write("<script language=javascript>");	pDoc.write("<title>Message Central</title>");
pWin.document.write("function checkInput() {");
pWin.document.write(" opener.document.SCORE.msgsub.value = document.msgcenter.msgsub.value;");	pDoc.write("<script language=javascript>");
pWin.document.write(" var nmsg = opener.document.SCORE.savemsgN.value;");	pDoc.write("function checkInput() {");
pWin.document.write(" var usrctr = document.msgcenter.usrctr.value;");	pDoc.write(" opener.document.SCORE.msgsub.value = document.msgcenter.msgsub.value;");
pWin.document.write(" var newval = eval(\\"opener.document.SCORE.newmsg\\"+usrctr);");	pDoc.write(" var nmsg = opener.document.SCORE.savemsgN.value;");
pWin.document.write(" newval.value = document.msgcenter.newmsg.value;");	pDoc.write(" var usrctr = document.msgcenter.usrctr.value;");
	pDoc.write(" var newval = eval(\\"opener.document.SCORE.newmsg\\"+usrctr);");
pWin.document.write(" var msgchk = \\"\\";");	pDoc.write(" newval.value = document.msgcenter.newmsg.value;");
pWin.document.write(" if (document.msgcenter.subchk.checked) {");
pWin.document.write(" msgchk = \\"msgsub,\\";");	pDoc.write(" var msgchk = \\"\\";");
pWin.document.write(" }");	pDoc.write(" if (document.msgcenter.subchk.checked) {");
pWin.document.write( "for (var i=1; i<=nmsg; i++) {");	pDoc.write(" msgchk = \\"msgsub,\\";");
pWin.document.write(" var opnmsg = eval(\\"opener.document.SCORE.savemsg\\"+i);");	pDoc.write(" }");
pWin.document.write(" var frmmsg = eval(\\"document.msgcenter.msg\\"+i);");	pDoc.write(" var includemsg = 0;");
pWin.document.write(" opnmsg.value = frmmsg.value;");	pDoc.write(" for (var i=1; i<=nmsg; i++) {");
pWin.document.write(" var chkbox = eval(\\"document.msgcenter.msgn\\"+i);");	pDoc.write(" var opnmsg = eval(\\"opener.document.SCORE.savemsg\\"+i);");
pWin.document.write(" if (chkbox.checked) {");	pDoc.write(" var frmmsg = eval(\\"document.msgcenter.msg\\"+i);");
pWin.document.write(" msgchk += \\"savemsg\\"+i+\\",\\";");	pDoc.write(" opnmsg.value = frmmsg.value;");
pWin.document.write(" }");	pDoc.write(" var chkbox = eval(\\"document.msgcenter.msgn\\"+i);");
pWin.document.write(" }");	pDoc.write(" if (chkbox.checked) {");
pWin.document.write(" if (document.msgcenter.newmsgchk.checked) {");	pDoc.write(" msgchk += \\"savemsg\\"+i+\\",\\";");
pWin.document.write(" msgchk += \\"newmsg\\"+usrctr;");	pDoc.write(" includemsg = 1;");
pWin.document.write(" }");	pDoc.write(" }");
pWin.document.write(" var includemsg = eval(\\"opener.document.SCORE.includemsg\\"+usrctr);");	pDoc.write(" }");
pWin.document.write(" includemsg.value = msgchk;");	pDoc.write(" if (document.msgcenter.newmsgchk.checked) {");
	pDoc.write(" msgchk += \\"newmsg\\"+usrctr;");
pWin.document.write(" self.close()");	pDoc.write(" includemsg = 1;");
	pDoc.write(" }");
pWin.document.write("}");	pDoc.write(" imgformname = eval(\\"opener.document.SCORE.mailicon\\"+usrctr);");
	pDoc.write(" imgformname.src = \\"$iconpath/\\"+((includemsg) ? \\"mailto.gif\\" : \\"mailbkgrd.gif\\");");
pWin.document.write("<");	pDoc.write(" var includemsg = eval(\\"opener.document.SCORE.includemsg\\"+usrctr);");
pWin.document.write("/script>");	pDoc.write(" includemsg.value = msgchk;");

pWin.document.write("</head><body bgcolor=white>");	pDoc.write(" self.close()");

pWin.document.write("<form action=\\"inactive\\" name=\\"msgcenter\\">");	pDoc.write("}");
pWin.document.write("<input value=\\""+usrctr+"\\" name=\\"usrctr\\" type=\\"hidden\\">");
pWin.document.write("<font color=\\"green\\" size=+1> Compose Message for \"+fullname+\"</font><br><br>");	pDoc.write("<");
	pDoc.write("/script>");
pWin.document.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">");
pWin.document.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">");	pDoc.write("</head><body bgcolor=white>");
pWin.document.write("<td><b>Type</b></td><td><b>Include</b></td><td><b>Message</td></tr>");
	pDoc.write("<form action=\\"inactive\\" name=\\"msgcenter\\">");
	pDoc.write("<input value=\\""+usrctr+"\\" name=\\"usrctr\\" type=\\"hidden\\">");
	pDoc.write("<font color=\\"green\\" size=+1> Compose Message for \"+fullname+\"</font><br><br>");

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

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

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

function msgTail() {	function msgTail() {
pWin.document.write("</table>");	pDoc = pWin.document;
pWin.document.write("</td></tr></table> ");	pDoc.write("</table>");
pWin.document.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:checkInput()\\">  ");	pDoc.write("</td></tr></table> ");
pWin.document.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>");	pDoc.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:checkInput()\\">  ");
pWin.document.write("</form>");	pDoc.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>");
pWin.document.write("</body></html>");	pDoc.write("</form>");
	pDoc.write("</body></html>");
}	}

//====================== Script for keyword highlight options ==============	//====================== Script for keyword highlight options ==============
Line 819 sub sub_page_kw_js {	Line 898 sub sub_page_kw_js {
return;	return;
}	}

	// var hwdWin = null;
function highlightCentral() {	function highlightCentral() {
	// if (window.hwdWin) window.hwdWin.close();
hwdWin = window.open('', 'KeywordHighlightCentral', 'toolbar=no,location=no,scrollbars=no,width=400,height=300,screenx=100,screeny=75');	hwdWin = window.open('', 'KeywordHighlightCentral', 'toolbar=no,location=no,scrollbars=no,width=400,height=300,screenx=100,screeny=75');
hwdWin.document.write("<html><head>");	hwdWin.focus();
hwdWin.document.write("<title>Highlight Central</title>");	var hDoc = hwdWin.document;
	hDoc.write("<html><head>");
hwdWin.document.write("<script language=javascript>");	hDoc.write("<title>Highlight Central</title>");
hwdWin.document.write("function updateChoice(flag) {");
hwdWin.document.write(" opener.document.SCORE.kwclr.value = radioSelection(document.hlCenter.kwdclr);");	hDoc.write("<script language=javascript>");
hwdWin.document.write(" opener.document.SCORE.kwsize.value = radioSelection(document.hlCenter.kwdsize);");	hDoc.write("function updateChoice(flag) {");
hwdWin.document.write(" opener.document.SCORE.kwstyle.value = radioSelection(document.hlCenter.kwdstyle);");	hDoc.write(" opener.document.SCORE.kwclr.value = radioSelection(document.hlCenter.kwdclr);");
hwdWin.document.write(" opener.document.SCORE.refresh.value = \\"on\\";");	hDoc.write(" opener.document.SCORE.kwsize.value = radioSelection(document.hlCenter.kwdsize);");
hwdWin.document.write(" if (opener.document.SCORE.keywords.value!=\\"\\"){");	hDoc.write(" opener.document.SCORE.kwstyle.value = radioSelection(document.hlCenter.kwdstyle);");
hwdWin.document.write(" opener.document.SCORE.submit();");	hDoc.write(" opener.document.SCORE.refresh.value = \\"on\\";");
hwdWin.document.write(" }");	hDoc.write(" if (opener.document.SCORE.keywords.value!=\\"\\"){");
hwdWin.document.write(" self.close()");	hDoc.write(" opener.document.SCORE.submit();");
hwdWin.document.write("}");	hDoc.write(" }");
	hDoc.write(" self.close()");
hwdWin.document.write("function radioSelection(radioButton) {");	hDoc.write("}");
hwdWin.document.write(" var selection=null;");
hwdWin.document.write(" for (var i=0; i<radioButton.length; i++) {");	hDoc.write("function radioSelection(radioButton) {");
hwdWin.document.write(" if (radioButton[i].checked) {");	hDoc.write(" var selection=null;");
hwdWin.document.write(" selection=radioButton[i].value;");	hDoc.write(" for (var i=0; i<radioButton.length; i++) {");
hwdWin.document.write(" return selection;");	hDoc.write(" if (radioButton[i].checked) {");
hwdWin.document.write(" }");	hDoc.write(" selection=radioButton[i].value;");
hwdWin.document.write(" }");	hDoc.write(" return selection;");
hwdWin.document.write("}");	hDoc.write(" }");
	hDoc.write(" }");
hwdWin.document.write("<");	hDoc.write("}");
hwdWin.document.write("/script>");
	hDoc.write("<");
hwdWin.document.write("</head><body bgcolor=white>");	hDoc.write("/script>");

hwdWin.document.write("<form action=\\"inactive\\" name=\\"hlCenter\\">");	hDoc.write("</head><body bgcolor=white>");
hwdWin.document.write("<font color=\\"green\\" size=+1> Keyword Highlight Options</font><br><br>");
	hDoc.write("<form action=\\"inactive\\" name=\\"hlCenter\\">");
hwdWin.document.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">");	hDoc.write("<font color=\\"green\\" size=+1> Keyword Highlight Options</font><br><br>");
hwdWin.document.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">");
hwdWin.document.write("<td><b>Text Color</b></td><td><b>Font Size</b></td><td><b>Font Style</td></tr>");	hDoc.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">");
	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>");
}	}

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

function highlightend() {	function highlightend() {
hwdWin.document.write("</table>");	var hDoc = hwdWin.document;
hwdWin.document.write("</td></tr></table> ");	hDoc.write("</table>");
hwdWin.document.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:updateChoice(1)\\">  ");	hDoc.write("</td></tr></table> ");
hwdWin.document.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>");	hDoc.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:updateChoice(1)\\">  ");
hwdWin.document.write("</form>");	hDoc.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>");
hwdWin.document.write("</body></html>");	hDoc.write("</form>");
	hDoc.write("</body></html>");
}	}

</script>	</script>
Line 974 sub submission {	Line 1058 sub submission {

(my $url=$ENV{'form.url'})=~s-^http://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;	(my $url=$ENV{'form.url'})=~s-^http://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;
my ($uname,$udom) = ($ENV{'form.student'},$ENV{'form.userdom'});	my ($uname,$udom) = ($ENV{'form.student'},$ENV{'form.userdom'});
($uname,$udom) = &finduser($uname) if $udom eq '';	my $usec = &Apache::lonnet::getsection($udom,$uname,$ENV{'request.course.id'});
$ENV{'form.fullname'} = &get_fullname ($uname,$udom) if $ENV{'form.fullname'} eq '';	$ENV{'form.fullname'} = &get_fullname ($uname,$udom) if $ENV{'form.fullname'} eq '';

my $symb=($ENV{'form.symb'} ne '' ? $ENV{'form.symb'} : (&Apache::lonnet::symbread($url)));	my $symb=($ENV{'form.symb'} ne '' ? $ENV{'form.symb'} : (&Apache::lonnet::symbread($url)));
if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; }	if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; }

	if (!&canview($usec)) {
	$request->print('<font color="red">Unable to view requested student.('.$uname.$udom.$usec.$ENV{'request.course.id'}.')</font>');
	$request->print(&show_grading_menu_form($symb,$url));
	return;
	}

my $last = ($ENV{'form.lastSub'} eq 'last' ? 'last' : '');	my $last = ($ENV{'form.lastSub'} eq 'last' ? 'last' : '');

# header info	# header info
if ($counter == 0) {	if ($counter == 0) {
&sub_page_js($request);	&sub_page_js($request);
&sub_page_kw_js($request);	&sub_page_kw_js($request);
	$ENV{'form.probTitle'} = $ENV{'form.probTitle'} eq '' ?
	&Apache::lonnet::gettitle($symb) : $ENV{'form.probTitle'};

$request->print('<h3> <font color="#339933">Submission Record</font></h3>'."\n".	$request->print('<h3> <font color="#339933">Submission Record</font></h3>'."\n".
'<font size=+1> <b>Problem: </b>'.$ENV{'form.probTitle'}.'</font>'."\n");	'<font size=+1> <b>Problem: </b>'.$ENV{'form.probTitle'}.'</font>'."\n");

Line 1015 sub submission {	Line 1109 sub submission {

$request->print('<form action="/adm/grades" method="post" name="SCORE">'."\n".	$request->print('<form action="/adm/grades" method="post" name="SCORE">'."\n".
'<input type="hidden" name="command" value="handgrade" />'."\n".	'<input type="hidden" name="command" value="handgrade" />'."\n".
'<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".	'<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n".
'<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\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".
'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".	'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
Line 1040 sub submission {	Line 1133 sub submission {
my ($cts,$prnmsg) = (1,'');	my ($cts,$prnmsg) = (1,'');
while ($cts <= $ENV{'form.savemsgN'}) {	while ($cts <= $ENV{'form.savemsgN'}) {
$prnmsg.='<input type="hidden" name="savemsg'.$cts.'" value="'.	$prnmsg.='<input type="hidden" name="savemsg'.$cts.'" value="'.
($keyhash{$symb.'_savemsg'.$cts} eq '' ? $ENV{'form.savemsg'.$cts} : $keyhash{$symb.'_savemsg'.$cts}).	($keyhash{$symb.'_savemsg'.$cts} eq '' ?
	&Apache::lonfeedback::clear_out_html($ENV{'form.savemsg'.$cts}) :
	&Apache::lonfeedback::clear_out_html($keyhash{$symb.'_savemsg'.$cts})).
'" />'."\n";	'" />'."\n";
$cts++;	$cts++;
}	}
$request->print($prnmsg);	$request->print($prnmsg);

if ($ENV{'form.handgrade'} eq 'yes' && $ENV{'form.showgrading'} eq 'yes') {	if ($ENV{'form.handgrade'} eq 'yes' && $ENV{'form.showgrading'} eq 'yes') {
	#
	# Print out the keyword options line
	#
$request->print(<<KEYWORDS);	$request->print(<<KEYWORDS);
<b>Keyword Options:</b>	<b>Keyword Options:</b>
<a href="javascript:keywords(document.SCORE.keywords)"; TARGET=_self>List</a>	<a href="javascript:keywords(document.SCORE.keywords)"; TARGET=_self>List</a>
Line 1054 sub submission {	Line 1152 sub submission {
CLASS="page">Paste Selection to List</a>	CLASS="page">Paste Selection to List</a>
<a href="javascript:kwhighlight()"; TARGET=_self>Highlight Attribute</a><br /><br />	<a href="javascript:kwhighlight()"; TARGET=_self>Highlight Attribute</a><br /><br />
KEYWORDS	KEYWORDS
	#
	# Load the other essays for similarity check
	#
	my $essayurl=&Apache::lonnet::declutter($url);
	my ($adom,$aname,$apath)=($essayurl=~/^(\w+)\/(\w+)\/(.*)$/);
	$apath=&Apache::lonnet::escape($apath);
	$apath=~s/\W/\_/gs;
	%oldessays=&Apache::lonnet::dump('nohist_essay_'.$apath,$adom,$aname);
}	}
}	}

Line 1080 KEYWORDS	Line 1186 KEYWORDS
my @col_fullnames;	my @col_fullnames;
my ($classlist,$fullname);	my ($classlist,$fullname);
if ($ENV{'form.handgrade'} eq 'yes') {	if ($ENV{'form.handgrade'} eq 'yes') {
my @col_list;
($classlist,undef,$fullname) = &getclasslist('all','0');	($classlist,undef,$fullname) = &getclasslist('all','0');
for (keys (%$handgrade)) {	for (keys (%$handgrade)) {
my $ncol = &Apache::lonnet::EXT('resource.'.$_.	my $ncol = &Apache::lonnet::EXT('resource.'.$_.
Line 1089 KEYWORDS	Line 1194 KEYWORDS
next if ($ncol <= 0);	next if ($ncol <= 0);
s/\_/\./g;	s/\_/\./g;
next if ($record{'resource.'.$_.'.collaborators'} eq '');	next if ($record{'resource.'.$_.'.collaborators'} eq '');
my (@collaborators) = split(/,?\s+/,	my @goodcollaborators = ();
$record{'resource.'.$_.'.collaborators'});	my @badcollaborators = ();
my (@badcollaborators);	foreach (split(/,?\s+/,$record{'resource.'.$_.'.collaborators'})) {
if (scalar(@collaborators) != 0) {	$_ =~ 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>';	$result.='<b>Collaborators: </b>';
foreach my $collaborator (@collaborators) {	foreach (@goodcollaborators) {
my ($co_name,$co_dom) = split /\@\|:/,$collaborator;	my ($lastname,$givenn) = split(/,/,$$fullname{$_});
$co_dom = $udom if (! defined($co_dom));	push @col_fullnames, $givenn.' '.$lastname;
next if ($co_name eq $uname && $co_dom eq $udom);	$result.=$$fullname{$_}.'     ';
# Doing this grep allows 'fuzzy' specification	}
my @Matches = grep /^$co_name:$co_dom/i,
keys %$classlist;
if (! scalar(@Matches)) {
push @badcollaborators,$collaborator;
next;
}
push @col_list, @Matches;
foreach (@Matches) {
my ($lastname,$givenn) = split(/,/,$$fullname{$_});
push @col_fullnames, $givenn.' '.$lastname;
$result.=$$fullname{$_}.'     ';
}
}
$result.='<br />'."\n";	$result.='<br />'."\n";
if (scalar(@badcollaborators) > 0) {	$result.='<input type="hidden" name="collaborator'.$counter.
$result.='<table border="0"><tr bgcolor="#ffbbbb"><td>';	'" value="'.(join ':',@goodcollaborators).'" />'."\n";
$result.='This student has submitted ';	}
if (scalar(@badcollaborators) == 1) {	if (scalar(@badcollaborators) > 0) {
$result .= 'an invalid collaborator';	$result.='<table border="0"><tr bgcolor="#ffbbbb"><td>';
} else {	$result.='This student has submitted ';
$result .= 'invalid collaborators';	$result.=(scalar(@badcollaborators) == 1) ? 'an invalid collaborator' : 'invalid collaborators';
}	$result .= ': '.join(', ',@badcollaborators);
$result .= ': '.join(', ',@badcollaborators);	$result .= '</td></tr></table>';
	}
}	if (scalar(@badcollaborators > $ncol)) {
if (scalar(@collaborators > $ncol)) {	$result .= '<table border="0"><tr bgcolor="#ffbbbb"><td>';
$result .= '<table border="0"><tr bgcolor="#ffbbbb"><td>';	$result .= 'This student has submitted too many '.
$result .= 'This student has sumbitted too many '.	'collaborators. Maximum is '.$ncol.'.';
'collaborators. Maximum is '.$ncol;	$result .= '</td></tr></table>';
$result .= '</td></tr></table>';	}
}
$result.='<input type="hidden" name="collaborator'.$counter.
'" value="'.(join ':',@col_list).'" />'."\n";
}
}	}
}	}
$request->print($result."\n");	$request->print($result."\n");
Line 1166 KEYWORDS	Line 1267 KEYWORDS
my ($partid,$respid) = /^resource\.(\d+)\.(\d+)\.submission/;	my ($partid,$respid) = /^resource\.(\d+)\.(\d+)\.submission/;
if ($part eq ($partid.'_'.$respid)) {	if ($part eq ($partid.'_'.$respid)) {
my ($ressub,$subval) = split(/:/,$_,2);	my ($ressub,$subval) = split(/:/,$_,2);
	# Similarity check
	my $similar='';
	my ($oname,$odom,$ocrsid,$oessay,$osim)=&most_similar($uname,$udom,$subval);
	if ($osim) {
	$osim=int($osim*100.0);
	$similar='<hr /><h3><font color="#FF0000">Essay is '.$osim.'% similar to an essay by '.&Apache::loncommon::plainname($oname,$odom).
	'</font></h3><blockquote><i>'.
	&keywords_highlight($oessay).'</i></blockquote><hr />';
	}
$lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part '.	$lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part '.
$partid.'</b> <font color="#999999">( ID '.$respid.	$partid.'</b> <font color="#999999">( ID '.$respid.
' )</font>   '.	' )</font>   '.
Line 1173 KEYWORDS	Line 1283 KEYWORDS
'<a href="'.	'<a href="'.
&Apache::lonnet::tokenwrapper($record{"resource.$partid.$respid.uploadedurl"}).	&Apache::lonnet::tokenwrapper($record{"resource.$partid.$respid.uploadedurl"}).
'"><img src="/adm/lonIcons/unknown.gif" border=0"> File uploaded by student</a> <font color="red" size="1">Like all files provided by users, this file may contain virusses</font><br />':'').	'"><img src="/adm/lonIcons/unknown.gif" border=0"> File uploaded by student</a> <font color="red" size="1">Like all files provided by users, this file may contain virusses</font><br />':'').
'<b>Answer: </b>'.	'<b>Answer: </b><blockquote>'.
&keywords_highlight($subval).'</td></tr>'."\n"	&keywords_highlight($subval).'</blockquote><br /> '.$similar.'</td></tr>'."\n"
if ($ENV{'form.lastSub'} eq 'lastonly' \|\|	if ($ENV{'form.lastSub'} eq 'lastonly' \|\|
($ENV{'form.lastSub'} eq 'hdgrade' &&	($ENV{'form.lastSub'} eq 'hdgrade' &&
$$handgrade{$part} =~ /:yes$/));	$$handgrade{$part} =~ /:yes$/));
Line 1193 KEYWORDS	Line 1303 KEYWORDS
}	}

# return if view submission with no grading option	# return if view submission with no grading option
if ($ENV{'form.showgrading'} eq '') {	if ($ENV{'form.showgrading'} eq '' \|\| (!&canmodify($usec))) {
$request->print('</td></tr></table></td></tr></table></form>'."\n");	$request->print('</td></tr></table></td></tr></table></form>'."\n");
$request->print(&show_grading_menu_form($symb,$url))	$request->print(&show_grading_menu_form($symb,$url))
if (($ENV{'form.command'} eq 'submission') \|\|	if (($ENV{'form.command'} eq 'submission') \|\|
Line 1212 KEYWORDS	Line 1322 KEYWORDS
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
$result.='<tr><td bgcolor="#ffffff">'."\n".	$result.='<tr><td bgcolor="#ffffff">'."\n".
' <a href="javascript:msgCenter(document.SCORE,'.$counter.	' <a href="javascript:msgCenter(document.SCORE,'.$counter.
',\''.$msgfor.'\')"; TARGET=_self>'.	',\''.$msgfor.'\')"; TARGET=_self>'.
'Compose Message to student'.(scalar(@col_fullnames) >= 1 ? 's' : '').'</a>'.	'Compose Message to student'.(scalar(@col_fullnames) >= 1 ? 's' : '').'</a>  '.
	'<img src="'.$request->dir_config('lonIconsURL').
	'/mailbkgrd.gif" width="14" height="10" name="mailicon'.$counter.'" />'."\n".
'<br /> (Message will be sent when you click on Save & Next below.)'."\n"	'<br /> (Message will be sent when you click on Save & Next below.)'."\n"
if ($ENV{'form.handgrade'} eq 'yes');	if ($ENV{'form.handgrade'} eq 'yes');
$request->print($result);	$request->print($result);
Line 1329 sub processHandGrade {	Line 1442 sub processHandGrade {
my $ctr = 0;	my $ctr = 0;
while ($ctr < $ngrade) {	while ($ctr < $ngrade) {
my ($uname,$udom) = split(/:/,$ENV{'form.unamedom'.$ctr});	my ($uname,$udom) = split(/:/,$ENV{'form.unamedom'.$ctr});
my ($errorflag) = &saveHandGrade($request,$url,$symb,$uname,$udom,$ctr);	my ($errorflag,$pts,$wgt) = &saveHandGrade($request,$url,$symb,$uname,$udom,$ctr);
if ($errorflag eq 'no_score') {	if ($errorflag eq 'no_score') {
$ctr++;	$ctr++;
next;	next;
}	}
	if ($errorflag eq 'not_allowed') {
	$request->print("<font color=\"red\">Not allowed to modify grades for $uname:$udom</font>");
	$ctr++;
	next;
	}
my $includemsg = $ENV{'form.includemsg'.$ctr};	my $includemsg = $ENV{'form.includemsg'.$ctr};
my ($subject,$message,$msgstatus) = ('','','');	my ($subject,$message,$msgstatus) = ('','','');
if ($includemsg =~ /savemsg\|newmsg\Q$ctr\E/) {	if ($includemsg =~ /savemsg\|newmsg\Q$ctr\E/) {
Line 1343 sub processHandGrade {	Line 1460 sub processHandGrade {
foreach (@msgnum) {	foreach (@msgnum) {
$message.=$ENV{'form.'.$_} if ($_ =~ /savemsg\|newmsg/ && $_ ne '');	$message.=$ENV{'form.'.$_} if ($_ =~ /savemsg\|newmsg/ && $_ ne '');
}	}
#$message =~ s/\s+/ /g;	$message =&Apache::lonfeedback::clear_out_html($message);
	$message.="\n\nPoint".($pts > 1 ? 's':'').' awarded = '.$pts.' out of '.$wgt;
	$message.=" for <a href=\"".
	&Apache::lonnet::clutter($url).
	"?symb=$symb\">$ENV{'form.probTitle'}</a>";
$msgstatus = &Apache::lonmsg::user_normal_msg ($uname,$udom,	$msgstatus = &Apache::lonmsg::user_normal_msg ($uname,$udom,
$ENV{'form.msgsub'},$message);	$ENV{'form.msgsub'},$message);
}	}
if ($ENV{'form.collaborator'.$ctr}) {	if ($ENV{'form.collaborator'.$ctr}) {
my (@collaborators) = split(/:/,$ENV{'form.collaborator'.$ctr});	my (@collaborators) = split(/:/,$ENV{'form.collaborator'.$ctr});
foreach (@collaborators) {	foreach (@collaborators) {
&saveHandGrade($request,$url,$symb,$_,$udom,$ctr,	my ($errorflag,$pts,$wgt) = &saveHandGrade($request,$url,$symb,$_,$udom,$ctr,$ENV{'form.unamedom'.$ctr});
$ENV{'form.unamedom'.$ctr});	if ($errorflag eq 'not_allowed') {
if ($message ne '') {	$request->print("<font color=\"red\">Not allowed to modify grades for $_:$udom</font>");
$msgstatus = &Apache::lonmsg::user_normal_msg ($_,$udom,	next;
$ENV{'form.msgsub'},	} else {
$message);	if ($message ne '') {
	$msgstatus = &Apache::lonmsg::user_normal_msg ($_,$udom,
	$ENV{'form.msgsub'},
	$message);
	}
}	}
}	}
}	}
Line 1404 sub processHandGrade {	Line 1529 sub processHandGrade {
$ENV{'course.'.$ENV{'request.course.id'}.'.num'});	$ENV{'course.'.$ENV{'request.course.id'}.'.num'});

# Called by Save & Refresh from Highlight Attribute Window	# Called by Save & Refresh from Highlight Attribute Window
	my (undef,undef,$fullname) = &getclasslist($ENV{'form.section'},'0');
if ($ENV{'form.refresh'} eq 'on') {	if ($ENV{'form.refresh'} eq 'on') {
my $ctr = 0;	my ($ctr,$total) = (0,0);
$ENV{'form.NTSTU'}=$ngrade;
while ($ctr < $ngrade) {	while ($ctr < $ngrade) {
($ENV{'form.student'},$ENV{'form.userdom'}) = split(/:/,$ENV{'form.unamedom'.$ctr});	$total++ if $ENV{'form.unamedom'.$ctr} ne '';
&submission($request,$ctr,$ngrade-1);	$ctr++;
	}
	$ENV{'form.NTSTU'}=$ngrade;
	$ctr = 0;
	while ($ctr < $total) {
	my $processUser = $ENV{'form.unamedom'.$ctr};
	($ENV{'form.student'},$ENV{'form.userdom'}) = split(/:/,$processUser);
	$ENV{'form.fullname'} = $$fullname{$processUser};
	&submission($request,$ctr,$total-1);
$ctr++;	$ctr++;
}	}
return '';	return '';
Line 1425 sub processHandGrade {	Line 1558 sub processHandGrade {
$laststu = $firststu if ($ctr > $ngrade);	$laststu = $firststu if ($ctr > $ngrade);
}	}

my (undef,undef,$fullname) = &getclasslist($ENV{'form.section'},'0');
my (@parsedlist,@nextlist);	my (@parsedlist,@nextlist);
my ($nextflg) = 0;	my ($nextflg) = 0;
foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {	foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {
Line 1481 sub processHandGrade {	Line 1613 sub processHandGrade {
#---- Save the score and award for each student, if changed	#---- Save the score and award for each student, if changed
sub saveHandGrade {	sub saveHandGrade {
my ($request,$url,$symb,$stuname,$domain,$newflg,$submitter) = @_;	my ($request,$url,$symb,$stuname,$domain,$newflg,$submitter) = @_;
my %record=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},$domain,$stuname);	my $usec = &Apache::lonnet::getsection($domain,$stuname,
my %newrecord;	$ENV{'request.course.id'});
	if (!&canmodify($usec)) { return('not_allowed'); }
	my %record = &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$domain,$stuname);
	my %newrecord = ();
	my ($pts,$wgt) = ('','');
foreach (split(/:/,$ENV{'form.partlist'.$newflg})) {	foreach (split(/:/,$ENV{'form.partlist'.$newflg})) {
if ($ENV{'form.GD_SEL'.$newflg.'_'.$_} eq 'excused') {	if ($ENV{'form.GD_SEL'.$newflg.'_'.$_} eq 'excused') {
if ($record{'resource.'.$_.'.solved'} ne 'excused') {	if ($record{'resource.'.$_.'.solved'} ne 'excused') {
Line 1492 sub saveHandGrade {	Line 1628 sub saveHandGrade {
}	}
}	}
} else {	} else {
my $pts = ($ENV{'form.GD_BOX'.$newflg.'_'.$_} ne '' ?	$pts = ($ENV{'form.GD_BOX'.$newflg.'_'.$_} ne '' ?
$ENV{'form.GD_BOX'.$newflg.'_'.$_} :	$ENV{'form.GD_BOX'.$newflg.'_'.$_} :
$ENV{'form.RADVAL'.$newflg.'_'.$_});	$ENV{'form.RADVAL'.$newflg.'_'.$_});
return 'no_score' if ($pts eq '' && $ENV{'form.GD_SEL'.$newflg.'_'.$_} eq '');	return 'no_score' if ($pts eq '' && $ENV{'form.GD_SEL'.$newflg.'_'.$_} eq '');
my $wgt = $ENV{'form.WGT'.$newflg.'_'.$_} eq '' ? 1 :	$wgt = $ENV{'form.WGT'.$newflg.'_'.$_} eq '' ? 1 :
$ENV{'form.WGT'.$newflg.'_'.$_};	$ENV{'form.WGT'.$newflg.'_'.$_};
my $partial= $pts/$wgt;	my $partial= $pts/$wgt;
$newrecord{'resource.'.$_.'.awarded'} = $partial	$newrecord{'resource.'.$_.'.awarded'} = $partial
Line 1519 sub saveHandGrade {	Line 1655 sub saveHandGrade {
&Apache::lonnet::cstore(\%newrecord,$symb,	&Apache::lonnet::cstore(\%newrecord,$symb,
$ENV{'request.course.id'},$domain,$stuname);	$ENV{'request.course.id'},$domain,$stuname);
}	}
return '';	return '',$pts,$wgt;
}	}

#--------------------------------------------------------------------------------------	#--------------------------------------------------------------------------------------
Line 1715 sub viewgrades {	Line 1851 sub viewgrades {
'<input type="hidden" name="url" value="'.$url.'" />'."\n".	'<input type="hidden" name="url" value="'.$url.'" />'."\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".	'<input type="hidden" name="section" value="'.$ENV{'form.section'}.'" />'."\n".
'<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".	'<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n".
'<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n".
'<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n";	'<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n";

$result.='<h3>Assign Common Grade To ';	$result.='<h3>Assign Common Grade To ';
Line 1807 sub viewgrades {	Line 1942 sub viewgrades {

#get info for each student	#get info for each student
#list all the students - with points and grade status	#list all the students - with points and grade status
my (undef,undef,$fullname) = &getclasslist($ENV{'form.section'},'0');	my (undef,undef,$fullname) = &getclasslist($ENV{'form.section'},'1');
my $ctr = 0;	my $ctr = 0;
foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {	foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {
my ($uname,$udom) = split(/:/);	my $uname = $_;
	$uname=~s/:/_/;
$result.='<input type="hidden" name="ctr'.$ctr.'" value="'.$uname.'" />'."\n";	$result.='<input type="hidden" name="ctr'.$ctr.'" value="'.$uname.'" />'."\n";
$result.=&viewstudentgrade($url,$symb,$ENV{'request.course.id'},	$result.=&viewstudentgrade($url,$symb,$ENV{'request.course.id'},
$_,$$fullname{$_},\@parts,\%weight);	$_,$$fullname{$_},\@parts,\%weight);
Line 1820 sub viewgrades {	Line 1956 sub viewgrades {
$result.='<input type="hidden" name="total" value="'.$ctr.'" />'."\n";	$result.='<input type="hidden" name="total" value="'.$ctr.'" />'."\n";
$result.='<input type="button" value="Submit Changes" '.	$result.='<input type="button" value="Submit Changes" '.
'onClick="javascript:submit();" TARGET=_self /></form>'."\n";	'onClick="javascript:submit();" TARGET=_self /></form>'."\n";
	if (scalar(%$fullname) eq 0) {
	my $colspan=3+scalar(@parts);
	$result='<font color="red">There are no students in section "'.$ENV{'form.section'}.'" with enrollment status "'.$ENV{'form.status'}.'" to modify or grade.</font>';
	}
$result.=&show_grading_menu_form($symb,$url);	$result.=&show_grading_menu_form($symb,$url);
return $result;	return $result;
}	}
Line 1828 sub viewgrades {	Line 1968 sub viewgrades {
sub viewstudentgrade {	sub viewstudentgrade {
my ($url,$symb,$courseid,$student,$fullname,$parts,$weight) = @_;	my ($url,$symb,$courseid,$student,$fullname,$parts,$weight) = @_;
my ($uname,$udom) = split(/:/,$student);	my ($uname,$udom) = split(/:/,$student);
	$student=~s/:/_/;
my %record=&Apache::lonnet::restore($symb,$courseid,$udom,$uname);	my %record=&Apache::lonnet::restore($symb,$courseid,$udom,$uname);
my $result='<tr bgcolor="#ffffdd"><td>'.	my $result='<tr bgcolor="#ffffdd"><td>'.
'<a href="javascript:viewOneStudent(\''.$uname.'\',\''.$udom.	'<a href="javascript:viewOneStudent(\''.$uname.'\',\''.$udom.
Line 1839 sub viewstudentgrade {	Line 1980 sub viewstudentgrade {
if ($type eq 'awarded') {	if ($type eq 'awarded') {
my $pts = $score eq '' ? '' : $score*$$weight{$part};	my $pts = $score eq '' ? '' : $score*$$weight{$part};
$result.='<input type="hidden" name="'.	$result.='<input type="hidden" name="'.
'GD_'.$uname.'_'.$part.'_awarded_s" value="'.$pts.'" />'."\n";	'GD_'.$student.'_'.$part.'_awarded_s" value="'.$pts.'" />'."\n";
$result.='<td align="middle"><input type="text" name="'.	$result.='<td align="middle"><input type="text" name="'.
'GD_'.$uname.'_'.$part.'_awarded" '.	'GD_'.$student.'_'.$part.'_awarded" '.
'onChange="javascript:changeSelect(\''.$part.'\',\''.$uname.	'onChange="javascript:changeSelect(\''.$part.'\',\''.$student.
'\')" value="'.$pts.'" size="4" /></td>'."\n";	'\')" value="'.$pts.'" size="4" /></td>'."\n";
} elsif ($type eq 'solved') {	} elsif ($type eq 'solved') {
my ($status,$foo)=split(/_/,$score,2);	my ($status,$foo)=split(/_/,$score,2);
$status = 'nothing' if ($status eq '');	$status = 'nothing' if ($status eq '');
$result.='<input type="hidden" name="'.'GD_'.$uname.'_'.	$result.='<input type="hidden" name="'.'GD_'.$student.'_'.
$part.'_solved_s" value="'.$status.'" />'."\n";	$part.'_solved_s" value="'.$status.'" />'."\n";
$result.='<td align="middle"><select name="'.	$result.='<td align="middle"><select name="'.
'GD_'.$uname.'_'.$part.'_solved" '.	'GD_'.$student.'_'.$part.'_solved" '.
'onChange="javascript:changeOneScore(\''.$part.'\',\''.$uname.'\')" >'."\n";	'onChange="javascript:changeOneScore(\''.$part.'\',\''.$student.'\')" >'."\n";
my $optsel = '<option selected="on"> </option><option>excused</option>'."\n";	my $optsel = '<option selected="on"> </option><option>excused</option>'."\n";
$optsel = '<option> </option><option selected="on">excused</option>'."\n"	$optsel = '<option> </option><option selected="on">excused</option>'."\n"
if ($status eq 'excused');	if ($status eq 'excused');
Line 1859 sub viewstudentgrade {	Line 2000 sub viewstudentgrade {
$result.="</select></td>\n";	$result.="</select></td>\n";
} else {	} else {
$result.='<input type="hidden" name="'.	$result.='<input type="hidden" name="'.
'GD_'.$uname.'_'.$part.'_'.$type.'_s" value="'.$score.'" />'.	'GD_'.$student.'_'.$part.'_'.$type.'_s" value="'.$score.'" />'.
"\n";	"\n";
$result.='<td align="middle"><input type="text" name="'.	$result.='<td align="middle"><input type="text" name="'.
'GD_'.$uname.'_'.$part.'_'.$type.'" '.	'GD_'.$student.'_'.$part.'_'.$type.'" '.
'value="'.$score.'" size="4" /></td>'."\n";	'value="'.$score.'" size="4" /></td>'."\n";
}	}
}	}
Line 1882 sub editgrades {	Line 2023 sub editgrades {
$title.='<font size=+1><b>Section: </b>'.$ENV{'form.section'}.'</font>'."\n";	$title.='<font size=+1><b>Section: </b>'.$ENV{'form.section'}.'</font>'."\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">'.
'<td rowspan=2><b>Username</b></td><td rowspan=2><b>Fullname</b></td>'."\n";	'<td rowspan=2><b>Username</b></td><td rowspan=2><b>Domain</b></td><td rowspan=2><b>Fullname</b></td>'."\n";

my %scoreptr = (	my %scoreptr = (
'correct' =>'correct_by_override',	'correct' =>'correct_by_override',
Line 1930 sub editgrades {	Line 2071 sub editgrades {
$result .= '</tr><tr bgcolor="#deffff">';	$result .= '</tr><tr bgcolor="#deffff">';
$result .= $header;	$result .= $header;
$result .= '</tr>'."\n";	$result .= '</tr>'."\n";
	my $noupdate;
for ($i=0; $i<$ENV{'form.total'}; $i++) {	for ($i=0; $i<$ENV{'form.total'}; $i++) {
	my $line;
my $user = $ENV{'form.ctr'.$i};	my $user = $ENV{'form.ctr'.$i};
	my $usercolon = $user;
	$usercolon =~s/_/:/;
	my ($uname,$udom)=split(/_/,$user);
my %newrecord;	my %newrecord;
my $updateflag = 0;	my $updateflag = 0;
my @userdom = grep /^$user:/,keys %$classlist;	$line .= '<tr bgcolor="#ffffde"><td>'.$uname.' </td><td>'.
my (undef,$udom) = split(/:/,$userdom[0]);	$udom.' </td><td>'.
	$$fullname{$usercolon}.' </td>';
$result .= '<tr bgcolor="#ffffde"><td>'.$user.' </td><td>'.	my $usec=%$classlist->{"$uname:$udom"}[5];
$$fullname{$userdom[0]}.' </td>';	if (!&canmodify($usec)) {
	my $numcols=scalar(@partid)(scalar(@parts)-1)2;
	$noupdate.=$line."<td colspan=\"$numcols\"><font color=\"red\">Not allowed to modify student</font></td></tr>";
	next;
	}
foreach (@partid) {	foreach (@partid) {
my $old_aw = $ENV{'form.GD_'.$user.'_'.$_.'_awarded_s'};	my $old_aw = $ENV{'form.GD_'.$user.'_'.$_.'_awarded_s'};
my $old_part_pcr = $old_aw/($weight{$_} ne '0' ? $weight{$_}:1);	my $old_part_pcr = $old_aw/($weight{$_} ne '0' ? $weight{$_}:1);
Line 1959 sub editgrades {	Line 2108 sub editgrades {
}	}
$score = 'excused' if (($ENV{'form.GD_'.$user.'_'.$_.'_solved'} eq 'excused') &&	$score = 'excused' if (($ENV{'form.GD_'.$user.'_'.$_.'_solved'} eq 'excused') &&
($score ne 'excused'));	($score ne 'excused'));
$result .= '<td align="center">'.$old_aw.' </td>'.	$line .= '<td align="center">'.$old_aw.' </td>'.
'<td align="center">'.$awarded.	'<td align="center">'.$awarded.
($score eq 'excused' ? $score : '').' </td>';	($score eq 'excused' ? $score : '').' </td>';

Line 1982 sub editgrades {	Line 2131 sub editgrades {
$newrecord{'resource.'.$part.'regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";	$newrecord{'resource.'.$part.'regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
$updateflag=1;	$updateflag=1;
}	}
$result .= '<td align="center">'.$old_aw.' </td>'.	$line .= '<td align="center">'.$old_aw.' </td>'.
'<td align="center">'.$awarded.' </td>';	'<td align="center">'.$awarded.' </td>';
}	}
}	}
$result .= '</tr>'."\n";	$line.='</tr>'."\n";
if ($updateflag) {	if ($updateflag) {
$count++;	$count++;
&Apache::lonnet::cstore(\%newrecord,$symb,$ENV{'request.course.id'},	&Apache::lonnet::cstore(\%newrecord,$symb,$ENV{'request.course.id'},
$udom,$user);	$udom,$uname);
	$result.=$line;
	} else {
	$noupdate.=$line;
}	}
}	}
	if ($noupdate) {
	my $numcols=(scalar(@partid)(scalar(@parts)-1)2)+3;
	$result .= '<tr bgcolor="#ffffff"><td align="center" colspan="'.$numcols.'">No Changes Occured For the Students Below</td></tr>'.$noupdate;
	}
$result .= '</table></td></tr></table>'."\n".	$result .= '</table></td></tr></table>'."\n".
&show_grading_menu_form ($symb,$url);	&show_grading_menu_form ($symb,$url);
my $msg = '<b>Number of records updated = '.$rec_update.	my $msg = '<b>Number of records updated = '.$rec_update.
Line 2018 sub split_part_type {	Line 2174 sub split_part_type {
#	#
#-------------------------- Next few routines handles grading by csv upload	#-------------------------- Next few routines handles grading by csv upload
#	#
#--- Menu to upload a csv scores ---
sub upcsvScores_form {
my ($request) = shift;
my ($symb,$url)=&get_symb_and_url($request);
if (!$symb) {return '';}
my $result =<<CSVFORMJS;
<script type="text/javascript" language="javascript">
function checkUpload(formname) {
if (formname.upfile.value == "") {
alert("Please use the browse button to select a file from your local directory.");
return false;
}
formname.submit();
if (navigator.appName !="Netscape") {self.close()}; //if netscape if appears to close before submit!!!
// any suggestion how to get around this??
}
</script>
CSVFORMJS
$ENV{'form.probTitle'} = &Apache::lonnet::metadata($url,'title');
$result.='<table width=100% border=0><tr><td bgcolor=#777777>'."\n";
$result.='<table width=100% border=0><tr bgcolor="#e6ffff"><td>'."\n";
$result.=' <b>Specify a file containing the class scores for problem - '.$ENV{'form.probTitle'}.
'.</b></td></tr>'."\n";
$result.='<tr bgcolor=#ffffe6><td>'."\n";
my $upfile_select=&Apache::loncommon::upfile_select_html();
$result.=<<ENDUPFORM;
<form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload" target="LONcatInfo">
<input type="hidden" name="symb" value="$symb" />
<input type="hidden" name="url" value="$url" />
<input type="hidden" name="command" value="csvuploadmap" />
<input type="hidden" name="probTitle" value="$ENV{'form.probTitle'}" />
$upfile_select
<br /><input type="button" onClick="javascript:checkUpload(this.form);" value="Upload Scores" />
<input type="button" value="Cancel" onClick="self.close()">

</form>
ENDUPFORM
$result.='</td></tr></table>'."\n";
$result.='</td></tr></table>'."\n";
return $result;
}

#--- Javascript to handle csv upload	#--- Javascript to handle csv upload
sub csvupload_javascript_reverse_associate {	sub csvupload_javascript_reverse_associate {
return(<<ENDPICK);	return(<<ENDPICK);
Line 2175 to this page if the data selected is ins	Line 2289 to this page if the data selected is ins
value="$ENV{'form.upfile_associate'}" />	value="$ENV{'form.upfile_associate'}" />
<input type="hidden" name="symb" value="$symb" />	<input type="hidden" name="symb" value="$symb" />
<input type="hidden" name="url" value="$url" />	<input type="hidden" name="url" value="$url" />
<input type="hidden" name="lastCmd" value="$ENV{'form.lastCmd'}" />	<input type="hidden" name="saveState" value="$ENV{'form.saveState'}" />
<input type="hidden" name="lastSec" value="$ENV{'form.lastSec'}" />
<input type="hidden" name="probTitle" value="$ENV{'form.probTitle'}" />	<input type="hidden" name="probTitle" value="$ENV{'form.probTitle'}" />
<input type="hidden" name="command" value="csvuploadassign" />	<input type="hidden" name="command" value="csvuploadassign" />
<hr />	<hr />
Line 2214 sub csvuploadmap_footer {	Line 2327 sub csvuploadmap_footer {
ENDPICK	ENDPICK
}	}

	sub upcsvScores_form {
	my ($request) = shift;
	my ($symb,$url)=&get_symb_and_url($request);
	if (!$symb) {return '';}
	my $result =<<CSVFORMJS;
	<script type="text/javascript" language="javascript">
	function checkUpload(formname) {
	if (formname.upfile.value == "") {
	alert("Please use the browse button to select a file from your local directory.");
	return false;
	}
	formname.submit();
	}
	</script>
	CSVFORMJS
	$ENV{'form.probTitle'} = &Apache::lonnet::gettitle($symb);
	$result.='<br /><table width=100% border=0><tr><td bgcolor="#777777">'."\n";
	$result.='<table width=100% border=0><tr bgcolor="#e6ffff"><td>'."\n";
	$result.=' <b>Specify a file containing the class scores for problem - '.$ENV{'form.probTitle'}.
	'.</b></td></tr>'."\n";
	$result.='<tr bgcolor=#ffffe6><td>'."\n";
	my $upfile_select=&Apache::loncommon::upfile_select_html();
	$result.=<<ENDUPFORM;
	<form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload">
	<input type="hidden" name="symb" value="$symb" />
	<input type="hidden" name="url" value="$url" />
	<input type="hidden" name="command" value="csvuploadmap" />
	<input type="hidden" name="probTitle" value="$ENV{'form.probTitle'}" />
	<input type="hidden" name="saveState" value="$ENV{'form.saveState'}" />
	$upfile_select
	<br /><input type="button" onClick="javascript:checkUpload(this.form);" value="Upload Scores" />

	</form>
	ENDUPFORM
	$result.='</td></tr></table>'."\n";
	$result.='</td></tr></table><br /><br />'."\n";
	$result.=&show_grading_menu_form($symb,$url);

	return $result;
	}


sub csvuploadmap {	sub csvuploadmap {
my ($request)= @_;	my ($request)= @_;
my ($symb,$url)=&get_symb_and_url($request);	my ($symb,$url)=&get_symb_and_url($request);
Line 2273 sub csvuploadassign {	Line 2428 sub csvuploadassign {
}	}
$request->print('<h3>Assigning Grades</h3>');	$request->print('<h3>Assigning Grades</h3>');
my $courseid=$ENV{'request.course.id'};	my $courseid=$ENV{'request.course.id'};
my ($classlist) = &getclasslist('all','1');	my ($classlist) = &getclasslist('all',0);
	my @notallowed;
my @skipped;	my @skipped;
my $countdone=0;	my $countdone=0;
foreach my $grade (@gradedata) {	foreach my $grade (@gradedata) {
Line 2284 sub csvuploadassign {	Line 2440 sub csvuploadassign {
push(@skipped,"$username:$domain");	push(@skipped,"$username:$domain");
next;	next;
}	}
	my $usec=%$classlist->{"$username:$domain"}[5];
	if (!&canmodify($usec)) {
	push(@notallowed,"$username:$domain");
	next;
	}
my %grades;	my %grades;
foreach my $dest (keys(%fields)) {	foreach my $dest (keys(%fields)) {
if ($dest eq 'username' \|\| $dest eq 'domain') { next; }	if ($dest eq 'username' \|\| $dest eq 'domain') { next; }
Line 2302 sub csvuploadassign {	Line 2463 sub csvuploadassign {
}	}
$request->print("<br />Stored $countdone students\n");	$request->print("<br />Stored $countdone students\n");
if (@skipped) {	if (@skipped) {
$request->print('<br /><font size="+1"><b>Skipped Students</b></font><br />');	$request->print('<p<font size="+1"><b>Skipped Students</b></font></p>');
foreach my $student (@skipped) { $request->print("<br />$student"); }	foreach my $student (@skipped) { $request->print("$student<br />\n"); }
	}
	if (@notallowed) {
	$request->print('<p><font size="+1" color="red"><b>Students Not Allowed to Modify</b></font></p>');
	foreach my $student (@notallowed) { $request->print("$student<br />\n"); }
}	}
$request->print(&view_edit_entire_class_form($symb,$url));	$request->print("<br />\n");
$request->print(&show_grading_menu_form($symb,$url));	$request->print(&show_grading_menu_form($symb,$url));
return '';	return '';
}	}
Line 2323 sub pickStudentPage {	Line 2488 sub pickStudentPage {
<script type="text/javascript" language="javascript">	<script type="text/javascript" language="javascript">

function checkPickOne(formname) {	function checkPickOne(formname) {
var user = radioSelection(formname.student);	if (radioSelection(formname.student) == null) {
if (user == null) {
alert("Please select the student you wish to grade.");	alert("Please select the student you wish to grade.");
return;	return;
}	}
Line 2336 function checkPickOne(formname) {	Line 2500 function checkPickOne(formname) {

function radioSelection(radioButton) {	function radioSelection(radioButton) {
var selection=null;	var selection=null;
for (var i=0; i<radioButton.length; i++) {	if (radioButton.length > 1) {
if (radioButton[i].checked) {	for (var i=0; i<radioButton.length; i++) {
return radioButton[i].value;	if (radioButton[i].checked) {
}	return radioButton[i].value;
	}
	}
	} else {
	if (radioButton.checked) return radioButton.value;
}	}
return selection;	return selection;
}	}

function pullDownSelection(selectOne) {	function pullDownSelection(selectOne) {
var selection=null;	var selection="";
for (var i=0; i<selectOne.length; i++) {	if (selectOne.length > 1) {
if (selectOne[i].selected) {	for (var i=0; i<selectOne.length; i++) {
return selectOne[i].value;	if (selectOne[i].selected) {
}	return selectOne[i].value;
	}
	}
	} else {
	if (selectOne.selected) return selectOne.value;
}	}
}	}
</script>	</script>
Line 2363 LISTJAVASCRIPT	Line 2535 LISTJAVASCRIPT
my $result='<h3><font color="#339933"> '.	my $result='<h3><font color="#339933"> '.
'Manual Grading by Page or Sequence</font></h3>';	'Manual Grading by Page or Sequence</font></h3>';

$result.='<form action="/adm/grades" method="post" name="displayPage">'."<br>\n";	$result.='<form action="/adm/grades" method="post" name="displayPage">'."\n";
$result.=' <b>Problems from:</b> <select name="selectpage">'."\n";	$result.=' <b>Problems from:</b> <select name="selectpage">'."\n";
my ($titles,$symbx) = &getSymbMap();	my ($titles,$symbx) = &getSymbMap($request);
my ($curpage,$type,$mapId) = ($symb =~ /(.*?\.(page\|sequence))___(\d+)___/);	my ($curpage,$type,$mapId) = ($symb =~ /(.*?\.(page\|sequence))___(\d+)___/);
my $ctr=0;	my $ctr=0;
foreach (@$titles) {	foreach (@$titles) {
Line 2395 LISTJAVASCRIPT	Line 2567 LISTJAVASCRIPT
'<input type="radio" name="lastSub" value="all" /> all details'."\n";	'<input type="radio" name="lastSub" value="all" /> all details'."\n";

$result.='<input type="hidden" name="section" value="'.$getsec.'" />'."\n".	$result.='<input type="hidden" name="section" value="'.$getsec.'" />'."\n".
	'<input type="hidden" name="status" value="'.$ENV{'form.status'}.'" />'."\n".
'<input type="hidden" name="command" value="displayPage" />'."\n".	'<input type="hidden" name="command" value="displayPage" />'."\n".
'<input type="hidden" name="url" value="'.$url.'" />'."\n".	'<input type="hidden" name="url" value="'.$url.'" />'."\n".
'<input type="hidden" name="symb" value="'.$symb.'" />'."<br><br>\n".	'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
'<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".	'<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."<br />\n";
'<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n";

$result.='<br /> <input type="button" '.	$result.=' <input type="button" '.
'onClick="javascript:checkPickOne(this.form);"value="Submit" /><br />'."\n";	'onClick="javascript:checkPickOne(this.form);"value="Submit" /><br />'."\n";

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

my $studentTable.=' <b>Select a Student you wish to grade</b><br>'.	my $studentTable.=' <b>Select a student you wish to grade</b><br>'.
'<table border="0"><tr><td bgcolor="#777777">'.	'<table border="0"><tr><td bgcolor="#777777">'.
'<table border="0"><tr bgcolor="#e6ffff">'.	'<table border="0"><tr bgcolor="#e6ffff">'.
'<td><b> Fullname <font color="#999999">(username)</font></b></td>'.	'<td><b> Fullname <font color="#999999">(username)</font></b></td>'.
Line 2414 LISTJAVASCRIPT	Line 2586 LISTJAVASCRIPT
'<td><b> Fullname <font color="#999999">(username)</font></b></td>'.	'<td><b> Fullname <font color="#999999">(username)</font></b></td>'.
'<td><b> Fullname <font color="#999999">(username)</font></b></td></tr>';	'<td><b> Fullname <font color="#999999">(username)</font></b></td></tr>';

my (undef,undef,$fullname) = &getclasslist($getsec,'0');	my (undef,undef,$fullname) = &getclasslist($getsec,'1');
my $ptr = 1;	my $ptr = 1;
foreach my $student (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {	foreach my $student (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {
my ($uname,$udom) = split(/:/,$student);	my ($uname,$udom) = split(/:/,$student);
Line 2438 LISTJAVASCRIPT	Line 2610 LISTJAVASCRIPT
}	}

sub getSymbMap {	sub getSymbMap {
my $navmap = Apache::lonnavmaps::navmap-> new(	my ($request) = @_;
$ENV{'request.course.fn'}.'.db',	my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db',
$ENV{'request.course.fn'}.'_parms.db',1, 1);	$ENV{'request.course.fn'}.'_parms.db',1, 1);

my $res = $navmap->firstResource(); # temp resource to access constants	my $res = $navmap->firstResource(); # temp resource to access constants
Line 2470 sub getSymbMap {	Line 2642 sub getSymbMap {
my $countProblems = 0;	my $countProblems = 0;
$mapiterator->next(); # skip the first BEGIN_MAP	$mapiterator->next(); # skip the first BEGIN_MAP
my $mapcurRes = $mapiterator->next(); # for "current resource"	my $mapcurRes = $mapiterator->next(); # for "current resource"
my $ctr=0;	while ($mapdepth > 0) {
while ($mapdepth > 0 && $ctr < 100) {
if($mapcurRes == $mapiterator->BEGIN_MAP) { $mapdepth++; }	if($mapcurRes == $mapiterator->BEGIN_MAP) { $mapdepth++; }
if($mapcurRes == $mapiterator->END_MAP) { $mapdepth++; }	if($mapcurRes == $mapiterator->END_MAP) { $mapdepth--; }

if (ref($mapcurRes) && $mapcurRes->is_problem() && !$mapcurRes->randomout) {	if (ref($mapcurRes) && $mapcurRes->is_problem() && !$mapcurRes->randomout) {
$countProblems++;	$countProblems++;
}	}
$ctr++;	$mapcurRes = $mapiterator->next();
}	}
if ($countProblems > 0) {	if ($countProblems > 0) {
my $title = $curRes->compTitle();	my $title = $curRes->compTitle();
Line 2504 sub displayPage {	Line 2675 sub displayPage {
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 $pageTitle = $ENV{'form.page'};	my $pageTitle = $ENV{'form.page'};
my (undef,undef,$fullname) = &getclasslist($getsec,'0');	my ($classlist,undef,$fullname) = &getclasslist($getsec,'1');
my ($uname,$udom) = split(/:/,$ENV{'form.student'});	my ($uname,$udom) = split(/:/,$ENV{'form.student'});
	my $usec=$classlist->{$ENV{'form.student'}}[5];
	if (!&canview($usec)) {
	$request->print('<font color="red">Unable to view requested student.('.$ENV{'form.student'}.')</font>');
	$request->print(&show_grading_menu_form($symb,$url));
	return;
	}
my $result='<h3><font color="#339933"> '.$ENV{'form.title'}.'</font></h3>';	my $result='<h3><font color="#339933"> '.$ENV{'form.title'}.'</font></h3>';
$result.='<h3> Student: '.$$fullname{$ENV{'form.student'}}.	$result.='<h3> Student: '.$$fullname{$ENV{'form.student'}}.
'<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font></h3>'."\n";	'<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font></h3>'."\n";
Line 2514 sub displayPage {	Line 2690 sub displayPage {
&sub_page_js($request);	&sub_page_js($request);
$request->print($result);	$request->print($result);

my $navmap = Apache::lonnavmaps::navmap-> new(	my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db',
$ENV{'request.course.fn'}.'.db',
$ENV{'request.course.fn'}.'_parms.db',1, 1);	$ENV{'request.course.fn'}.'_parms.db',1, 1);
my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'});	my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'});
my $map = $navmap->getResourceByUrl($resUrl); # add to navmaps	my $map = $navmap->getResourceByUrl($resUrl); # add to navmaps
Line 2530 sub displayPage {	Line 2705 sub displayPage {
'<input type="hidden" name="title" value="'.$ENV{'form.title'}.'" />'."\n".	'<input type="hidden" name="title" value="'.$ENV{'form.title'}.'" />'."\n".
'<input type="hidden" name="url" value="'.$url.'" />'."\n".	'<input type="hidden" name="url" value="'.$url.'" />'."\n".
'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".	'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
'<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".	'<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n";
'<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n";

my $checkIcon = '<img src="'.$request->dir_config('lonIconsURL').	my $checkIcon = '<img src="'.$request->dir_config('lonIconsURL').
'/check.gif" height="16" border="0" />';	'/check.gif" height="16" border="0" />';
Line 2543 sub displayPage {	Line 2717 sub displayPage {
'<td align="center"><b> No </b></td>'.	'<td align="center"><b> No </b></td>'.
'<td><b> '.($ENV{'form.vProb'} eq 'no' ? 'Title' : 'Problem View').'/Grade</b></td></tr>';	'<td><b> '.($ENV{'form.vProb'} eq 'no' ? 'Title' : 'Problem View').'/Grade</b></td></tr>';

my ($depth,$ctr,$question) = (1,0,1);	my ($depth,$question) = (1,1);
$iterator->next(); # skip the first BEGIN_MAP	$iterator->next(); # skip the first BEGIN_MAP
my $curRes = $iterator->next(); # for "current resource"	my $curRes = $iterator->next(); # for "current resource"
while ($depth > 0 && $ctr < 100) { # ctr, just in case it never gets out of loop	while ($depth > 0) {
if($curRes == $iterator->BEGIN_MAP) { $depth++; }	if($curRes == $iterator->BEGIN_MAP) { $depth++; }
if($curRes == $iterator->END_MAP) { $depth++; }	if($curRes == $iterator->END_MAP) { $depth--; }

if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) {	if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) {
my $parts = $curRes->parts();	my $parts = $curRes->parts();
$parts = &temp_parts_fix($parts); # remove line when lonnavmap is fixed
my $title = $curRes->compTitle();	my $title = $curRes->compTitle();
my $symbx = $curRes->symb();	my $symbx = $curRes->symb();
$studentTable.='<tr bgcolor="#ffffe6"><td align="center" valign="top" >'.$question.	$studentTable.='<tr bgcolor="#ffffe6"><td align="center" valign="top" >'.$question.
Line 2563 sub displayPage {	Line 2736 sub displayPage {
} else {	} else {
my $companswer = &Apache::loncommon::get_student_answers(	my $companswer = &Apache::loncommon::get_student_answers(
$symbx,$uname,$udom,$ENV{'request.course.id'});	$symbx,$uname,$udom,$ENV{'request.course.id'});
$companswer=~s\|<form(.*?)>\|\|g;	$companswer =~ s\|<form(.*?)>\|\|g;
$companswer=~s\|</form>\|\|g;	$companswer =~ s\|</form>\|\|g;

# while ($companswer =~ /(<a href\=\"javascript:newWindow.*?Script Vars<\/a>)/s) { #<a href="javascript:newWindow</a>	# while ($companswer =~ /(<a href\=\"javascript:newWindow.*?Script Vars<\/a>)/s) { #<a href="javascript:newWindow</a>
# $request->print('match='.$1.'<br>');	# $request->print('match='.$1.'<br>');
Line 2593 sub displayPage {	Line 2766 sub displayPage {
my @displaySub = ();	my @displaySub = ();
foreach my $partid (@{$parts}) {	foreach my $partid (@{$parts}) {
my @matchKey = grep /^resource\.$partid\..*?\.submission$/,@versionKeys;	my @matchKey = grep /^resource\.$partid\..*?\.submission$/,@versionKeys;
	next if ($record{"$version:resource.$partid.solved"} eq '');
	# next if ($record{"$version:resource.$partid.award"} eq 'APPROX_ANS' &&
	# $record{"$version:resource.$partid.solved"} eq '');
$displaySub[0].=(exists $record{$version.':'.$matchKey[0]}) ?	$displaySub[0].=(exists $record{$version.':'.$matchKey[0]}) ?
'<b>Part:</b> '.$partid.' <b>Submission:</b> '	'<b>Part '.$partid.' '.
.$record{$version.':'.$matchKey[0]}.'<br />' : '';	($record{"$version:resource.$partid.tries"} eq '' ? 'Trial not counted' :
	'Trial '.$record{"$version:resource.$partid.tries"}).'</b>  '.
	$record{$version.':'.$matchKey[0]}.'<br />' : '';
$displaySub[1].=(exists $record{"$version:resource.$partid.award"}) ?	$displaySub[1].=(exists $record{"$version:resource.$partid.award"}) ?
'<b>Part:</b> '.$partid.' '.	'<b>Part '.$partid.'</b>  '.
$record{"$version:resource.$partid.award"}.'/'.	$record{"$version:resource.$partid.award"}.'/'.
$record{"$version:resource.$partid.solved"}.'<br />' : '';	$record{"$version:resource.$partid.solved"}.'<br />' : '';
$displaySub[2].=(exists $record{"$version:resource.$partid.regrader"}) ?	$displaySub[2].=(exists $record{"$version:resource.$partid.regrader"}) ?
Line 2617 sub displayPage {	Line 2795 sub displayPage {
'','.submission');	'','.submission');

}	}
	if (&canmodify($usec)) {
foreach my $partid (@{$parts}) {	foreach my $partid (@{$parts}) {
$studentTable.=&gradeBox($request,$symbx,$uname,$udom,$question,$partid,\%record);	$studentTable.=&gradeBox($request,$symbx,$uname,$udom,$question,$partid,\%record);
$studentTable.='<input type="hidden" name="q_'.$question.'" value="'.$partid.'" />'."\n";	$studentTable.='<input type="hidden" name="q_'.$question.'" value="'.$partid.'" />'."\n";
$question++;	$question++;
	}
}	}
$studentTable.='</td></tr>';	$studentTable.='</td></tr>';

}	}
$curRes = $iterator->next();	$curRes = $iterator->next();
$ctr++;
}	}

	$navmap->untieHashes();

$studentTable.='</td></tr></table></td></tr></table>'."\n".	$studentTable.='</td></tr></table></td></tr></table>'."\n".
'  <input type="button" value="Save" '.	'  <input type="button" value="Save" '.
'onClick="javascript:checkSubmitPage(this.form,'.$question.');" TARGET=_self />'.	'onClick="javascript:checkSubmitPage(this.form,'.$question.');" TARGET=_self />'.
Line 2640 sub displayPage {	Line 2820 sub displayPage {
return '';	return '';
}	}

sub temp_parts_fix { #remove sub once lonnavmap is fixed
my $parts = shift;
my %seen = ();
my @correctParts = ();
foreach (@{$parts}) {
next if ($seen{$_} > 0);
$seen{$_}++;
push @correctParts,$_;
}
return \@correctParts;
}

sub updateGradeByPage {	sub updateGradeByPage {
my ($request) = shift;	my ($request) = shift;

Line 2659 sub updateGradeByPage {	Line 2827 sub updateGradeByPage {
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 $pageTitle = $ENV{'form.page'};	my $pageTitle = $ENV{'form.page'};
my (undef,undef,$fullname) = &getclasslist($getsec,'0');	my ($classlist,undef,$fullname) = &getclasslist($getsec,'1');
my ($uname,$udom) = split(/:/,$ENV{'form.student'});	my ($uname,$udom) = split(/:/,$ENV{'form.student'});
	my $usec=$classlist->{$ENV{'form.student'}}[5];
	if (!&canmodify($usec)) {
	$request->print('<font color="red">Unable to modify requested student.('.$ENV{'form.student'}.'</font>');
	$request->print(&show_grading_menu_form($ENV{'form.symb'},$ENV{'form.url'}));
	return;
	}
my $result='<h3><font color="#339933"> '.$ENV{'form.title'}.'</font></h3>';	my $result='<h3><font color="#339933"> '.$ENV{'form.title'}.'</font></h3>';
$result.='<h3> Student: '.$$fullname{$ENV{'form.student'}}.	$result.='<h3> Student: '.$$fullname{$ENV{'form.student'}}.
'<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font></h3>'."\n";	'<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font></h3>'."\n";

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

my $navmap = Apache::lonnavmaps::navmap-> new(	my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db',
$ENV{'request.course.fn'}.'.db',
$ENV{'request.course.fn'}.'_parms.db',1, 1);	$ENV{'request.course.fn'}.'_parms.db',1, 1);
my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'});	my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'});
my $map = $navmap->getResourceByUrl($resUrl); # add to navmaps	my $map = $navmap->getResourceByUrl($resUrl); # add to navmaps
Line 2686 sub updateGradeByPage {	Line 2858 sub updateGradeByPage {

$iterator->next(); # skip the first BEGIN_MAP	$iterator->next(); # skip the first BEGIN_MAP
my $curRes = $iterator->next(); # for "current resource"	my $curRes = $iterator->next(); # for "current resource"
my ($depth,$ctr,$question,$changeflag)= (1,0,1,0);	my ($depth,$question,$changeflag)= (1,1,0);
while ($depth > 0 && $ctr < 100) { # ctr, just in case it never gets out of loop	while ($depth > 0) {
if($curRes == $iterator->BEGIN_MAP) { $depth++; }	if($curRes == $iterator->BEGIN_MAP) { $depth++; }
if($curRes == $iterator->END_MAP) { $depth++; }	if($curRes == $iterator->END_MAP) { $depth--; }

if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) {	if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) {
my $parts = $curRes->parts();	my $parts = $curRes->parts();
$parts = &temp_parts_fix($parts); # remove line when lonnavmap is fixed
my $title = $curRes->compTitle();	my $title = $curRes->compTitle();
my $symbx = $curRes->symb();	my $symbx = $curRes->symb();
$studentTable.='<tr bgcolor="#ffffe6"><td align="center" valign="top" >'.$question.	$studentTable.='<tr bgcolor="#ffffe6"><td align="center" valign="top" >'.$question.
Line 2750 sub updateGradeByPage {	Line 2921 sub updateGradeByPage {

}	}
$curRes = $iterator->next();	$curRes = $iterator->next();
$ctr++;
}	}

	$navmap->untieHashes();

$studentTable.='</td></tr></table></td></tr></table>';	$studentTable.='</td></tr></table></td></tr></table>';
$studentTable.=($changeflag == 0 ? 'No score was changed or updated.' :
'The scores were changed for '.
$changeflag.' problem'.($changeflag == 1 ? '.' : 's.'));
$studentTable.=&show_grading_menu_form($ENV{'form.symb'},$ENV{'form.url'});	$studentTable.=&show_grading_menu_form($ENV{'form.symb'},$ENV{'form.url'});
$request->print($studentTable);	my $grademsg=($changeflag == 0 ? 'No score was changed or updated.' :
	'The scores were changed for '.
	$changeflag.' problem'.($changeflag == 1 ? '.' : 's.'));
	$request->print($grademsg.$studentTable);

return '';	return '';
}	}
Line 2767 sub updateGradeByPage {	Line 2939 sub updateGradeByPage {
#	#
#-------------------------------------------------------------------	#-------------------------------------------------------------------

	#--------------------Scantron Grading-----------------------------------
	#
	#------ start of section for handling grading by page/sequence ---------

	sub defaultFormData {
	my ($symb,$url)=@_;
	return '
	<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
	'<input type="hidden" name="url" value="'.$url.'" />'."\n".
	'<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n".
	'<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n";
	}

	sub getSequenceDropDown {
	my ($request,$symb)=@_;
	my $result='<select name="selectpage">'."\n";
	my ($titles,$symbx) = &getSymbMap($request);
	my ($curpage,$type,$mapId) = ($symb =~ /(.*?\.(page\|sequence))___(\d+)___/);
	my $ctr=0;
	foreach (@$titles) {
	my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);
	$result.='<option value="'.$$symbx{$_}.'" '.
	($$symbx{$_} =~ /$curpage$/ ? 'selected="on"' : '').
	'>'.$showtitle.'</option>'."\n";
	$ctr++;
	}
	$result.= '</select>';
	return $result;
	}

	sub scantron_uploads {
	if (!-e $Apache::lonnet::perlvar{'lonScansDir'}) { return ''};
	my $result= '<select name="scantron_selectfile">';
	opendir(DIR,$Apache::lonnet::perlvar{'lonScansDir'});
	my @files=sort(readdir(DIR));
	foreach my $filename (@files) {
	if ($filename eq '.' or $filename eq '..') { next; }
	$result.="<option>$filename</option>\n";
	}
	closedir(DIR);
	$result.="</select>";
	return $result;
	}

	sub scantron_scantab {
	my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
	my $result='<select name="scantron_format">'."\n";
	foreach my $line (<$fh>) {
	my ($name,$descrip)=split(/:/,$line);
	if ($name =~ /^\#/) { next; }
	$result.='<option value="'.$name.'">'.$descrip.'</option>'."\n";
	}
	$result.='</select>'."\n";

	return $result;
	}

	sub scantron_selectphase {
	my ($r) = @_;
	my ($symb,$url)=&get_symb_and_url($r);
	if (!$symb) {return '';}
	my $sequence_selector=&getSequenceDropDown($r,$symb);
	my $default_form_data=&defaultFormData($symb,$url);
	my $grading_menu_button=&show_grading_menu_form($symb,$url);
	my $file_selector=&scantron_uploads();
	my $format_selector=&scantron_scantab();
	my $result;
	$result.= <<SCANTRONFORM;
	<form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantro_process">
	<input type="hidden" name="command" value="scantron_process" />
	$default_form_data
	<table width="100%" border="0">
	<tr>
	<td bgcolor="#777777">
	<table width="100%" border="0">
	<tr bgcolor="#e6ffff">
	<td>
	<b>Specify file location and which Folder/Sequence to grade</b>
	</td>
	</tr>
	<tr bgcolor="#ffffe6">
	<td>
	Sequence to grade: $sequence_selector
	</td>
	</tr>
	<tr bgcolor="#ffffe6">
	<td>
	Filename of scoring office file: $file_selector
	</td>
	</tr>
	<tr bgcolor="#ffffe6">
	<td>
	Format of data file: $format_selector
	</td>
	</tr>
	</table>
	</td>
	</tr>
	</table>
	<input type="submit" value="Submit" />
	</form>
	$grading_menu_button
	SCANTRONFORM

	return $result;
	}

	sub get_scantron_config {
	my ($which) = @_;
	my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
	my %config;
	foreach my $line (<$fh>) {
	my ($name,$descrip)=split(/:/,$line);
	if ($name ne $which ) { next; }
	chomp($line);
	my @config=split(/:/,$line);
	$config{'name'}=$config[0];
	$config{'description'}=$config[1];
	$config{'CODElocation'}=$config[2];
	$config{'CODEstart'}=$config[3];
	$config{'CODElength'}=$config[4];
	$config{'IDstart'}=$config[5];
	$config{'IDlength'}=$config[6];
	$config{'Qstart'}=$config[7];
	$config{'Qlength'}=$config[8];
	$config{'Qoff'}=$config[9];
	$config{'Qon'}=$config[10];
	last;
	}
	return %config;
	}

	sub username_to_idmap {
	my ($classlist)= @_;
	my %idmap;
	foreach my $student (keys(%$classlist)) {
	$idmap{$classlist->{$student}->[&Apache::loncoursedata::CL_ID]}=
	$student;
	}
	return %idmap;
	}

	sub scantron_parse_scanline {
	my ($line,$scantron_config)=@_;
	my %record;
	my $questions=substr($line,$$scantron_config{'Qstart'}-1);
	my $data=substr($line,0,$$scantron_config{'Qstart'}-1);
	if ($$scantron_config{'CODElocation'} ne 0) {
	if ($$scantron_config{'CODElocation'} < 0) {
	$record{'scantron.CODE'}=substr($data,$$scantron_config{'CODEstart'}-1,
	$$scantron_config{'CODElength'});
	} else {
	#FIXME interpret first N questions
	}
	}
	$record{'scantron.ID'}=substr($data,$$scantron_config{'IDstart'}-1,
	$$scantron_config{'IDlength'});
	my @alphabet=('A'..'Z');
	my $questnum=0;
	while ($questions) {
	$questnum++;
	my $currentquest=substr($questions,0,$$scantron_config{'Qlength'});
	substr($questions,0,$$scantron_config{'Qlength'})='';
	if (length($currentquest) < $$scantron_config{'Qlength'}) { next; }
	my (@array)=split(/$$scantron_config{'Qon'}/,$currentquest);
	if (scalar(@array) gt 2) {
	#FIXME do something intelligent with double bubbles
	Apache->request->print("<br ><b>Wha!!!</b> <pre>".scalar(@array).
	'-'.$currentquest.'-'.$questnum.'</pre><br />');
	}
	if (length($array[0]) eq $$scantron_config{'Qlength'}) {
	$record{"scantron.$questnum.answer"}='';
	} else {
	$record{"scantron.$questnum.answer"}=$alphabet[length($array[0])];
	}
	}
	$record{'scantron.maxquest'}=$questnum;
	return \%record;
	}

	sub scantron_add_delay {
	}

	sub scantron_find_student {
	my ($scantron_record,$idmap)=@_;
	my $scanID=$$scantron_record{'scantron.ID'};
	foreach my $id (keys(%$idmap)) {
	Apache->request->print('<pre>checking studnet -'.$id.'- againt -'.$scanID.'- </pre>');
	if (lc($id) eq lc($scanID)) { Apache->request->print('success');return $$idmap{$id}; }
	}
	return undef;
	}

	sub scantron_filter {
	my ($curres)=@_;
	if (ref($curres) && $curres->is_problem() && !$curres->randomout) {
	return 1;
	}
	return 0;
	}

	sub scantron_process_students {
	my ($r) = @_;
	my (undef,undef,$sequence)=split(/___/,$ENV{'form.selectpage'});
	my ($symb,$url)=&get_symb_and_url($r);
	if (!$symb) {return '';}
	my $default_form_data=&defaultFormData($symb,$url);

	my %scantron_config=&get_scantron_config($ENV{'form.scantron_format'});
	my $scanlines=Apache::File->new($Apache::lonnet::perlvar{'lonScansDir'}."/$ENV{'form.scantron_selectfile'}");
	my @scanlines=<$scanlines>;
	my $classlist=&Apache::loncoursedata::get_classlist();
	my %idmap=&username_to_idmap($classlist);
	my $navmap=Apache::lonnavmaps::navmap->new($ENV{'request.course.fn'}.'.db',$ENV{'request.course.fn'}.'_parms.db',1, 1);
	my $map=$navmap->getResourceByUrl($sequence);
	my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0);
	$r->print("geto ".scalar(@resources)."<br />");
	my $result= <<SCANTRONFORM;
	<form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantronupload">
	<input type="hidden" name="command" value="scantron_configphase" />
	$default_form_data
	SCANTRONFORM
	$r->print($result);

	my @delayqueue;
	my $totalcorrect;
	my $totalincorrect;

	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,
	'Scantron Status','Scantron Progress',scalar(@scanlines));
	foreach my $line (@scanlines) {
	my $studentcorrect;
	my $studentincorrect;

	chomp($line);
	my $scan_record=&scantron_parse_scanline($line,\%scantron_config);
	my ($uname,$udom);
	if ($uname=&scantron_find_student($scan_record,\%idmap)) {
	&scantron_add_delay(\@delayqueue,$line,
	'Unable to find a student that matches');
	}
	$r->print('<pre>doing studnet'.$uname.'</pre>');
	($uname,$udom)=split(/:/,$uname);
	&Apache::lonnet::delenv('form.counter');
	&Apache::lonnet::appenv(%$scan_record);
	# &Apache::lonhomework::showhash(%ENV);
	$Apache::lonxml::debug=1;
	&Apache::lonxml::debug("line is $line");

	my $i=0;
	foreach my $resource (@resources) {
	$i++;
	my $result=&Apache::lonnet::ssi($resource->src(),
	('submitted' =>'scantron',
	'grade_target' =>'grade',
	'grade_username'=>$uname,
	'grade_domain' =>$udom,
	'grade_courseid'=>$ENV{'request.course.id'},
	'grade_symb' =>$resource->symb()));
	my %score=&Apache::lonnet::restore($resource->symb(),
	$ENV{'request.course.id'},
	$udom,$uname);
	foreach my $part ($resource->{PARTS}) {
	if ($score{'resource.'.$part.'.solved'} =~ /^correct/) {
	$studentcorrect++;
	$totalcorrect++;
	} else {
	$studentincorrect++;
	$totalincorrect++;
	}
	}
	$r->print('<pre>'.
	$resource->symb().'-'.
	$resource->src().'-'.'</pre>result is'.$result);
	&Apache::lonhomework::showhash(%score);
	# if ($i eq 3) {last;}
	}
	&Apache::lonnet::delenv('form.counter');
	&Apache::lonnet::delenv('scantron\.');
	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
	'last student Who got a '.$studentcorrect.' correct and '.
	$studentincorrect.' incorrect. The class has gotten '.
	$totalcorrect.' correct and '.$totalincorrect.' incorrect');
	last;
	#FIXME
	#get iterator for $sequence
	#foreach question 'submit' the students answer to the server
	# through grade target {
	# generate data to pass back that includes grade recevied
	#}
	}
	$Apache::lonxml::debug=0;
	foreach my $delay (@delayqueue) {
	#FIXME
	#print out each delayed student with interface to select how
	# to repair student provided info
	#Expected errors include
	# 1 bad/no stuid/username
	# 2 invalid bubblings

	}
	#FIXME
	# if delay queue exists 2 submits one to process delayed students one
	# to ignore delayed students, possibly saving the delay queue for later

	$navmap->untieHashes();
	}
	#-------- end of section for handling grading scantron forms -------
	#
	#-------------------------------------------------------------------


#-------------------------- Menu interface -------------------------	#-------------------------- Menu interface -------------------------
#	#
#--- Show a Grading Menu button - Calls the next routine ---	#--- Show a Grading Menu button - Calls the next routine ---
Line 2775 sub show_grading_menu_form {	Line 3259 sub show_grading_menu_form {
my $result.='<form action="/adm/grades" method="post">'."\n".	my $result.='<form action="/adm/grades" method="post">'."\n".
'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".	'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
'<input type="hidden" name="url" value="'.$url.'" />'."\n".	'<input type="hidden" name="url" value="'.$url.'" />'."\n".
'<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".	'<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n".
'<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n".
'<input type="hidden" name="command" value="gradingmenu" />'."\n".	'<input type="hidden" name="command" value="gradingmenu" />'."\n".
'<input type="submit" name="submit" value="Grading Menu" />'."\n".	'<input type="submit" name="submit" value="Grading Menu" />'."\n".
'</form>'."\n";	'</form>'."\n";
return $result;	return $result;
}	}

	# -- Retrieve choices for grading form
	sub savedState {
	my %savedState = ();
	if ($ENV{'form.saveState'}) {
	foreach (split(/:/,$ENV{'form.saveState'})) {
	my ($key,$value) = split(/=/,$_,2);
	$savedState{$key} = $value;
	}
	}
	return \%savedState;
	}

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

$request->print(<<GRADINGMENUJS);	$request->print(<<GRADINGMENUJS);
<script type="text/javascript" language="javascript">	<script type="text/javascript" language="javascript">
function checkChoice(formname) {	function checkChoice(formname) {
var cmd = formname.command;	var cmd = formname.command;
formname.lastCmd.value = radioSelection(formname.command);	formname.saveState.value = "saveCmd="+radioSelection(cmd)+":saveSec="+pullDownSelection(formname.section)+
formname.lastSec.value = pullDownSelection(formname.section);	":saveSub="+radioSelection(formname.submitonly)+":saveStatus="+pullDownSelection(formname.status);
if (cmd[0].checked \|\| cmd[1].checked \|\| cmd[2].checked) {	if (cmd[0].checked \|\| cmd[1].checked \|\| cmd[2].checked \|\| cmd[3].checked \|\| cmd[4].checked) formname.submit();
formname.submit();	if (cmd[5].checked) {
}

if (cmd[3].checked) {
var url = "/adm/grades?command=csvform&symb="+formname.symb.value+"&url="+formname.url.value;
var options = "width=620,height=340,screenx=70,screeny=75,";
options += "resizable=no,scrollbars=no,status=no,";
options += "menubar=no,toolbar=no,location=no,directories=no";
var newWin = window.open(url, "CSVFile", options);
newWin.focus();
}

if (cmd[4].checked) {
if (!checkReceiptNo(formname,'notOK')) { return false;}	if (!checkReceiptNo(formname,'notOK')) { return false;}
formname.submit();	formname.submit();
}	}
Line 2825 sub gradingmenu {	Line 3309 sub gradingmenu {
formname.receipt.focus();	formname.receipt.focus();
return false;	return false;
}	}
formname.command[4].checked = true;	formname.command[5].checked = true;
return true;	return true;
}	}

function radioSelection(radioButton) {	function radioSelection(radioButton) {
var selection=null;	var selection=null;
for (var i=0; i<radioButton.length; i++) {	if (radioButton.length > 1) {
if (radioButton[i].checked) {	for (var i=0; i<radioButton.length; i++) {
return radioButton[i].value;	if (radioButton[i].checked) {
	return radioButton[i].value;
	}
}	}
	} else {
	if (radioButton.checked) return radioButton.value;
}	}
return selection;	return selection;
}	}

function pullDownSelection(selectOne) {	function pullDownSelection(selectOne) {
var selection="";	var selection="";
for (var i=0; i<selectOne.length; i++) {	if (selectOne.length > 1) {
if (selectOne[i].selected) {	for (var i=0; i<selectOne.length; i++) {
return selectOne[i].value;	if (selectOne[i].selected) {
	return selectOne[i].value;
	}
}	}
	} else {
	if (selectOne.selected) return selectOne.value;
}	}
}	}

</script>	</script>
GRADINGMENUJS	GRADINGMENUJS

my $probTitle = &Apache::lonnet::metadata($ENV{'form.url'},'title');
my $result='<h3> <font color="#339933">Manual Grading/View Submission</font></h3>'.	my $result='<h3> <font color="#339933">Manual Grading/View Submission</font></h3>'.
'<table border="0">'.	'<table border="0">'.
'<tr><td colspan=3><font size=+1><b>Problem: </b>'.$probTitle.'</font></td></tr>';	'<tr><td colspan=3><font size=+1><b>Problem: </b>'.$probTitle.'</font></td></tr>'."\n";
my ($partlist,$handgrade) = &response_type($url);	my ($partlist,$handgrade) = &response_type($url);
my ($resptype,$hdgrade)=('','no');	my ($resptype,$hdgrade)=('','no');
for (sort keys(%$handgrade)) {	for (sort keys(%$handgrade)) {
Line 2864 GRADINGMENUJS	Line 3356 GRADINGMENUJS
'<td><b>Type: </b>'.$responsetype.'</td>'.	'<td><b>Type: </b>'.$responsetype.'</td>'.
'<td><b>Handgrade: </b>'.$handgrade.'</font></td></tr>';	'<td><b>Handgrade: </b>'.$handgrade.'</font></td></tr>';
}	}
$result.='</table>';	$result.='</table>'."\n";

my ($classlist,$sections) = &getclasslist('all','0');	my (undef,$sections) = &getclasslist('all','0');
my $lastCmd = ($ENV{'form.lastCmd'} eq '' ? 'pickStudentPage' : $ENV{'form.lastCmd'});	my $savedState = &savedState();
my $lastSec = ($ENV{'form.lastSec'} eq '' ? 'all' : $ENV{'form.lastSec'});	my $saveCmd = ($$savedState{'saveCmd'} eq '' ? 'pickStudentPage' : $$savedState{'saveCmd'});
	my $saveSec = ($$savedState{'saveSec'} eq '' ? 'all' : $$savedState{'saveSec'});
	my $saveSub = ($$savedState{'saveSub'} eq '' ? 'yes' : $$savedState{'saveSub'});
	my $saveStatus = ($$savedState{'saveStatus'} eq '' ? 'Active' : $$savedState{'saveStatus'});

$result.='<form action="/adm/grades" method="post" name="gradingMenu">'."\n".	$result.='<form action="/adm/grades" method="post" name="gradingMenu">'."\n".
'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".	'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
Line 2876 GRADINGMENUJS	Line 3371 GRADINGMENUJS
'<input type="hidden" name="response" value="'.$resptype.'" />'."\n".	'<input type="hidden" name="response" value="'.$resptype.'" />'."\n".
'<input type="hidden" name="handgrade" value="'.$hdgrade.'" />'."\n".	'<input type="hidden" name="handgrade" value="'.$hdgrade.'" />'."\n".
'<input type="hidden" name="probTitle" value="'.$probTitle.'" />'."\n".	'<input type="hidden" name="probTitle" value="'.$probTitle.'" />'."\n".
'<input type="hidden" name="lastCmd" value="" />'."\n".	'<input type="hidden" name="saveState" value="" />'."\n".
'<input type="hidden" name="lastSec" value="" />'."\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 width=100% border=0><tr><td bgcolor=#777777>'."\n".
Line 2888 GRADINGMENUJS	Line 3382 GRADINGMENUJS
$result.='<table width=100% border=0>'.	$result.='<table width=100% border=0>'.
'<tr bgcolor="#ffffe6" valign="top"><td colspan="2">'.	'<tr bgcolor="#ffffe6" valign="top"><td colspan="2">'.
'<input type="radio" name="command" value="pickStudentPage" '.	'<input type="radio" name="command" value="pickStudentPage" '.
($lastCmd eq 'pickStudentPage' ? 'checked' : '').'> '.	($saveCmd eq 'pickStudentPage' ? 'checked' : '').'> '.
'Handgrade/View Submission for a student by page/sequence</td></tr>'."\n".	'Handgrade/View Submission for a student by page/sequence</td></tr>'."\n".

'<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.	'<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.
'<input type="radio" name="command" value="viewgrades" '.	'<input type="radio" name="command" value="viewgrades" '.
($lastCmd eq 'viewgrades' ? 'checked' : '').'> '.	($saveCmd eq 'viewgrades' ? 'checked' : '').'> '.
'Grade by section or class</td></tr>'."\n".	'Grade by section or class</td></tr>'."\n".

'<tr bgcolor="#ffffe6"valign="top"><td><input type="radio" name="command" value="submission" '.	'<tr bgcolor="#ffffe6"valign="top"><td><input type="radio" name="command" value="submission" '.
($lastCmd eq 'submission' ? 'checked' : '').'> '.	($saveCmd eq 'submission' ? 'checked' : '').'> '.
($hdgrade eq 'yes' ? 'View/Grade essay response of' : 'View').	($hdgrade eq 'yes' ? 'View/Grade essay response of' : 'View').
' an individual student </td>'."\n".	' an individual student </td>'."\n".
'<td>--> For students who has: '.	'<td>--> For students who has: '.
'<input type="radio" name="submitonly" value="yes" checked> submitted'.	'<input type="radio" name="submitonly" value="yes" '.
'<input type="radio" name="submitonly" value="all"> everybody</td></tr>'."\n".	($saveSub eq 'yes' ? 'checked' : '').' /> submitted'.
	'<input type="radio" name="submitonly" value="all" '.
	($saveSub eq 'all' ? 'checked' : '').' /> everybody</td></tr>'."\n".

'<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.	'<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.
'<input type="radio" name="command" value="csvupload" '.	'<input type="radio" name="command" value="csvform" '.
($lastCmd eq 'csvupload' ? 'checked' : '').'> '.	($saveCmd eq 'csvform' ? 'checked' : '').'> '.
'Upload scores from file</td></tr>'."\n";	'Upload scores from file</td></tr>'."\n";

	$result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.
	'<input type="radio" name="command" value="scantron_selectphase" '.
	($saveCmd eq 'scantron_selectphase' ? 'checked="on"' : '').' /> '.
	'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="radio" name="command" value="verify" onSelect="javascript:this.form.receipt.focus()" '.	'<input type="radio" name="command" value="verify" onChecked="javascript:this.form.receipt.focus()" '.
($lastCmd eq 'verify' ? 'checked' : '').'> '.	($saveCmd eq 'verify' ? 'checked' : '').'> '.
'Verify a submission receipt issued by this server</td>'.	'Verify a submission receipt issued by this server</td>'.
'<td>--> Receipt no: '.unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'}).	'<td>--> Receipt no: '.unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'}).
'-<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\')">'.
Line 2920 GRADINGMENUJS	Line 3421 GRADINGMENUJS
}	}

$result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2"><br />'."\n".	$result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2"><br />'."\n".
' Select section:</b> <select name="section">'."\n";	' Select section: <select name="section">'."\n";
if (ref($sections)) {	if (ref($sections)) {
foreach (sort (@$sections)) {$result.='<option value="'.$_.'" '.	foreach (sort (@$sections)) {$result.='<option value="'.$_.'" '.
($lastSec eq $_ ? 'selected="on"' : '').'>'.$_.'</option>'."\n";}	($saveSec eq $_ ? 'selected="on"' : '').'>'.$_.'</option>'."\n";}
}	}
$result.= '<option value="all" '.($lastSec eq 'all' ? 'selected="on"' : ''). '>all</select>   '.	$result.= '<option value="all" '.($saveSec eq 'all' ? 'selected="on"' : ''). '>all</select>   ';
'<font color="red">(Applies to the first three options only.)</font>'."\n";
	$result.='Student Status:</b><select name="status">'.
	'<option value="Active" '.($saveStatus eq 'Active' ? 'selected' : '').'>Active</option>'.
	'<option value="Expired" '.($saveStatus eq 'Expired' ? 'selected' : '').'>Expired</option>'.
	'<option value="Any" '.($saveStatus eq 'Any' ? 'selected' : '').'>Any</option>'.
	'</select>';

	$result.='   <font color="red">(Applies to the first three options only.)</font>'."\n";

if (ref($sections)) {	if (ref($sections)) {
$result.=' (Section "no" implies the students were not assigned a section.)<br />'	$result.=' (Section "no" implies the students were not assigned a section.)<br />'
if (grep /no/,@$sections);	if (grep /no/,@$sections);
Line 2943 GRADINGMENUJS	Line 3452 GRADINGMENUJS

sub handler {	sub handler {
my $request=$_[0];	my $request=$_[0];

	undef(%perm);
if ($ENV{'browser.mathml'}) {	if ($ENV{'browser.mathml'}) {
$request->content_type('text/xml');	$request->content_type('text/xml');
} else {	} else {
Line 2972 sub handler {	Line 3482 sub handler {
if ($tsymb) {	if ($tsymb) {
my ($map,$id,$url)=split(/\_\_\_/,$tsymb);	my ($map,$id,$url)=split(/\_\_\_/,$tsymb);
if (&Apache::lonnet::allowed('mgr',$tcrsid)) {	if (&Apache::lonnet::allowed('mgr',$tcrsid)) {
$request->print(	$request->print(&Apache::lonnet::ssi_body('/res/'.$url,
&Apache::lonnet::ssi('/res/'.$url,	('grade_username' => $tuname,
('grade_username' => $tuname,	'grade_domain' => $tudom,
'grade_domain' => $tudom,	'grade_courseid' => $tcrsid,
'grade_courseid' => $tcrsid,	'grade_symb' => $tsymb)));
'grade_symb' => $tsymb)));
} else {	} else {
$request->print('<h3>Not authorized: '.$token.'</h3>');	$request->print('<h3>Not authorized: '.$token.'</h3>');
}	}
} else {	} else {
$request->print('<h3>Not a valid DocID: '.$token.'</h3>');	$request->print('<h3>Not a valid DocID: '.$token.'</h3>');
}	}
Line 2989 sub handler {	Line 3498 sub handler {
}	}
}	}
} else {	} else {
$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});	if (!($perm{'vgr'}=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}))) {
if ($command eq 'submission') {	if ($perm{'vgr'}=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}.'/'.$ENV{'request.course.sec'})) {
	$perm{'vgr_section'}=$ENV{'request.course.sec'};
	} else {
	delete($perm{'vgr'});
	}
	}
	if (!($perm{'mgr'}=&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {
	if ($perm{'mgr'}=&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}.'/'.$ENV{'request.course.sec'})) {
	$perm{'mgr_section'}=$ENV{'request.course.sec'};
	} else {
	delete($perm{'mgr'});
	}
	}

	if ($command eq 'submission' && $perm{'vgr'}) {
($ENV{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));	($ENV{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));
} elsif ($command eq 'pickStudentPage') {	} elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {
&pickStudentPage($request);	&pickStudentPage($request);
} elsif ($command eq 'displayPage') {	} elsif ($command eq 'displayPage' && $perm{'vgr'}) {
&displayPage($request);	&displayPage($request);
} elsif ($command eq 'gradeByPage') {	} elsif ($command eq 'gradeByPage' && $perm{'mgr'}) {
&updateGradeByPage($request);	&updateGradeByPage($request);
} elsif ($command eq 'processGroup') {	} elsif ($command eq 'processGroup' && $perm{'vgr'}) {
&processGroup($request);	&processGroup($request);
} elsif ($command eq 'gradingmenu') {	} elsif ($command eq 'gradingmenu' && $perm{'vgr'}) {
$request->print(&gradingmenu($request));	$request->print(&gradingmenu($request));
} elsif ($command eq 'viewgrades') {	} elsif ($command eq 'viewgrades' && $perm{'vgr'}) {
$request->print(&viewgrades($request));	$request->print(&viewgrades($request));
} elsif ($command eq 'handgrade') {	} elsif ($command eq 'handgrade' && $perm{'mgr'}) {
$request->print(&processHandGrade($request));	$request->print(&processHandGrade($request));
} elsif ($command eq 'editgrades') {	} elsif ($command eq 'editgrades' && $perm{'mgr'}) {
$request->print(&editgrades($request));	$request->print(&editgrades($request));
} elsif ($command eq 'verify') {	} elsif ($command eq 'verify' && $perm{'vgr'}) {
$request->print(&verifyreceipt($request));	$request->print(&verifyreceipt($request));
} elsif ($command eq 'csvform') {	} elsif ($command eq 'csvform' && $perm{'mgr'}) {
$request->print(&upcsvScores_form($request));	$request->print(&upcsvScores_form($request));
} elsif ($command eq 'csvupload') {	} elsif ($command eq 'csvupload' && $perm{'mgr'}) {
$request->print(&csvupload($request));	$request->print(&csvupload($request));
} elsif ($command eq 'viewclasslist') {	} elsif ($command eq 'csvuploadmap' && $perm{'mgr'} ) {
$request->print(&viewclasslist($request));
} elsif ($command eq 'csvuploadmap') {
$request->print(&csvuploadmap($request));	$request->print(&csvuploadmap($request));
} elsif ($command eq 'csvuploadassign') {	} elsif ($command eq 'csvuploadassign' && $perm{'mgr'}) {
if ($ENV{'form.associate'} ne 'Reverse Association') {	if ($ENV{'form.associate'} ne 'Reverse Association') {
$request->print(&csvuploadassign($request));	$request->print(&csvuploadassign($request));
} else {	} else {
Line 3029 sub handler {	Line 3550 sub handler {
}	}
$request->print(&csvuploadmap($request));	$request->print(&csvuploadmap($request));
}	}
} else {	} elsif ($command eq 'scantron_selectphase' && $perm{'mgr'}) {
$request->print("Unknown action: $command:");	$request->print(&scantron_selectphase($request));
	} elsif ($command eq 'scantron_process' && $perm{'mgr'}) {
	$request->print(&scantron_process_students($request));
	} elsif ($command) {
	$request->print("Access Denied");
}	}
}	}
&send_footer($request);	&send_footer($request);

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

Removed from v.1.73
changed lines
	Added in v.1.106