loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.137, 2006/03/29 22:41:39	version 1.139, 2006/12/20 22:41:59
Line 116 sub start_script {	Line 116 sub start_script {
($env{'form.answer_output_mode'} ne 'tex') &&	($env{'form.answer_output_mode'} ne 'tex') &&
($Apache::lonhomework::viewgrades == 'F')) {	($Apache::lonhomework::viewgrades == 'F')) {
$Apache::lonxml::evaluate--;	$Apache::lonxml::evaluate--;
my (undef,undef,$udom,$uname)=&Apache::lonxml::whichuser();	my (undef,undef,$udom,$uname)=&Apache::lonnet::whichuser();
my $windowopen=&Apache::lonhtmlcommon::javascript_docopen();	my $windowopen=&Apache::lonhtmlcommon::javascript_docopen();
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Script Vars', undef,	&Apache::loncommon::start_page('Script Vars', undef,
Line 133 sub start_script {	Line 133 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 />";
}	}