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.130.2.1.2.2 and 1.137

version 1.130.2.1.2.2, 2003/09/25 02:46:19	version 1.137, 2003/09/17 17:43:34
Line 517 LISTJAVASCRIPT	Line 517 LISTJAVASCRIPT
my $saveStatus = $ENV{'form.Status'} eq '' ? 'Active' : $ENV{'form.Status'};	my $saveStatus = $ENV{'form.Status'} eq '' ? 'Active' : $ENV{'form.Status'};
$ENV{'form.Status'} = $saveStatus;	$ENV{'form.Status'} = $saveStatus;

$gradeTable.='<input type="radio" name="lastSub" value="lastonly" '.$checklastsub.' /> last sub only'."\n".	$gradeTable.='<input type="radio" name="lastSub" value="lastonly" '.$checklastsub.' /> last submission only'."\n".
'<input type="radio" name="lastSub" value="last" /> last sub & parts info'."\n".	'<input type="radio" name="lastSub" value="last" /> last submission & parts info'."\n".
'<input type="radio" name="lastSub" value="datesub" /> by dates and submissions'."\n".	'<input type="radio" name="lastSub" value="datesub" /> by dates and submissions'."\n".
'<input type="radio" name="lastSub" value="all" /> all details'."\n".	'<input type="radio" name="lastSub" value="all" /> all details'."\n".
'<input type="hidden" name="section" value="'.$getsec.'" />'."\n".	'<input type="hidden" name="section" value="'.$getsec.'" />'."\n".
Line 544 LISTJAVASCRIPT	Line 544 LISTJAVASCRIPT
$gradeTable.='<input type="button" '."\n".	$gradeTable.='<input type="button" '."\n".
'onClick="javascript:checkSelect(this.form.stuinfo);" '."\n".	'onClick="javascript:checkSelect(this.form.stuinfo);" '."\n".
'value="Next->" />'."\n";	'value="Next->" />'."\n";
	$gradeTable.='<input type="checkbox" name="checkPlag" checked="on">Check For Plagiarism</input>';
