loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.96, 2008/12/22 14:55:28	version 1.97, 2009/01/01 16:45:32
Line 294 sub file_submission {	Line 294 sub file_submission {
}	}
} else {	} else {
my ($symb,$crsid,$udom,$uname) = &Apache::lonnet::whichuser();	my ($symb,$crsid,$udom,$uname) = &Apache::lonnet::whichuser();
my ($path,$filename) = ($file =~ m{^(.+)/([^/]+)$});	my ($path,$filename) = ($file =~ m{^(.*/)([^/]+)$});
my $fullpath = '/userfiles/portfolio'.$path;	my $fullpath = '/userfiles/portfolio'.$path;
if (!exists($dirlist{$fullpath})) {	if (!exists($dirlist{$fullpath})) {
my @list = &Apache::lonnet::dirlist($fullpath,$udom,$uname,1);	my @list = &Apache::lonnet::dirlist($fullpath,$udom,$uname,1);
foreach my $dir_line (@list) {	$dirlist{$fullpath} = \@list;
	}
	if (ref($dirlist{$fullpath}) eq 'ARRAY') {
	foreach my $dir_line (@{$dirlist{$fullpath}}) {
my ($fname,$dom,undef,$testdir,undef,undef,undef,undef,	my ($fname,$dom,undef,$testdir,undef,undef,undef,undef,
$size,undef,$mtime,undef,undef,undef,$obs,undef) =	$size,undef,$mtime,undef,undef,undef,$obs,undef) =
split(/\&/,$dir_line,16);	split(/\&/,$dir_line,16);
Line 310 sub file_submission {	Line 313 sub file_submission {
last;	last;
}	}
}	}
$dirlist{$fullpath} = \@list;
}	}
}	}
if (ref($totalsize)) {	if (ref($totalsize)) {
Line 319 sub file_submission {	Line 321 sub file_submission {
if ($which eq 'filename') {	if ($which eq 'filename') {
&delete_form_items($jspart,$id);	&delete_form_items($jspart,$id);
}	}
	last;
} else {	} else {
push(@accepted_files,$file);	push(@accepted_files,$file);
}	}