loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.257, 2005/04/07 06:56:21	version 1.258, 2005/04/07 07:03:23
Line 2212 sub version_portfiles {	Line 2212 sub version_portfiles {
}	}
$version++;	$version++;
my $home_server = &Apache::lonnet::homeserver($stuname,$domain,undef);	my $home_server = &Apache::lonnet::homeserver($stuname,$domain,undef);
$ENV{'form.copy'} = &Apache::lonnet::getfile("/uploaded/$domain/$stuname/$directory$answer_file");	$env{'form.copy'} = &Apache::lonnet::getfile("/uploaded/$domain/$stuname/$directory$answer_file");
# $ENV{'form.copy.filename'}='';	# $env{'form.copy.filename'}='';
my $copy_result = &Apache::lonnet::finishuserfileupload($stuname,$domain,$home_server,'copy',	my $copy_result = &Apache::lonnet::finishuserfileupload($stuname,$domain,$home_server,'copy',
'/portfolio'.$directory.$answer_file_parts[0].'.'.$version.'.'.$answer_file_parts[-1]);	'/portfolio'.$directory.$answer_file_parts[0].'.'.$version.'.'.$answer_file_parts[-1]);
&Apache::lonnet::logthis('copy result is '.$copy_result);	&Apache::lonnet::logthis('copy result is '.$copy_result);