loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.56, 2004/05/08 00:48:30	version 1.57, 2004/05/11 06:02:58
Line 42 use localenroll;	Line 42 use localenroll;

# ================================================ Get course directory listing	# ================================================ Get course directory listing

	#FIXME - doesn't support directories under /userfiles/ BUG#2999
sub crsdirlist {	sub crsdirlist {
my ($courseid,$which)=@_;	my ($courseid,$which)=@_;
unless ($which) { $which=''; }	unless ($which) { $which=''; }
Line 51 sub crsdirlist {	Line 52 sub crsdirlist {
&Apache::loncommon::propath($crsdata{'domain'},$crsdata{'num'}));	&Apache::loncommon::propath($crsdata{'domain'},$crsdata{'num'}));
my @output=();	my @output=();
foreach (@listing) {	foreach (@listing) {
	#FIXME if list is a DIR need to recurse
unless ($_=~/^\./) {	unless ($_=~/^\./) {
push (@output,(split(/\&/,$_))[0]);	push (@output,(split(/\&/,$_))[0]);
}	}