--- loncom/interface/loncreatecourse.pm 2003/02/07 02:02:57 1.17 +++ loncom/interface/loncreatecourse.pm 2003/08/30 14:36:24 1.28 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.17 2003/02/07 02:02:57 www Exp $ +# $Id: loncreatecourse.pm,v 1.28 2003/08/30 14:36:24 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,6 +48,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 sub print_course_creation_page { @@ -107,7 +137,7 @@ $helplink

Map: -Browse +Select Map

Do NOT generate as standard course (only check if you know what you are doing): @@ -138,7 +168,14 @@ $helplink

Communication

Disable student resource discussion: - +
+Disable student use of chatrooms: + +

+

Access Control

+

+Students need access key to enter course: +

Course Coordinator

@@ -201,6 +238,10 @@ ENDENHEAD $ENV{'form.course_home'}, $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.'
'); # # Check if created correctly @@ -227,10 +268,30 @@ ENDENHEAD $cenv{'question.email'}=$ccuname.':'.$ccdomain; } } + if ($ENV{'form.setkeys'}) { + $envflag=1; + $cenv{'keyaccess'}='yes'; + } if ($ENV{'form.disresdis'}) { $envflag=1; $cenv{'pch.roles.denied'}='st'; } + if ($ENV{'form.disablechat'}) { + $envflag=1; + $cenv{'plc.roles.denied'}='st'; + } + + # Record we've not yet viewed the Course Initialization Helper for this course + $cenv{'course.helper.not.run'} = 1; + # + # Use new Randomseed + # + $envflag=1; + $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();; + # + # By default, use standard grading + $cenv{'grading'} = 'standard'; + if ($envflag) { $r->print('Setting environment: '. &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'
'); @@ -284,7 +345,11 @@ ENDENHEAD $ccuname.' at '.$ccdomain.': '. &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'

'); } - $r->print('Roles will be active at next login.'); + if ($ENV{'form.setkeys'}) { + $r->print( + '

Manage Access Keys

'); + } + $r->print('

Roles will be active at next login.

'); } # ===================================================================== Handler