loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1005, 2011/05/04 01:49:08	version 1.1006, 2011/05/27 18:36:51
Line 8929 sub modify_html_refs {	Line 8929 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 8938 sub modify_html_refs {	Line 8938 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 ++;
}	}