loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.255, 2005/04/03 21:41:58	version 1.256, 2005/04/04 23:56:44
Line 2211 sub version_portfiles {	Line 2211 sub version_portfiles {
}	}
}	}
$version++;	$version++;
	my $home_server = &Apache::lonnet::homeserver($stuname,$domain,undef);
	$ENV{'form.copy'} = &Apache::lonnet::getfile("/uploaded/$domain/$stuname/$directory$answer_file");
	# $ENV{'form.copy.filename'}='';
	my $copy_result = &Apache::lonnet::finishuserfileupload($stuname,$domain,$home_server,'copy',
	'/portfolio'.$directory.$answer_file_parts[0].'.'.$version.'.'.$answer_file_parts[-1]);
	&Apache::lonnet::logthis('copy result is '.$copy_result);
&Apache::lonnet::logthis('answer file is '.$answer_file.	&Apache::lonnet::logthis('answer file is '.$answer_file.
' becomes '.$answer_file_parts[0].'.'.$version.'.'.$answer_file_parts[-1]);	' becomes '.$answer_file_parts[0].'.'.$version.'.'.$answer_file_parts[-1]);
&Apache::lonnet::logthis('from dir list is '.$file_names[0].' has '.@file_name_parts.' parts');	&Apache::lonnet::logthis('from dir list is '.$file_names[0].' has '.@file_name_parts.' parts');