loncom/interface/lonclonecourse.pm - diff

Return to lonclonecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.6, 2008/01/22 22:37:18	version 1.7, 2008/09/11 13:19:28
Line 47 sub innercrsdirlist {	Line 47 sub innercrsdirlist {
unless ($which) { $which=''; } else { $which.='/'; }	unless ($which) { $which=''; } else { $which.='/'; }
unless ($path) { $path=''; } else { $path.='/'; }	unless ($path) { $path=''; } else { $path.='/'; }
my %crsdata=&Apache::lonnet::coursedescription($courseid);	my %crsdata=&Apache::lonnet::coursedescription($courseid);
	my $getpropath = 1;
my @listing=&Apache::lonnet::dirlist	my @listing=&Apache::lonnet::dirlist
($which,$crsdata{'domain'},$crsdata{'num'},	($which,$crsdata{'domain'},$crsdata{'num'},$getpropath);
&propath($crsdata{'domain'},$crsdata{'num'}));
foreach (@listing) {	foreach (@listing) {
unless ($_=~/^\./) {	unless ($_=~/^\./) {
my @unpackline = split (/\&/,$_);	my @unpackline = split (/\&/,$_);