loncom/interface/lonmodifycourse.pm - diff

Return to lonmodifycourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2004/06/17 18:31:24	version 1.10, 2004/06/29 14:56:32
Line 100 ENDBLOCK	Line 100 ENDBLOCK
unless ($code =~m/^___\d+$/) { $showcode = $code; }	unless ($code =~m/^___\d+$/) { $showcode = $code; }
if ($item =~ m/^($dom)_(\w+)$/) {	if ($item =~ m/^($dom)_(\w+)$/) {
$crs = $2;	$crs = $2;
$description = $courseIDs{$item};	if ($courseIDs{$item} =~ /^([^:]*):/) {
	$description = &Apache::lonnet::unescape($1);
	} else {
	$description = &Apache::lonnet::unescape($courseIDs{$item});
	}
# Get course owner	# Get course owner
my %settings = &Apache::lonnet::get('environment',['internal.courseowner'],$dom,$crs);	my %settings = &Apache::lonnet::get('environment',['internal.courseowner'],$dom,$crs);
if ( defined($settings{'internal.courseowner'}) ) {	if ( defined($settings{'internal.courseowner'}) ) {
Line 517 sub modify_course {	Line 521 sub modify_course {
$newattr{'coursecode'}=$ENV{'form.coursecode'};	$newattr{'coursecode'}=$ENV{'form.coursecode'};
unless ( $newattr{'coursecode'} eq $currattr{'coursecode'} ) {	unless ( $newattr{'coursecode'} eq $currattr{'coursecode'} ) {
$changecode = 1;	$changecode = 1;
	my $courseid_entry = &Apache::lonnet::escape($dom.'_'.$crs).'='.&Apache::lonnet::escape($description).'='.&Apache::lonnet::escape($ENV{'form.coursecode'});
	&Apache::lonnet::courseidput($dom,$courseid_entry,&Apache::lonnet::homeserver($crs,$dom));
}	}
}	}