loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.115, 2011/07/26 17:14:51	version 1.116, 2011/10/17 12:41:35
Line 397 sub file_submission {	Line 397 sub file_submission {
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 ($listref,$listerror) =
$dirlist{$fullpath} = \@list;	&Apache::lonnet::dirlist($fullpath,$udom,$uname,1);
	if (ref($listref) eq 'ARRAY') {
	$dirlist{$fullpath} = $listref;
	}
}	}
if (ref($dirlist{$fullpath}) eq 'ARRAY') {	if (ref($dirlist{$fullpath}) eq 'ARRAY') {
foreach my $dir_line (@{$dirlist{$fullpath}}) {	foreach my $dir_line (@{$dirlist{$fullpath}}) {