loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.151, 2003/11/07 19:23:56	version 1.152, 2003/11/07 19:25:26
Line 1806 sub processHandGrade {	Line 1806 sub processHandGrade {
$ENV{'form.msgsub'},$message);	$ENV{'form.msgsub'},$message);
}	}
if ($ENV{'form.collaborator'.$ctr}) {	if ($ENV{'form.collaborator'.$ctr}) {
&Apache::lonnet::logthis('collab '.(join(':',@{ $ENV{'form.collaborator'.$ctr} })));
my @collabstrs;	my @collabstrs;
if (ref($ENV{'form.collaborator'.$ctr}) eq 'ARRAY') {	if (ref($ENV{'form.collaborator'.$ctr}) eq 'ARRAY') {
@collabstrs=@{$ENV{'form.collaborator'.$ctr}};	@collabstrs=@{$ENV{'form.collaborator'.$ctr}};
Line 1986 sub saveHandGrade {	Line 1985 sub saveHandGrade {
my %newrecord = ();	my %newrecord = ();
my ($pts,$wgt) = ('','');	my ($pts,$wgt) = ('','');
foreach (split(/:/,$ENV{'form.partlist'.$newflg})) {	foreach (split(/:/,$ENV{'form.partlist'.$newflg})) {
&Apache::lonnet::logthis("-$submitter-$stuname-$part-$_");
#collaborator may vary for different parts	#collaborator may vary for different parts
if ($submitter && $_ ne $part) { next; }	if ($submitter && $_ ne $part) { next; }
my $dropMenu = $ENV{'form.GD_SEL'.$newflg.'_'.$_};	my $dropMenu = $ENV{'form.GD_SEL'.$newflg.'_'.$_};