loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.88, 2006/05/15 19:11:40	version 1.89, 2006/05/30 12:46:09
Line 38 use Apache::londocs;	Line 38 use Apache::londocs;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::londropadd;	use Apache::londropadd;
use lib '/home/httpd/lib/perl';	use lib '/home/httpd/lib/perl';
	use LONCAPA;

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

Line 57 sub innercrsdirlist {	Line 58 sub innercrsdirlist {
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'},
&Apache::loncommon::propath($crsdata{'domain'},$crsdata{'num'}));	&propath($crsdata{'domain'},$crsdata{'num'}));
foreach (@listing) {	foreach (@listing) {
unless ($_=~/^\./) {	unless ($_=~/^\./) {
my @unpackline = split (/\&/,$_);	my @unpackline = split (/\&/,$_);