loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.57, 2005/06/26 22:18:32	version 1.58, 2005/06/27 10:58:40
Line 292 sub start_organicstructure {	Line 292 sub start_organicstructure {
'cgi.'.$id.'.WIDTH' => $width );	'cgi.'.$id.'.WIDTH' => $width );
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $texwidth=&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,undef,1);	my $texwidth=&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,undef,1);
	my $webwidth=&Apache::lonxml::get_param('width', $parstack, $safeeval);
	my $webheight=&Apache::lonxml::get_param('height', $parstack, $safeeval);
	if ($webheight) { $webheight = $webwidth; }
if (!$texwidth) { $texwidth='90'; }	if (!$texwidth) { $texwidth='90'; }
	$result = "%DYNAMICIMAGE:$webwidth:$webheight:$texwidth\n";
my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval);	my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval);
my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval);	my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval);
my $filename = $env{'user.name'}.'_'.$env{'user.domain'}.	my $filename = $env{'user.name'}.'_'.$env{'user.domain'}.