loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.138, 2006/10/17 15:11:37	version 1.140, 2007/01/23 21:28:41
Line 126 sub start_script {	Line 126 sub start_script {
my $end_page =	my $end_page =
&Apache::loncommon::end_page({'js_ready' => 1,});	&Apache::loncommon::end_page({'js_ready' => 1,});

	$uname =~s/\W//g;
	$udom =~s/\W//g;
$result.="<script type=\"text/javascript\">	$result.="<script type=\"text/javascript\">
// <![CDATA[	// <![CDATA[
function LONCAPA_scriptvars_".$uname."_".$udom."_"."$Apache::lonxml::curdepth() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page<pre>";	function LONCAPA_scriptvars_".$uname."_".$udom."_"."$Apache::lonxml::curdepth() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page<pre>";
Line 133 sub start_script {	Line 135 sub start_script {
$listing=~s/\\/\\\\/g;	$listing=~s/\\/\\\\/g;
$listing=~s/\'/\\\'/g;	$listing=~s/\'/\\\'/g;
$result.=$listing;	$result.=$listing;
$result.= "</pre>$end_page');newWindow.document.close();newWindow.focus()}	$result.= "<\\/pre>$end_page');newWindow.document.close();newWindow.focus()}
// ]]>	// ]]>
</script><a href=\"javascript:LONCAPA_scriptvars_".$uname."_".$udom."_$Apache::lonxml::curdepth();void(0);\">Script Vars</a><br />";	</script><a href=\"javascript:LONCAPA_scriptvars_".$uname."_".$udom."_$Apache::lonxml::curdepth();void(0);\">Script Vars</a><br />";
}	}