[LON-CAPA-cvs] cvs: loncom /interface loncreatecourse.pm
www
lon-capa-cvs@mail.lon-capa.org
Sat, 30 Aug 2003 14:36:24 -0000
www Sat Aug 30 10:36:24 2003 EDT
Modified files:
/loncom/interface loncreatecourse.pm
Log:
Tiny step toward bug #1144.
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.27 loncom/interface/loncreatecourse.pm:1.28
--- loncom/interface/loncreatecourse.pm:1.27 Thu Aug 7 10:28:49 2003
+++ loncom/interface/loncreatecourse.pm Sat Aug 30 10:36:24 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.27 2003/08/07 14:28:49 bowersj2 Exp $
+# $Id: loncreatecourse.pm,v 1.28 2003/08/30 14:36:24 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -47,6 +47,36 @@
use Apache::loncommon;
use Apache::lonratedt;
use Apache::londocs;
+
+# -------------------------------------------- Return path to profile directory
+
+sub propath {
+ my ($udom,$uname)=@_;
+ $udom=~s/\W//g;
+ $uname=~s/\W//g;
+ my $subdir=$uname.'__';
+ $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
+ my $proname="$Apache::lonnet::perlvar{'lonUsersDir'}/$udom/$subdir/$uname";
+ return $proname;
+}
+
+# ================================================ Get course directory listing
+
+sub crsdirlist {
+ my ($courseid,$which)=@_;
+ unless ($which) { $which=''; }
+ my %crsdata=&Apache::lonnet::coursedescription($courseid);
+ my @listing=&Apache::lonnet::dirlist
+ ($which,$crsdata{'domain'},$crsdata{'num'},
+ &propath($crsdata{'domain'},$crsdata{'num'}));
+ my @output=();
+ foreach (@listing) {
+ unless ($_=~/^\./) {
+ push (@output,(split(/\&/,$_))[0]);
+ }
+ }
+ return @output;
+}
# ===================================================== Phase one: fill-in form