loncom/interface/lonclonecourse.pm - diff

Return to lonclonecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2012/03/10 02:45:35	version 1.10, 2014/12/11 01:14:40
Line 166 sub copyresourcedb {	Line 166 sub copyresourcedb {
$startdate = $start{'default_enrollment_start_date'};	$startdate = $start{'default_enrollment_start_date'};
}	}
# ugly retro fix for broken version of types	# ugly retro fix for broken version of types
foreach my $key (keys %data) {	foreach my $key (keys(%data)) {
if ($key=~/\wtype$/) {	if ($key=~/\wtype$/) {
my $newkey=$key;	my $newkey=$key;
$newkey=~s/type$/\.type/;	$newkey=~s/type$/\.type/;
Line 177 sub copyresourcedb {	Line 177 sub copyresourcedb {
# adjust symbs	# adjust symbs
my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';	my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';
my $new= 'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';	my $new= 'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';
foreach my $key (keys %data) {	foreach my $key (keys(%data)) {
if ($key=~/\Q$pattern\E/) {	if ($key=~/\Q$pattern\E/) {
my $newkey=$key;	my $newkey=$key;
$newkey=~s/\Q$pattern\E/$new/;	$newkey=~s/\Q$pattern\E/$new/;
Line 186 sub copyresourcedb {	Line 186 sub copyresourcedb {
}	}
}	}
# transfer hash	# transfer hash
foreach my $key (keys %data) {	foreach my $key (keys(%data)) {
my $thiskey=$key;	my $thiskey=$key;
$thiskey=~s/^$origcrsid/$newcrsid/;	$thiskey=~s/^$origcrsid/$newcrsid/;
$newdata{$thiskey}=$data{$key};	$newdata{$thiskey}=$data{$key};