loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.948.2.27, 2011/03/04 01:32:00	version 1.948.2.28, 2011/05/27 19:31:50
Line 9028 sub modify_html_refs {	Line 9028 sub modify_html_refs {
if ($allfiles{$ref}) {	if ($allfiles{$ref}) {
my $newname = $orig;	my $newname = $orig;
my ($attrib_regexp,$codebase);	my ($attrib_regexp,$codebase);
my $attrib_regexp = &unescape($env{'form.embedded_attrib_'.$i});	$attrib_regexp = &unescape($env{'form.embedded_attrib_'.$i});
if ($attrib_regexp =~ /:/) {	if ($attrib_regexp =~ /:/) {
$attrib_regexp =~ s/\:/\|/g;	$attrib_regexp =~ s/\:/\|/g;
}	}
Line 9037 sub modify_html_refs {	Line 9037 sub modify_html_refs {
$count += $numchg;	$count += $numchg;
}	}
if ($env{'form.embedded_codebase_'.$i} ne '') {	if ($env{'form.embedded_codebase_'.$i} ne '') {
my $codebase = &unescape($env{'form.embedded_codebase_'.$i});	$codebase = &unescape($env{'form.embedded_codebase_'.$i});
my $numchg = ($content =~ s/(codebase\s=\s["']?)\Q$codebase\E(["']?)/$1.$2/i); #' stupid emacs	my $numchg = ($content =~ s/(codebase\s=\s["']?)\Q$codebase\E(["']?)/$1.$2/i); #' stupid emacs
$codebasecount ++;	$codebasecount ++;
}	}