version 1.26, 2003/07/24 17:53:59
|
version 1.28, 2003/08/30 14:36:24
|
Line 48 use Apache::loncommon;
|
Line 48 use Apache::loncommon;
|
use Apache::lonratedt; |
use Apache::lonratedt; |
use Apache::londocs; |
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 |
# ===================================================== Phase one: fill-in form |
|
|
sub print_course_creation_page { |
sub print_course_creation_page { |
Line 208 ENDENHEAD
|
Line 238 ENDENHEAD
|
$ENV{'form.course_home'}, |
$ENV{'form.course_home'}, |
$ENV{'form.nonstandard'}); |
$ENV{'form.nonstandard'}); |
|
|
|
# Note: The testing routines depend on this being output; see |
|
# Utils::Course. This needs to at least be output as a comment |
|
# if anyone ever decides to not show this, and Utils::Course::new |
|
# will need to be suitably modified. |
$r->print('New LON-CAPA Course ID: '.$courseid.'<br>'); |
$r->print('New LON-CAPA Course ID: '.$courseid.'<br>'); |
# |
# |
# Check if created correctly |
# Check if created correctly |