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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.55 and 1.56

version 1.55, 2004/05/04 20:43:21 version 1.56, 2004/05/08 00:48:30
Line 286  sub print_course_creation_page { Line 286  sub print_course_creation_page {
                     'dsuc' => "Disable student use of chatrooms",                      'dsuc' => "Disable student use of chatrooms",
                     'acco' => "Access Control",                      'acco' => "Access Control",
                     'snak' => "Students need access key to enter course",                      'snak' => "Students need access key to enter course",
       'kaut' => 
       'Key authority (<tt>id@domain</tt>) if other than course',
                     'cc'   => "Course Coordinator",                      'cc'   => "Course Coordinator",
                     'user' => "Username",                      'user' => "Username",
                     'ierc' => "Immediately expire own role as Course Coordinator",                      'ierc' => "Immediately expire own role as Course Coordinator",
Line 411  $lt{'asov'}. Line 413  $lt{'asov'}.
 <h2>$lt{'acco'}</h2>  <h2>$lt{'acco'}</h2>
 <p>  <p>
 <b>$lt{'snak'}: </b>  <b>$lt{'snak'}: </b>
 <input type="checkbox" name="setkeys" />  <input type="checkbox" name="setkeys" /><br />
   <b>$lt{'kaut'}: </b>
   <input type="text" size="30" name="keyauth" />
 </p>  </p>
 <h2>$lt{'rshm'}</h2>  <h2>$lt{'rshm'}</h2>
 <p>  <p>
Line 678  ENDENHEAD Line 682  ENDENHEAD
  $cenv{'reshome'}=$ENV{'form.reshome'}.'/';   $cenv{'reshome'}=$ENV{'form.reshome'}.'/';
  $cenv{'reshome'}=~s/\/+$/\//;   $cenv{'reshome'}=~s/\/+$/\//;
     }      }
   #
   # course has keyed access
   #
     if ($ENV{'form.setkeys'}) {      if ($ENV{'form.setkeys'}) {
        $cenv{'keyaccess'}='yes';         $cenv{'keyaccess'}='yes';
     }      }
   # if specified, key authority is not course, but user
   # only active if keyaccess is yes
       if ($ENV{'form.keyauth'}) {
    $ENV{'form.keyauth'}=~s/[^\w\@]//g;
    if ($ENV{'form.keyauth'}) {
       $cenv{'keyauth'}=$ENV{'form.keyauth'};
    }
       }
   
     if ($ENV{'form.disresdis'}) {      if ($ENV{'form.disresdis'}) {
         $cenv{'pch.roles.denied'}='st';          $cenv{'pch.roles.denied'}='st';
     }      }
Removed from v.1.55  
changed lines
  Added in v.1.56

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