loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.159, 2003/11/12 21:37:07	version 1.160, 2003/11/21 21:31:34
Line 2840 sub csvuploadassign {	Line 2840 sub csvuploadassign {
foreach my $grade (@gradedata) {	foreach my $grade (@gradedata) {
my %entries=&Apache::loncommon::record_sep($grade);	my %entries=&Apache::loncommon::record_sep($grade);
my $username=$entries{$fields{'username'}};	my $username=$entries{$fields{'username'}};
	$username=~s/\s//g;
my $domain=$entries{$fields{'domain'}};	my $domain=$entries{$fields{'domain'}};
	$domain=~s/\s//g;
if (!exists($$classlist{"$username:$domain"})) {	if (!exists($$classlist{"$username:$domain"})) {
push(@skipped,"$username:$domain");	push(@skipped,"$username:$domain");
next;	next;
Line 4405 sub handler {	Line 4407 sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
my $url=$ENV{'form.url'};	my $url=$ENV{'form.url'};
my $symb=$ENV{'form.symb'};	my $symb=$ENV{'form.symb'};
my $command=$ENV{'form.command'};	my @commands=&Apache::loncommon::get_env_multiple('form.command');
	my $command=$commands[0];
	if ($#commands > 0) {
	&Apache::lonnet::logthis("grades got multiple commands ".join(':',@commands));
	}
if (!$url) {	if (!$url) {
my ($temp1,$temp2);	my ($temp1,$temp2);
($temp1,$temp2,$ENV{'form.url'})=&Apache::lonnet::decode_symb($symb);	($temp1,$temp2,$ENV{'form.url'})=&Apache::lonnet::decode_symb($symb);