loncom/interface/lonmodifycourse.pm - diff

Return to lonmodifycourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.33, 2007/10/03 19:57:29	version 1.34, 2007/10/06 04:32:49
Line 563 sub modify_course {	Line 563 sub modify_course {
my $courseid_entry = &escape($cdom.'_'.$cnum).'='.&escape($description).':'.&escape($env{'form.coursecode'}).':'.&escape($env{'form.courseowner'}).':'.&escape($type);	my $courseid_entry = &escape($cdom.'_'.$cnum).'='.&escape($description).':'.&escape($env{'form.coursecode'}).':'.&escape($env{'form.courseowner'}).':'.&escape($type);
my %courseid_entry = (	my %courseid_entry = (
$cdom.'_'.$cnum => {	$cdom.'_'.$cnum => {
description => &escape($description),	description => $description,
inst_code => &escape($env{'form.coursecode'}),	inst_code => $env{'form.coursecode'},
owner => &escape($env{'form.courseowner'}),	owner => $env{'form.courseowner'},
type => &escape($type),	type => $type,
},	},
);	);
&Apache::lonnet::courseidput($cdom,\%courseid_entry,	&Apache::lonnet::courseidput($cdom,\%courseid_entry,
&Apache::lonnet::homeserver($cnum,$cdom));	&Apache::lonnet::homeserver($cnum,$cdom),'notime');
}	}
foreach my $param (@modifiable_params) {	foreach my $param (@modifiable_params) {
if ($currattr{$param} eq $newattr{$param}) {	if ($currattr{$param} eq $newattr{$param}) {