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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.64 and 1.69

version 1.64, 2004/07/12 17:55:35 version 1.69, 2004/10/15 22:48:48
Line 1 Line 1
 #meserver The LearningOnline Network  # The LearningOnline Network
 # Create a course  # Create a course
 #  #
 # $Id$  # $Id$
Line 123  sub copyfile { Line 123  sub copyfile {
                      &readfile($origcrsid,$which),                       &readfile($origcrsid,$which),
     (      (
        '/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'         '/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
     => '/uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/'      => '/uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/',
          '/public/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
       => '/public/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/'
             )));              )));
     }      }
 }  }
Line 202  sub copyresourcedb { Line 204  sub copyresourcedb {
 sub copyuserfiles {  sub copyuserfiles {
     my ($origcrsid,$newcrsid)=@_;      my ($origcrsid,$newcrsid)=@_;
     foreach (&crsdirlist($origcrsid,'userfiles')) {      foreach (&crsdirlist($origcrsid,'userfiles')) {
  &copyfile($origcrsid,$newcrsid,$_);   if ($_ !~m|^scantron_|) {
       &copyfile($origcrsid,$newcrsid,$_);
    }
     }      }
 }  }
 # ========================================================== Copy all userfiles  # ========================================================== Copy all userfiles
Line 278  sub print_course_creation_page { Line 282  sub print_course_creation_page {
                     'snid' => "Section Numbers and corresponding LON-CAPA section/group IDs",                      'snid' => "Section Numbers and corresponding LON-CAPA section/group IDs",
                     'csli' => "a comma separated list of institutional section numbers, each separated by a colon from the (optional) corresponding section/group ID to be used in LON-CAPA e.g., 001:1,002:2",                      'csli' => "a comma separated list of institutional section numbers, each separated by a colon from the (optional) corresponding section/group ID to be used in LON-CAPA e.g., 001:1,002:2",
                     'crcs' => "Crosslisted courses",                      'crcs' => "Crosslisted courses",
                     'cscs' => "a comma separated list of course sections crosslisted with the current course, with each entry including the institutional course section name followed by a colon and then the (optional) groupID to be used in LON-CAPA, e.g., fs03ent231001:ent1,fs03bot231001:bot1,fs03zol231002:bot2",                       'cscs' => "a comma separated list of course sections crosslisted with the current course, with each entry including the institutional course section name followed by a colon and then the (optional) groupID to be used in LON-CAPA, e.g., fs03ent231001:ent1,fs03bot231001:bot1,fs03zol231002:zol2",
                     'crco' => "Course Content",                      'crco' => "Course Content",
                     'cncr' => "Completely new course",                      'cncr' => "Completely new course",
                     'cecr' => "Clone an existing course",                       'cecr' => "Clone an existing course", 
Line 356  $helplink Line 360  $helplink
 <form action="/adm/createcourse" method="post" name="ccrs">  <form action="/adm/createcourse" method="post" name="ccrs">
 <h2>$lt{'cinf'}</h2>  <h2>$lt{'cinf'}</h2>
 <p>  <p>
 <b>$lt{'ctit'}:</b>  <label><b>$lt{'ctit'}:</b>
 <input type="text" size="50" name="title">  <input type="text" size="50" name="title" /></label>
 </p><p>  
 <b>$lt{'chsr'}:</b>$course_home  
 </p><p>  </p><p>
 <b>$lt{'cidn'} ($lt{'opt'})</b>  <label>
 <input type="text" size="30" name="crsid">      <b>$lt{'chsr'}:</b>$course_home
   </label>
   </p><p>
   <label>
       <b>$lt{'cidn'} ($lt{'opt'})</b>
       <input type="text" size="30" name="crsid" />
   </label>
 </p><p>  </p><p>
 <h2>$lt{'iinf'}</h2>  <h2>$lt{'iinf'}</h2>
 <p>  <p>
 $lt{'stat'}  $lt{'stat'}
 </p><p>  </p><p>
 <b>$lt{'ccod'}</b>  <label>
 <input type="text" size="30" name="crscode" /><br/>      <b>$lt{'ccod'}</b>
       <input type="text" size="30" name="crscode" />
   </label>
   <br/>
 ($lt{'toin'})  ($lt{'toin'})
 </p><p>  </p><p>
 <b>$lt{'snid'}</b>  <label>
  <input type="text" size="30" name="crssections" /><br/>      <b>$lt{'snid'}</b>
       <input type="text" size="30" name="crssections" />
   </label>
   <br/>
 ($lt{'csli'})  ($lt{'csli'})
 </p><p>  </p><p>
 <b>$lt{'crcs'}</b>  <label>
 <input type="text" size="30" name="crsxlist" /><br/>      <b>$lt{'crcs'}</b>
       <input type="text" size="30" name="crsxlist" />
   </label>
   <br/>
 ($lt{'cscs'})  ($lt{'cscs'})
 </p>  </p>
 <h2>$lt{'crco'}</h2>  <h2>$lt{'crco'}</h2>
Line 385  $lt{'stat'} Line 402  $lt{'stat'}
 <tr><th>$lt{'cncr'}</th><th>$lt{'cecr'}</th></tr>  <tr><th>$lt{'cncr'}</th><th>$lt{'cecr'}</th></tr>
 <tr><td>  <tr><td>
 <p>  <p>
 <b>$lt{'map'}:</b>  <label>
 <input type="text" size="50" name="topmap">      <b>$lt{'map'}:</b>
       <input type="text" size="50" name="topmap" />
   </label>
 <a href="javascript:openbrowser('ccrs','topmap')">$lt{'smap'}</a>  <a href="javascript:openbrowser('ccrs','topmap')">$lt{'smap'}</a>
 </p><p>  </p><p>
 <b>$lt{'sacr'}</b><br />   <label for="nonstd"><b>$lt{'sacr'}</b></label>
   <br />
 ($lt{'ocik'}):  ($lt{'ocik'}):
 <input type="checkbox" name="nonstandard">  <input id="nonstd" type="checkbox" name="nonstandard" />
 </p>  </p><p>
 <p>  
 <b>$lt{'fres'}</b><br />($lt{'stco'}):  <b>$lt{'fres'}</b><br />($lt{'stco'}):
 <input type="radio" name="firstres" value="blank">$lt{'blnk'}  <label>
       <input type="radio" name="firstres" value="blank" />$lt{'blnk'}
   </label>
 &nbsp;  &nbsp;
 <input type="radio" name="firstres" value="syl" checked>$lt{'sllb'}  <label>
       <input type="radio" name="firstres" value="syl" checked />$lt{'sllb'}
   </label>
 &nbsp;  &nbsp;
 <input type="radio" name="firstres" value="nav">$lt{'navi'}  <label>
       <input type="radio" name="firstres" value="nav" />$lt{'navi'}
   </label>
 </p>  </p>
 </td><td>  </td><td>
 $lt{'cid'}: <input input type="text" size="25" name="clonecourse" value="" />  <label>
       $lt{'cid'}: <input type="text" size="25" name="clonecourse" value="" />
   </label>
   <br />
   <label>
       $lt{'dmn'}: $cloneform
   </label>
 <br />  <br />
 $lt{'dmn'}:   &nbsp;<br />
 $cloneform<br />&nbsp;<br />  
 $lt{'asov'}.  $lt{'asov'}.
 </td></tr>  </td></tr>
 </table>  </table>
 <h2>$lt{'assp'}</h2>  <h2>$lt{'assp'}</h2>
 <p>  <p>
 <b>$lt{'oaas'}: </b>  <label>
 <input type="checkbox" name="openall" />      <b>$lt{'oaas'}: </b>
       <input type="checkbox" name="openall" />
   </label>
 </p>  </p>
 <h2>$lt{'mssg'}</h2>  <h2>$lt{'mssg'}</h2>
 <p>  <p>
 <b>$lt{'scpf'}: </b>  <label>
 <input type="checkbox" name="setpolicy" checked>      <b>$lt{'scpf'}: </b>
       <input type="checkbox" name="setpolicy" checked />
   </label>
 <br />  <br />
 <b>$lt{'scfc'}: </b>  <label>
 <input type="checkbox" name="setcontent" checked>      <b>$lt{'scfc'}: </b>
       <input type="checkbox" name="setcontent" checked />
   </label>
 </p>  </p>
 <h2>$lt{'cmmn'}</h2>  <h2>$lt{'cmmn'}</h2>
 <p>  <p>
 <b>$lt{'dsrd'}: </b>  <label>
 <input type="checkbox" name="disresdis" /> <br />      <b>$lt{'dsrd'}: </b>
 <b>$lt{'dsuc'}: </b>      <input type="checkbox" name="disresdis" />
 <input type="checkbox" name="disablechat" />  </label>
   <br />
   <label>
       <b>$lt{'dsuc'}: </b>
       <input type="checkbox" name="disablechat" />
   </label>
 </p>  </p>
 <h2>$lt{'acco'}</h2>  <h2>$lt{'acco'}</h2>
 <p>  <p>
 <b>$lt{'snak'}: </b>  <label>
 <input type="checkbox" name="setkeys" /><br />      <b>$lt{'snak'}: </b>
 <b>$lt{'kaut'}: </b>      <input type="checkbox" name="setkeys" />
 <input type="text" size="30" name="keyauth" />  </label>
   <br />
   <label>
       <b>$lt{'kaut'}: </b>
       <input type="text" size="30" name="keyauth" />
   </label>
 </p>  </p>
 <h2>$lt{'rshm'}</h2>  <h2>$lt{'rshm'}</h2>
 <p>  <p>
 <b>$lt{'rshm'}: </b>  <label>
 <input type="text" name="reshome" size="30" value="/res/$defdom/" />      <b>$lt{'rshm'}: </b>
       <input type="text" name="reshome" size="30" value="/res/$defdom/" />
   </label>
 </p>  </p>
 <p>  <p>
 <h2>$lt{'aens'}</h2>  <h2>$lt{'aens'}</h2>
Line 447  $lt{'aesc'} Line 495  $lt{'aesc'}
 </p>  </p>
 <p>  <p>
 <b>$lt{'aadd'}</b>  <b>$lt{'aadd'}</b>
 <input type="radio" name="autoadds" value="1" />$lt{'yes'} <input type="radio" name="autoadds" value="0" checked="true" />$lt{'no'}  <label><input type="radio" name="autoadds" value="1" />$lt{'yes'}</label> 
   <label><input type="radio" name="autoadds" value="0" checked="true" />$lt{'no'}
   </label>
 </p><p>  </p><p>
 <b>$lt{'audr'}</b>  <b>$lt{'audr'}</b>
 <input type="radio" name="autodrops" value="1" />$lt{'yes'} <input type="radio" name="autodrops" value="0" checked="true" />$lt{'no'}  <label><input type="radio" name="autodrops" value="1" />$lt{'yes'}</label> 
   <label><input type="radio" name="autodrops" value="0" checked="true" />$lt{'no'}</label>
 </p><p>  </p><p>
 <b>$lt{'dacu'}</b>  <b>$lt{'dacu'}</b>
 $enroll_table  $enroll_table
Line 469  $locform Line 520  $locform
 </p><p>  </p><p>
 <b>$lt{'nech'}</b><br />  <b>$lt{'nech'}</b><br />
 $lt{'nccl'}<br/>  $lt{'nccl'}<br/>
 <input type="radio" name="notify" value="1" />$lt{'yes'} <input type="radio" name="notify"  <label>
 value="0" checked="true" />$lt{'no'}      <input type="radio" name="notify" value="1" />$lt{'yes'}
 </p><p>  </label> 
 <b>$lt{'irsp'}</b> <input type="radio" name="showphotos" value="1" />$lt{'yes'} <input type="radio" name="showphotos" value="0" checked="true" />$lt{'no'}  <label>
       <input type="radio" name="notify" value="0" checked="true" />$lt{'no'}
   </label>
   </p><p>
   <b>$lt{'irsp'}</b>
   <label>
       <input type="radio" name="showphotos" value="1" />$lt{'yes'}
   </label> 
   <label>
       <input type="radio" name="showphotos" value="0" checked="true" />$lt{'no'}
   </label>
 </p>  </p>
 <hr />  <hr />
 <h2>$lt{'cc'}</h2>  <h2>$lt{'cc'}</h2>
 <p>  <p>
 <b>$lt{'user'}:</b> <input type="text" size="15" name="ccuname" />  <label>
 </p><p>      <b>$lt{'user'}:</b> <input type="text" size="15" name="ccuname" />
 <b>$lt{'dmn'}:</b> $domform  </label>
 </p><p>  </p><p>
 <b>$lt{'ierc'}:</b>  <label>
 <input type="checkbox" name="expireown" checked>      <b>$lt{'dmn'}:</b> $domform
   </label>
   </p><p>
   <label>
       <b>$lt{'ierc'}:</b>
       <input type="checkbox" name="expireown" checked />
   </label>
 </p>  </p>
 <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>
 </form>  </form>
 </body>  </body>
Line 581  ENDENHEAD Line 648  ENDENHEAD
     $cenv{'url'}=$oldcenv{'url'};      $cenv{'url'}=$oldcenv{'url'};
 # Restore title  # Restore title
     $cenv{'description'}=$oldcenv{'description'};      $cenv{'description'}=$oldcenv{'description'};
   # restore grading mode
       if (defined($oldcenv{'grading'})) {
    $cenv{'grading'}=$oldcenv{'grading'};
       }
 # Mark as cloned  # Mark as cloned
     $cenv{'clonedfrom'}=$cloneid;      $cenv{'clonedfrom'}=$cloneid;
     delete($cenv{'default_enrollment_start_date'});      delete($cenv{'default_enrollment_start_date'});
Line 657  ENDENHEAD Line 728  ENDENHEAD
     }      }
     if ($ENV{'form.notify'}) {      if ($ENV{'form.notify'}) {
       if ($ccuname) {        if ($ccuname) {
         $cenv{'internal.notifylist'} = $ccuname;          $cenv{'internal.notifylist'} = $ccuname.'@'.$ccdomain;
       }        }
     }      }
     if (@badclasses > 0) {      if (@badclasses > 0) {
Line 756  ENDENHEAD Line 827  ENDENHEAD
     $cenv{'internal.encpref'}=100+int(9*rand(99));      $cenv{'internal.encpref'}=100+int(9*rand(99));
     #      #
     # By default, use standard grading      # By default, use standard grading
     $cenv{'grading'} = 'standard';      if (!defined($cenv{'grading'})) { $cenv{'grading'} = 'standard'; }
   
     $r->print('<br />'.&mt('Setting environment').': '.                       $r->print('<br />'.&mt('Setting environment').': '.                 
           &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');            &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');
Removed from v.1.64  
changed lines
  Added in v.1.69

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