loncom/interface/lonclonecourse.pm - diff

Return to lonclonecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2006/08/11 22:00:08	version 1.2, 2006/12/05 01:36:13
Line 92 sub writefile {	Line 92 sub writefile {

sub rewritefile {	sub rewritefile {
my ($contents,%rewritehash)=@_;	my ($contents,%rewritehash)=@_;
foreach (keys %rewritehash) {	foreach my $pattern (keys(%rewritehash)) {
my $pattern=$_;	my $new=$rewritehash{$pattern};
$pattern=~s/(\W)/\\$1/gs;	$contents=~s/\Q$pattern\E/$new/gs;
my $new=$rewritehash{$_};
$contents=~s/$pattern/$new/gs;
}	}
return $contents;	return $contents;
}	}
Line 180 sub copyresourcedb {	Line 178 sub copyresourcedb {
}	}
# adjust symbs	# adjust symbs
my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';	my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';
$pattern=~s/(\W)/\\$1/gs;
my $new= 'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';	my $new= 'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';
foreach (keys %data) {	foreach (keys %data) {
if ($_=~/$pattern/) {	if ($_=~/\Q$pattern\E/) {
my $newkey=$_;	my $newkey=$_;
$newkey=~s/$pattern/$new/;	$newkey=~s/\Q$pattern\E/$new/;
$data{$newkey}=$data{$_};	$data{$newkey}=$data{$_};
delete $data{$_};	delete $data{$_};
}	}