my (undef, undef, $fullname) = &getclasslist($getsec,'1');	my (undef, undef, $fullname) = &getclasslist($getsec,'1');
$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 1461 KEYWORDS	Line 1461 KEYWORDS
my ($ressub,$subval) = split(/:/,$_,2);	my ($ressub,$subval) = split(/:/,$_,2);
# Similarity check	# Similarity check
my $similar='';	my $similar='';
my ($oname,$odom,$ocrsid,$oessay,$osim)=&most_similar($uname,$udom,$subval);	my $oname;
if ($osim) {	my $odom;
$osim=int($osim*100.0);	my $ocrsid;
$similar='<hr /><h3><font color="#FF0000">Essay is '.$osim.	my $oessay;
'% similar to an essay by '.&Apache::loncommon::plainname($oname,$odom).	my $osim;
'</font></h3><blockquote><i>'.	if($ENV{'form.checkPlag'}){
&keywords_highlight($oessay).'</i></blockquote><hr />';	($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.
Line 1480 KEYWORDS	Line 1487 KEYWORDS
'this file may contain virusses</font><br />':'').	'this file may contain virusses</font><br />':'').
'<b>Submitted Answer: </b>'.	'<b>Submitted Answer: </b>'.
&cleanRecord($subval,$responsetype,$symb).	&cleanRecord($subval,$responsetype,$symb).
'<br /><br />'.$similar."\n"	'<br /><br />'.$similar."\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 2726 LISTJAVASCRIPT	Line 2733 LISTJAVASCRIPT
$result.='<form action="/adm/grades" method="post" name="displayPage">'."\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($request);	my ($titles,$symbx) = &getSymbMap($request);
my ($curpage,$type,$mapId) = ($symb =~ /(.*?\.(page\|sequence))___(\d+)___/);	my ($curpage) =&Apache::lonnet::decode_symb($symb);
	# my ($curpage,$mapId) =&Apache::lonnet::decode_symb($symb);
	# my $type=($curpage =~ /\.(page\|sequence)/);
my $ctr=0;	my $ctr=0;
foreach (@$titles) {	foreach (@$titles) {
my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);	my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);
Line 2798 LISTJAVASCRIPT	Line 2807 LISTJAVASCRIPT

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

my %symbx = ();	my %symbx = ();
my @titles = ();	my @titles = ();
Line 2845 sub displayPage {	Line 2852 sub displayPage {
&sub_page_js($request);	&sub_page_js($request);
$request->print($result);	$request->print($result);

my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db',	my $navmap = Apache::lonnavmaps::navmap->new();
$ENV{'request.course.fn'}.'_parms.db',1, 1);	my ($mapUrl, $id, $resUrl)=&Apache::lonnet::decode_symb($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

my $iterator = $navmap->getIterator($map->map_start(),	my $iterator = $navmap->getIterator($map->map_start(),
Line 3008 sub updateGradeByPage {	Line 3014 sub updateGradeByPage {

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

my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db',	my $navmap = Apache::lonnavmaps::navmap->new();
$ENV{'request.course.fn'}.'_parms.db',1, 1);	my ($mapUrl, $id, $resUrl) = &Apache::lonnet::decode_symb( $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

my $iterator = $navmap->getIterator($map->map_start(),	my $iterator = $navmap->getIterator($map->map_start(),
Line 3132 sub getSequenceDropDown {	Line 3137 sub getSequenceDropDown {
my ($request,$symb)=@_;	my ($request,$symb)=@_;
my $result='<select name="selectpage">'."\n";	my $result='<select name="selectpage">'."\n";
my ($titles,$symbx) = &getSymbMap($request);	my ($titles,$symbx) = &getSymbMap($request);
my ($curpage,$type,$mapId) = ($symb =~ /(.*?\.(page\|sequence))___(\d+)___/);	my ($curpage)=&Apache::lonnet::decode_symb($symb);
my $ctr=0;	my $ctr=0;
foreach (@$titles) {	foreach (@$titles) {
my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);	my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);
Line 3146 sub getSequenceDropDown {	Line 3151 sub getSequenceDropDown {
}	}

sub scantron_uploads {	sub scantron_uploads {
#FIXME need to support scantron files put in another location,
# maybe the course directory? a scantron dir in the course directory?
if (!-e $Apache::lonnet::perlvar{'lonScansDir'}) { return ''};	if (!-e $Apache::lonnet::perlvar{'lonScansDir'}) { return ''};
my $result= '<select name="scantron_selectfile">';	my $result= '<select name="scantron_selectfile">';
opendir(DIR,$Apache::lonnet::perlvar{'lonScansDir'});	opendir(DIR,$Apache::lonnet::perlvar{'lonScansDir'});
Line 3184 sub scantron_selectphase {	Line 3187 sub scantron_selectphase {
my $file_selector=&scantron_uploads();	my $file_selector=&scantron_uploads();
my $format_selector=&scantron_scantab();	my $format_selector=&scantron_scantab();
my $result;	my $result;
#FIXME allow instructor to be able to download the scantron file
# and to upload it,
$result.= <<SCANTRONFORM;	$result.= <<SCANTRONFORM;
<form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantro_process">	<form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantro_process">
<input type="hidden" name="command" value="scantron_validate" />	<input type="hidden" name="command" value="scantron_process" />
$default_form_data	$default_form_data
<table width="100%" border="0">	<table width="100%" border="0">
<tr>	<tr>
Line 3218 sub scantron_selectphase {	Line 3219 sub scantron_selectphase {
</td>	</td>
</tr>	</tr>
</table>	</table>
<input type="submit" value="Validate Scantron Records" />	<input type="submit" value="Submit" />
</form>	</form>
$grading_menu_button	$grading_menu_button
SCANTRONFORM	SCANTRONFORM
Line 3230 sub get_scantron_config {	Line 3231 sub get_scantron_config {
my ($which) = @_;	my ($which) = @_;
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');	my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
my %config;	my %config;
#FIXME probably should move to XML it has already gotten a bit much now
foreach my $line (<$fh>) {	foreach my $line (<$fh>) {
my ($name,$descrip)=split(/:/,$line);	my ($name,$descrip)=split(/:/,$line);
if ($name ne $which ) { next; }	if ($name ne $which ) { next; }
Line 3247 sub get_scantron_config {	Line 3247 sub get_scantron_config {
$config{'Qlength'}=$config[8];	$config{'Qlength'}=$config[8];
$config{'Qoff'}=$config[9];	$config{'Qoff'}=$config[9];
$config{'Qon'}=$config[10];	$config{'Qon'}=$config[10];
$config{'PaperID'}=$config[11];
$config{'PaperIDlength'}=$config[12];
$config{'FirstName'}=$config[13];
$config{'FirstNamelength'}=$config[14];
$config{'LastName'}=$config[15];
$config{'LastNamelength'}=$config[16];
last;	last;
}	}
return %config;	return %config;
Line 3283 sub scantron_parse_scanline {	Line 3277 sub scantron_parse_scanline {
}	}
$record{'scantron.ID'}=substr($data,$$scantron_config{'IDstart'}-1,	$record{'scantron.ID'}=substr($data,$$scantron_config{'IDstart'}-1,
$$scantron_config{'IDlength'});	$$scantron_config{'IDlength'});
$record{'scantron.paperID'}=
substr($data,$$scantron_config{'PaperID'}-1,
$$scantron_config{'PaperIDlength'});
$record{'scantron.FirstName'}=
substr($data,$$scantron_config{'FirstName'}-1,
$$scantron_config{'FirstNamelength'});
$record{'scantron.LastName'}=
substr($data,$$scantron_config{'LastName'}-1,
$$scantron_config{'LastNamelength'});
my @alphabet=('A'..'Z');	my @alphabet=('A'..'Z');
my $questnum=0;	my $questnum=0;
while ($questions) {	while ($questions) {
Line 3302 sub scantron_parse_scanline {	Line 3287 sub scantron_parse_scanline {
my (@array)=split(/$$scantron_config{'Qon'}/,$currentquest);	my (@array)=split(/$$scantron_config{'Qon'}/,$currentquest);
if (scalar(@array) gt 2) {	if (scalar(@array) gt 2) {
#FIXME do something intelligent with double bubbles	#FIXME do something intelligent with double bubbles
#actually not a concern right now, should be taking care of later
Apache->request->print("<br ><b>Wha!!!</b> <pre>".scalar(@array).	Apache->request->print("<br ><b>Wha!!!</b> <pre>".scalar(@array).
'-'.$currentquest.'-'.$questnum.'</pre><br />');	'-'.$currentquest.'-'.$questnum.'</pre><br />');
}	}
Line 3317 sub scantron_parse_scanline {	Line 3301 sub scantron_parse_scanline {
}	}

sub scantron_add_delay {	sub scantron_add_delay {
my ($delayqueue,$scanline,$errormessage,$errorcode)=@_;
Apache->request->print('add_delay_error '.$_[2] );
push(@$delayqueue,
{'line' => $scanline, 'emsg' => $errormessage,
'ecode' => $errorcode }
);
}	}

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

#FIXME I think I am doing this in the wrong order, I think it would be
#better to make a several passes analyzing all of the lines in the
#file for common errors wrong/invalid PID/username duplicated
#PID/username, missing bubbles, double bubbles, missing/invalid CODE
#and then get the instructor to fix all of these errors, then grade
#the corrected one, I'll still need to catch error conditions, but
#maybe most will taken care even before we start

sub scantron_validate_file {
my ($r) = @_;
my ($symb,$url)=&get_symb_and_url($r);
if (!$symb) {return '';}
my $default_form_data=&defaultFormData($symb,$url);

if ($ENV{'form.scantron_corrections'}) {
&scantron_process_corrections($r);
}
#get the student pick code ready
$r->print(&Apache::loncommon::studentbrowser_javascript());
my $result= <<SCANTRONFORM;
<form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantronupload">
<input type="hidden" name="command" value="scantron_validate" />
<input type="hidden" name="selectpage" value="$ENV{'form.selectpage'}" />
<input type="hidden" name="scantron_format" value="$ENV{'form.scantron_format'}" />
<input type="hidden" name="scantron_selectfile" value="$ENV{'form.scantron_selectfile'}" />
$default_form_data
SCANTRONFORM
$r->print($result);

my @validate_phases=( 'ID',
'CODE',
'doublebubble',
'missingbubbles');
if (!$ENV{'form.validatepass'}) {
$ENV{'form.valiadatepass'} = 0;
}
my $currentphase=$ENV{'form.valiadatepass'};

if ($ENV{'form.scantron_selectfile'}=~m-^/-) {
#first pass copy file to classdir

}
my $stop=0;
while (!$stop && $currentphase < scalar(@validate_phases)) {
my $which="scantron_validate_".$validate_phases[$currentphase];
{
no strict 'refs';
($stop,$currentphase)=&$which($r,$currentphase);
}
}
$r->print("<input type='hidden' name='validatepass' value='".$currentphase."' />");
}

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

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

#get scantron line setup
my %scantron_config=&get_scantron_config($ENV{'form.scantron_format'});
#my $scanlines=Apache::File->new($Apache::lonnet::perlvar{'lonScansDir'}."/$ENV{'form.scantron_selectfile'}");
#FIXME really would prefer a scantron directory but tokenwrapper
# doesn't allow access to subdirs of userfiles
my $scanlines=&Apache::lonnet::getfile('/uploaded/'.
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.'/'.
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.'/'.
'scantron_'.$ENV{'form.scantron_selectfile'});

my @scanlines=split("\n",$scanlines);

my %found=('ids'=>{},'usernames'=>{});
foreach my $line (@scanlines) {
my $scan_record=&scantron_parse_scanline($line,\%scantron_config);
my $id=$$scan_record{'scantron.ID'};
$r->print("<p>Checking ID ".$$scan_record{'scantron.ID'}."</p>\n");
my $found;
foreach my $checkid (keys(%idmap)) {
if (lc($checkid) eq lc($id)) {
if ($checkid ne $id) {
$r->print("<p>Using $checkid for bubbled $id</p>\n");
}
$found=$checkid;last;
}
}
if ($found) {
if ($found{'ids'}{$found}) {
&scantron_get_ID_correction($r,$line,$scan_record,'duplicate',$found);
return(1);
} else {
$found{'ids'}{$found}++;
}
} else {
&scantron_get_ID_correction($r,$line,$scan_record,'incorrect');
return(1);
}
}

return (0,$currentphase+1);
}

sub scantron_get_ID_correction {
my ($r,$line,$scan_record,$error,$arg)=@_;
$r->print("<p>need to correct ID</p>\n");
$r->print('<input type="hidden" name="scantron_corrections" value="'.$error.'" />'."\n");
$r->print('<input type="hidden" name="scantron_line" value="'.&HTML::Entities::encode($line).'" />'."\n");
if ($error eq 'unknown') {
$r->print("<p> Unknown ID </p>\n");
} elsif ($error eq 'duplicate') {
$r->print("<p> Duplicated ID </p>\n");
}
$r->print("<p>Original ID is ".$$scan_record{'scantron.ID'}."</p>\n");
$r->print("<p>Name on paper is ".$$scan_record{'scantron.LastName'}.",".
$$scan_record{'scantron.FirstName'}."</p>");
$r->print("Corrected User -- ");
$r->print("\nusername:<input type='text' name='scantron_username' value='' />");
$r->print("\ndomain:".
&Apache::loncommon::select_dom_form(undef,'scantron_domain'));
#FIXME it would be nice if this sent back the user ID and
#could do partial userID matches
$r->print(&Apache::loncommon::selectstudent_link('scantronupload',
'scantron_username','scantron_domain'));
&scantron_end_validate_form($r);
}

sub scantron_end_validate_form {
my ($r) = @_;
$r->print('<input type="submit" name="submit" /></form></body></html>');
}

sub scantron_process_students {	sub scantron_process_students {
my ($r) = @_;	my ($r) = @_;
my (undef,undef,$sequence)=split(/___/,$ENV{'form.selectpage'});	my (undef,undef,$sequence)=&Apache::lonnet::decode_symb($ENV{'form.selectpage'});
my ($symb,$url)=&get_symb_and_url($r);	my ($symb,$url)=&get_symb_and_url($r);
if (!$symb) {return '';}	if (!$symb) {return '';}
my $default_form_data=&defaultFormData($symb,$url);	my $default_form_data=&defaultFormData($symb,$url);
Line 3489 sub scantron_process_students {	Line 3333 sub scantron_process_students {
my @scanlines=<$scanlines>;	my @scanlines=<$scanlines>;
my $classlist=&Apache::loncoursedata::get_classlist();	my $classlist=&Apache::loncoursedata::get_classlist();
my %idmap=&username_to_idmap($classlist);	my %idmap=&username_to_idmap($classlist);
my $navmap=Apache::lonnavmaps::navmap->new($ENV{'request.course.fn'}.'.db',$ENV{'request.course.fn'}.'_parms.db',1, 1);	my $navmap=Apache::lonnavmaps::navmap->new();
my $map=$navmap->getResourceByUrl($sequence);	my $map=$navmap->getResourceByUrl($sequence);
my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0);	my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0);
# $r->print("geto ".scalar(@resources)."<br />");	$r->print("geto ".scalar(@resources)."<br />");
my $result= <<SCANTRONFORM;	my $result= <<SCANTRONFORM;
<form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantronupload">	<form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantronupload">
<input type="hidden" name="command" value="scantron_configphase" />	<input type="hidden" name="command" value="scantron_configphase" />
Line 3501 SCANTRONFORM	Line 3345 SCANTRONFORM
$r->print($result);	$r->print($result);

my @delayqueue;	my @delayqueue;
my %completedstudents;	my $totalcorrect;
	my $totalincorrect;

my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,
'Scantron Status','Scantron Progress',scalar(@scanlines));	'Scantron Status','Scantron Progress',scalar(@scanlines));
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
'Processing first student');
my $start=&Time::HiRes::time();
foreach my $line (@scanlines) {	foreach my $line (@scanlines) {
$r->print('<pre>line is'.$line.'</pre>');	my $studentcorrect;
	my $studentincorrect;

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

my $i=0;	my $i=0;
foreach my $resource (@resources) {	foreach my $resource (@resources) {
Line 3542 SCANTRONFORM	Line 3379 SCANTRONFORM
'grade_domain' =>$udom,	'grade_domain' =>$udom,
'grade_courseid'=>$ENV{'request.course.id'},	'grade_courseid'=>$ENV{'request.course.id'},
'grade_symb' =>$resource->symb()));	'grade_symb' =>$resource->symb()));
# my %score=&Apache::lonnet::restore($resource->symb(),	my %score=&Apache::lonnet::restore($resource->symb(),
# $ENV{'request.course.id'},	$ENV{'request.course.id'},
# $udom,$uname);	$udom,$uname);
# foreach my $part ($resource->{PARTS}) {	foreach my $part ($resource->{PARTS}) {
# if ($score{'resource.'.$part.'.solved'} =~ /^correct/) {	if ($score{'resource.'.$part.'.solved'} =~ /^correct/) {
# $studentcorrect++;	$studentcorrect++;
# $totalcorrect++;	$totalcorrect++;
# } else {	} else {
# $studentincorrect++;	$studentincorrect++;
# $totalincorrect++;	$totalincorrect++;
# }	}
# }	}
# $r->print('<pre>'.	$r->print('<pre>'.
# $resource->symb().'-'.	$resource->symb().'-'.
# $resource->src().'-'.'</pre>result is'.$result);	$resource->src().'-'.'</pre>result is'.$result);
# &Apache::lonhomework::showhash(%score);	&Apache::lonhomework::showhash(%score);
# if ($i eq 3) {last;}	# if ($i eq 3) {last;}
}	}
$completedstudents{$uname}={'line'=>$line};
} continue {
&Apache::lonnet::delenv('form.counter');	&Apache::lonnet::delenv('form.counter');
&Apache::lonnet::delenv('scantron\.');	&Apache::lonnet::delenv('scantron\.');
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
'last student');	'last student Who got a '.$studentcorrect.' correct and '.
#last;	$studentincorrect.' incorrect. The class has gotten '.
	$totalcorrect.' correct and '.$totalincorrect.' incorrect');
	last;
#FIXME	#FIXME
#get iterator for $sequence	#get iterator for $sequence
#foreach question 'submit' the students answer to the server	#foreach question 'submit' the students answer to the server
Line 3574 SCANTRONFORM	Line 3411 SCANTRONFORM
# generate data to pass back that includes grade recevied	# generate data to pass back that includes grade recevied
#}	#}
}	}
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);	$Apache::lonxml::debug=0;
my $lasttime = &Time::HiRes::time()-$start;
$r->print("<p>took $lasttime</p>");

#$Apache::lonxml::debug=0;
foreach my $delay (@delayqueue) {	foreach my $delay (@delayqueue) {
#FIXME	#FIXME
#print out each delayed student with interface to select how	#print out each delayed student with interface to select how
Line 3776 sub handler {	Line 3609 sub handler {
my $command=$ENV{'form.command'};	my $command=$ENV{'form.command'};
if (!$url) {	if (!$url) {
my ($temp1,$temp2);	my ($temp1,$temp2);
($temp1,$temp2,$ENV{'form.url'})=split(/___/,$symb);	($temp1,$temp2,$ENV{'form.url'})=&Apache::lonnet::decode_symb($symb);
$url = $ENV{'form.url'};	$url = $ENV{'form.url'};
}	}
&send_header($request);	&send_header($request);
Line 3789 sub handler {	Line 3622 sub handler {
my ($tsymb,$tuname,$tudom,$tcrsid)=	my ($tsymb,$tuname,$tudom,$tcrsid)=
&Apache::lonnet::checkin($token);	&Apache::lonnet::checkin($token);
if ($tsymb) {	if ($tsymb) {
my ($map,$id,$url)=split(/\_\_\_/,$tsymb);	my ($map,$id,$url)=&Apache::lonnet::decode_symb($tsymb);
if (&Apache::lonnet::allowed('mgr',$tcrsid)) {	if (&Apache::lonnet::allowed('mgr',$tcrsid)) {
$request->print(&Apache::lonnet::ssi_body('/res/'.$url,	$request->print(&Apache::lonnet::ssi_body('/res/'.$url,
('grade_username' => $tuname,	('grade_username' => $tuname,
Line 3861 sub handler {	Line 3694 sub handler {
}	}
} elsif ($command eq 'scantron_selectphase' && $perm{'mgr'}) {	} elsif ($command eq 'scantron_selectphase' && $perm{'mgr'}) {
$request->print(&scantron_selectphase($request));	$request->print(&scantron_selectphase($request));
} elsif ($command eq 'scantron_validate' && $perm{'mgr'}) {
$request->print(&scantron_validate_file($request));
} elsif ($command eq 'scantron_process' && $perm{'mgr'}) {	} elsif ($command eq 'scantron_process' && $perm{'mgr'}) {
$request->print(&scantron_process_students($request));	$request->print(&scantron_process_students($request));
} elsif ($command) {	} elsif ($command) {

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

Removed from v.1.130.2.1.2.2
changed lines
	Added in v.1.137