loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.279, 2005/08/12 22:14:12	version 1.280, 2005/08/29 10:06:07
Line 4869 sub scantron_get_closely_matching_CODEs	Line 4869 sub scantron_get_closely_matching_CODEs
}	}

sub get_codes {	sub get_codes {
my $old_name=$env{'form.scantron_CODElist'};	my ($old_name, $cdom, $cnum) = @_;
my $cdom =$env{'course.'.$env{'request.course.id'}.'.domain'};	if (!$old_name) {
my $cnum =$env{'course.'.$env{'request.course.id'}.'.num'};	$old_name=$env{'form.scantron_CODElist'};
	}
	if (!$cdom) {
	$cdom =$env{'course.'.$env{'request.course.id'}.'.domain'};
	}
	if (!$cnum) {
	$cnum =$env{'course.'.$env{'request.course.id'}.'.num'};
	}
my %result=&Apache::lonnet::get('CODEs',[$old_name,"type\0$old_name"],	my %result=&Apache::lonnet::get('CODEs',[$old_name,"type\0$old_name"],
$cdom,$cnum);	$cdom,$cnum);
my %allcodes;	my %allcodes;