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

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

version 1.54, 2004/04/16 13:33:41 version 1.55, 2004/05/04 20:43:21
Line 301  sub print_course_creation_page { Line 301  sub print_course_creation_page {
                     'nech' => "Notification of enrollment changes",                      'nech' => "Notification of enrollment changes",
                     'nccl' => "Notification to course coordinator via LON-CAPA message when enrollment changes occur during the automated update?",                      'nccl' => "Notification to course coordinator via LON-CAPA message when enrollment changes occur during the automated update?",
                     'irsp' => "Include retrieval of student photographs?",                      'irsp' => "Include retrieval of student photographs?",
       'rshm' => 'Resource Space Home',
                     'opco' => "Open Course"                      'opco' => "Open Course"
        );         );
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
Line 396  $lt{'asov'}. Line 397  $lt{'asov'}.
 <p>  <p>
 <b>$lt{'scpf'}: </b>  <b>$lt{'scpf'}: </b>
 <input type="checkbox" name="setpolicy" checked>  <input type="checkbox" name="setpolicy" checked>
 </p><p>  <br />
 <b>$lt{'scfc'}: </b>  <b>$lt{'scfc'}: </b>
 <input type="checkbox" name="setcontent" checked>  <input type="checkbox" name="setcontent" checked>
 </p>  </p>
Line 412  $lt{'asov'}. Line 413  $lt{'asov'}.
 <b>$lt{'snak'}: </b>  <b>$lt{'snak'}: </b>
 <input type="checkbox" name="setkeys" />  <input type="checkbox" name="setkeys" />
 </p>  </p>
 <h2>$lt{'cc'}</h2>  <h2>$lt{'rshm'}</h2>
   <p>
   <b>$lt{'rshm'}: </b>
   <input type="text" name="reshome" size="30" value="/res/$defdom/" />
   </p>
 <p>  <p>
 <b>$lt{'user'}:</b> <input type="text" size="15" name="ccuname" />  
 </p><p>  
 <b>$lt{'dmn'}:</b> $domform  
 </p><p>  
 <b>$lt{'ierc'}:</b>  
 <input type="checkbox" name="expireown" checked>  
 </p><p>  
 <h2>$lt{'aens'}</h2>  <h2>$lt{'aens'}</h2>
 $lt{'aesc'}  $lt{'aesc'}
 </p>  </p>
Line 449  $lt{'nccl'}<br/> Line 447  $lt{'nccl'}<br/>
 value="0" checked="true" />$lt{'no'}  value="0" checked="true" />$lt{'no'}
 </p><p>  </p><p>
 <b>$lt{'irsp'}</b> <input type="radio" name="showphotos" value="1" />$lt{'yes'} <input type="radio" name="showphotos" value="0" checked="true" />$lt{'no'}  <b>$lt{'irsp'}</b> <input type="radio" name="showphotos" value="1" />$lt{'yes'} <input type="radio" name="showphotos" value="0" checked="true" />$lt{'no'}
   </p>
   <hr />
   <h2>$lt{'cc'}</h2>
   <p>
   <b>$lt{'user'}:</b> <input type="text" size="15" name="ccuname" />
   </p><p>
   <b>$lt{'dmn'}:</b> $domform
 </p><p>  </p><p>
   <b>$lt{'ierc'}:</b>
   <input type="checkbox" name="expireown" checked>
   </p>
   <p>
 <input type="hidden" name="phase" value="two" />  <input type="hidden" name="phase" value="two" />
 <input type="button" onClick="verify_message(this.form)" value="$lt{'opco'}">  <input type="button" onClick="verify_message(this.form)" value="$lt{'opco'}">
 </p>  </p>
Line 665  ENDENHEAD Line 674  ENDENHEAD
            $cenv{'question.email'}=$ccuname.':'.$ccdomain;             $cenv{'question.email'}=$ccuname.':'.$ccdomain;
        }         }
     }      }
       if ($ENV{'form.reshome'}) {
    $cenv{'reshome'}=$ENV{'form.reshome'}.'/';
    $cenv{'reshome'}=~s/\/+$/\//;
       }
     if ($ENV{'form.setkeys'}) {      if ($ENV{'form.setkeys'}) {
        $cenv{'keyaccess'}='yes';         $cenv{'keyaccess'}='yes';
     }      }
Removed from v.1.54  
changed lines
  Added in v.1.55

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