loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.70, 2004/11/23 06:58:34	version 1.72, 2004/12/03 22:29:17
Line 138 sub copydb {	Line 138 sub copydb {
my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid);	my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid);
my %data=&Apache::lonnet::dump	my %data=&Apache::lonnet::dump
($which,$origcrsdata{'domain'},$origcrsdata{'num'});	($which,$origcrsdata{'domain'},$origcrsdata{'num'});
	foreach my $key (keys(%data)) {
	if ($key=~/^internal./) { delete($data{$key}); }
	}
return &Apache::lonnet::put	return &Apache::lonnet::put
($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'});	($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'});
}	}
Line 613 ENDENHEAD	Line 616 ENDENHEAD
$cdescr,$curl,	$cdescr,$curl,
$ENV{'form.course_home'},	$ENV{'form.course_home'},
$ENV{'form.nonstandard'},	$ENV{'form.nonstandard'},
$ENV{'form.crscode'});	$ENV{'form.crscode'},
	$ENV{'form.ccuname'});

# 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