[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.67

version 1.64, 2004/07/12 17:55:35 version 1.67, 2004/09/09 19:24:01
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 278  sub print_course_creation_page { Line 280  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 581  ENDENHEAD Line 583  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 663  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 762  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.67

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