--- loncom/interface/lonmodifycourse.pm 2006/12/29 17:30:11 1.29 +++ loncom/interface/lonmodifycourse.pm 2007/01/15 01:08:53 1.30 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # handler for DC-only modifiable course settings # -# $Id: lonmodifycourse.pm,v 1.29 2006/12/29 17:30:11 raeburn Exp $ +# $Id: lonmodifycourse.pm,v 1.30 2007/01/15 01:08:53 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -67,7 +67,7 @@ sub get_enrollment_settings { } else { $enrollvar{$type} = localtime($settings{$item}); } - } elsif ($type eq "sectionums") { + } elsif ($type eq "sectionnums") { $enrollvar{$type} = $settings{$item}; $enrollvar{$type} =~ s/,/, /g; } elsif ($type eq "authtype" @@ -483,7 +483,7 @@ ENDDOCUMENT } sub modify_course { - my ($r,$cdom,$cnum,$cdesc,$domdesc) = @_; + my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; my %longtype = &course_settings_descrip(); my %settings = &Apache::lonnet::get('environment',['internal.courseowner','internal.coursecode','internal.authtype','internal.autharg','internal.sectionnums','internal.crosslistings','description'],$cdom,$cnum); my %currattr = (); @@ -560,7 +560,7 @@ sub modify_course { } } if ($changeowner == 1 || $changecode == 1) { - my $courseid_entry = &escape($cdom.'_'.$cnum).'='.&escape($description).':'.&escape($env{'form.coursecode'}).':'.&escape($env{'form.courseowner'}); + my $courseid_entry = &escape($cdom.'_'.$cnum).'='.&escape($description).':'.&escape($env{'form.coursecode'}).':'.&escape($env{'form.courseowner'}).':'.&escape($type); &Apache::lonnet::courseidput($cdom,$courseid_entry,&Apache::lonnet::homeserver($cnum,$cdom)); } @@ -922,7 +922,7 @@ sub handler { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Result"}); - &modify_course($r,$cdom,$cnum,$cdesc,$domdesc); + &modify_course($r,$cdom,$cnum,$cdesc,$domdesc,$type); } } } else {