loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.67, 2005/05/20 18:53:53	version 1.68, 2005/09/19 20:41:01
Line 164 sub file_submission {	Line 164 sub file_submission {
if ($files =~ /[^\s]/) {	if ($files =~ /[^\s]/) {
$files =~s/,$//;	$files =~s/,$//;
$Apache::lonhomework::results{"resource.$part.$id.$which"}=$files;	$Apache::lonhomework::results{"resource.$part.$id.$which"}=$files;
my @submitted_files = split(/,/,$files);
	my @submitted_files = ($files);
	if ( $which eq 'portfiles' ) {
	@submitted_files = split(/,/,$files);
	}

my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");	my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");
if ($uploadedfiletypes) {	if ($uploadedfiletypes) {
$uploadedfiletypes=~s/[^\w\,]//g;	$uploadedfiletypes=~s/[^\w\,]//g;