loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.62, 2004/07/01 21:54:24	version 1.63, 2004/07/02 00:27:44
Line 53 sub crsdirlist {	Line 53 sub crsdirlist {
sub innercrsdirlist {	sub innercrsdirlist {
my ($courseid,$which,$path)=@_;	my ($courseid,$which,$path)=@_;
my $dirptr=16384;	my $dirptr=16384;
unless ($which) { $which=''; }	unless ($which) { $which=''; } else { $which.='/'; }
unless ($path) { $path=''; }	unless ($path) { $path=''; } else { $path.='/'; }
my %crsdata=&Apache::lonnet::coursedescription($courseid);	my %crsdata=&Apache::lonnet::coursedescription($courseid);
my @listing=&Apache::lonnet::dirlist	my @listing=&Apache::lonnet::dirlist
($which,$crsdata{'domain'},$crsdata{'num'},	($which,$crsdata{'domain'},$crsdata{'num'},
Line 64 sub innercrsdirlist {	Line 64 sub innercrsdirlist {
my @unpackline = split (/\&/,$_);	my @unpackline = split (/\&/,$_);
if ($unpackline[3]&$dirptr) {	if ($unpackline[3]&$dirptr) {
# is a directory, recurse	# is a directory, recurse
&innercrsdirlist($courseid,$which.'/'.$unpackline[0],	&innercrsdirlist($courseid,$which.$unpackline[0],
$path.'/'.$unpackline[0]);	$path.$unpackline[0]);
} else {	} else {
# is a file, put into output	# is a file, put into output
push (@output,$path.'/'.$unpackline[0]);	push (@output,$path.$unpackline[0]);
}	}
}	}
}	}