loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.84, 2005/11/15 20:17:00	version 1.85, 2006/01/16 23:11:50
Line 159 sub copyresourcedb {	Line 159 sub copyresourcedb {
my %newdata=();	my %newdata=();
undef %newdata;	undef %newdata;
my $startdate=$data{$origcrsid.'.0.opendate'};	my $startdate=$data{$origcrsid.'.0.opendate'};
	if (!$startdate) {
	# now global start date for assements try the enrollment start
	my %start=&Apache::lonnet::get('environment',
	['default_enrollment_start_date'],
	$origcrsdata{'domain'},$origcrsdata{'num'});

	$startdate = $start{'default_enrollment_start_date'};
	}
my $today=time;	my $today=time;
my $delta=0;	my $delta=0;
if ($startdate) {	if ($startdate) {
Line 193 sub copyresourcedb {	Line 201 sub copyresourcedb {
$thiskey=~s/^$origcrsid/$newcrsid/;	$thiskey=~s/^$origcrsid/$newcrsid/;
$newdata{$thiskey}=$data{$_};	$newdata{$thiskey}=$data{$_};
if ($data{$_.'.type'}=~/^date_(start\|end)$/) {	if ($data{$_.'.type'}=~/^date_(start\|end)$/) {
$newdata{$thiskey}=$newdata{$thiskey}+$delta;	if ($delta > 0) {
	$newdata{$thiskey}=$newdata{$thiskey}+$delta;
	} else {
	# no delta, it's unlikely we want the old dates and times
	delete($newdata{$thiskey});
	delete($newdata{$thiskey.'.type'});
	}
}	}
}	}
return &Apache::lonnet::put	return &Apache::lonnet::put