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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.93.2.2 and 1.93.2.3

version 1.93.2.2, 2006/06/29 17:47:19 version 1.93.2.3, 2006/07/19 10:08:26
Line 833  sub create_course { Line 833  sub create_course {
                clonecourse => $env{'form.clonecourse'},                 clonecourse => $env{'form.clonecourse'},
                clonedomain => $env{'form.clonedomain'},                 clonedomain => $env{'form.clonedomain'},
                crsid => $env{'form.crsid'},                 crsid => $env{'form.crsid'},
                curruser => $env{'user.name'},                 curruser => $env{'user.name'}.':'.$env{'user.domain'},
                crssections => $env{'form.crssections'},                 crssections => $env{'form.crssections'},
                crsxlist => $env{'form.crsxlist'},                 crsxlist => $env{'form.crsxlist'},
                autoadds => $env{'form.autoadds'},                 autoadds => $env{'form.autoadds'},
Line 918  sub construct_course { Line 918  sub construct_course {
     my $crstype = lc($args->{'crstype'});      my $crstype = lc($args->{'crstype'});
     my %cenv=();      my %cenv=();
     $$courseid=&Apache::lonnet::createcourse($args->{'course_domain'},      $$courseid=&Apache::lonnet::createcourse($args->{'course_domain'},
                                                $args->{'cdescr'},                                               $args->{'cdescr'},
                                                $args->{'curl'},                                               $args->{'curl'},
                                                $args->{'course_home'},                                               $args->{'course_home'},
                                                $args->{'nonstandard'},                                               $args->{'nonstandard'},
                                                $args->{'crscode'},                                               $args->{'crscode'},
                                                $args->{'ccuname'},                                               $args->{'ccuname'}.':'.
                                                $args->{'crstype'});                                               $args->{'ccdomain'},
                                                $args->{'crstype'});
   
     # Note: The testing routines depend on this being output; see       # Note: The testing routines depend on this being output; see 
     # Utils::Course. This needs to at least be output as a comment      # Utils::Course. This needs to at least be output as a comment
Line 988  sub construct_course { Line 989  sub construct_course {
         $cenv{'internal.coursequota'}=$args->{'crsquota'} = 20;          $cenv{'internal.coursequota'}=$args->{'crsquota'} = 20;
     }      }
     if ($args->{'ccuname'}) {      if ($args->{'ccuname'}) {
         $cenv{'internal.courseowner'} = $args->{'ccuname'};          $cenv{'internal.courseowner'} = $args->{'ccuname'}.
                                           ':'.$args->{'ccdomain'};
     } else {      } else {
         $cenv{'internal.courseowner'} = $args->{'curruser'};          $cenv{'internal.courseowner'} = $args->{'curruser'};
     }      }
Line 1047  sub construct_course { Line 1049  sub construct_course {
     my @notified = ();      my @notified = ();
     if ($args->{'notify_owner'}) {      if ($args->{'notify_owner'}) {
         if ($args->{'ccuname'} ne '') {          if ($args->{'ccuname'} ne '') {
             push(@notified,$args->{'ccuname'}.'@'.$args->{'ccdomain'});              push(@notified,$args->{'ccuname'}.':'.$args->{'ccdomain'});
         }          }
     }      }
     if ($args->{'notify_dc'}) {      if ($args->{'notify_dc'}) {
Removed from v.1.93.2.2  
changed lines
  Added in v.1.93.2.3

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