[BACK]Return to loncreatecourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreatecourse.pm between versions 1.24 and 1.28

version 1.24, 2003/06/16 13:51:46 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 138  $helplink Line 168  $helplink
 <h2>Communication</h2>  <h2>Communication</h2>
 <p>  <p>
 <b>Disable student resource discussion: </b>  <b>Disable student resource discussion: </b>
 <input type="checkbox" name="disresdis" />  <input type="checkbox" name="disresdis" /> <br />
   <b>Disable student use of chatrooms: </b>
   <input type="checkbox" name="disablechat" />
 </p>  </p>
 <h2>Access Control</h2>  <h2>Access Control</h2>
 <p>  <p>
Line 206  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
Line 240  ENDENHEAD Line 276  ENDENHEAD
  $envflag=1;   $envflag=1;
         $cenv{'pch.roles.denied'}='st';          $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      # Record we've not yet viewed the Course Initialization Helper for this course
     $cenv{'course.helper.not.run'} = 1;      $cenv{'course.helper.not.run'} = 1;
Line 248  ENDENHEAD Line 288  ENDENHEAD
     #      #
     $envflag=1;      $envflag=1;
     $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;      $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
       #
       # By default, use standard grading
       $cenv{'grading'} = 'standard';
   
     if ($envflag) {      if ($envflag) {
        $r->print('Setting environment: '.                          $r->print('Setting environment: '.                 
Removed from v.1.24  
changed lines
  Added in v.1.28

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>