loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.170, 2014/07/27 11:39:29	version 1.171, 2014/08/03 14:20:43
Line 142 sub start_script {	Line 142 sub start_script {
}	}
} elsif (($type eq 'text/javascript') && ($bodytext ne '')) {	} elsif (($type eq 'text/javascript') && ($bodytext ne '')) {
if ($url =~ m{^\Q/uploaded/$cdom/$cnum/docs/\E}) {	if ($url =~ m{^\Q/uploaded/$cdom/$cnum/docs/\E}) {
if ($bodytext =~ m{\.addMediaSrc$(["'])(?:(?!\1).)+\1$}) {	if ($bodytext =~ m{\.addMediaSrc$(["'])((?!\1).)+\1$;}) {
my $quote = $1;	my $quote = $1;
if ($bodytext =~ m{\Q.addMediaSrc($quote\E([^$quote]+)\Q$quote)\E}) {	if ($bodytext =~ m{\Q.addMediaSrc($quote\E([^$quote]+)\Q$quote)\E}) {
my $fname = $1;	my $fname = $1;
Line 225 sub start_script {	Line 225 sub start_script {
}	}
}	}
}	}
	if ($bodytext =~ m{loadScript\(\s(['"])((?:(?!\1).)+\.js)\1,\sfunction}is) {
	my $fname = $2;
	if ($fname) {
	my $cleanhref =
	&Apache::londefdef::clean_docs_httpref($fname,$url,$cdom,$cnum);
	if ($cleanhref) {
	&Apache::lonxml::extlink($cleanhref);
	}
	}
	}
}	}
}	}
}	}