loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.27, 2003/08/07 14:28:49
+version 1.28, 2003/08/30 14:36:24
  Line 48  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
  sub print_course_creation_page {