[LON-CAPA-cvs] cvs: loncom /interface lonclonecourse.pm
raeburn
lon-capa-cvs-allow@mail.lon-capa.org
Thu, 11 Sep 2008 13:19:29 -0000
raeburn Thu Sep 11 09:19:29 2008 EDT
Modified files:
/loncom/interface lonclonecourse.pm
Log:
Args in call to lonnet::dirlist() needed changing now propath calls have moved to lond.
Index: loncom/interface/lonclonecourse.pm
diff -u loncom/interface/lonclonecourse.pm:1.6 loncom/interface/lonclonecourse.pm:1.7
--- loncom/interface/lonclonecourse.pm:1.6 Tue Jan 22 17:37:18 2008
+++ loncom/interface/lonclonecourse.pm Thu Sep 11 09:19:28 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network
# routines for clone a course
#
-# $Id: lonclonecourse.pm,v 1.6 2008/01/22 22:37:18 www Exp $
+# $Id: lonclonecourse.pm,v 1.7 2008/09/11 13:19:28 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -47,9 +47,9 @@
unless ($which) { $which=''; } else { $which.='/'; }
unless ($path) { $path=''; } else { $path.='/'; }
my %crsdata=&Apache::lonnet::coursedescription($courseid);
+ my $getpropath = 1;
my @listing=&Apache::lonnet::dirlist
- ($which,$crsdata{'domain'},$crsdata{'num'},
- &propath($crsdata{'domain'},$crsdata{'num'}));
+ ($which,$crsdata{'domain'},$crsdata{'num'},$getpropath);
foreach (@listing) {
unless ($_=~/^\./) {
my @unpackline = split (/\&/,$_);