[LON-CAPA-cvs] cvs: loncom /homework chemresponse.pm

[albertel]

albertel		Sat Oct 18 03:24:35 2003 EDT

  Modified files:              
    /loncom/homework	chemresponse.pm 
  Log:
  - respect border parameter in web mode
  
  
Index: loncom/homework/chemresponse.pm
diff -u loncom/homework/chemresponse.pm:1.18 loncom/homework/chemresponse.pm:1.19
--- loncom/homework/chemresponse.pm:1.18	Fri Oct 17 18:26:38 2003
+++ loncom/homework/chemresponse.pm	Sat Oct 18 03:24:35 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # chemical equation style response
 #
-# $Id: chemresponse.pm,v 1.18 2003/10/17 22:26:38 albertel Exp $
+# $Id: chemresponse.pm,v 1.19 2003/10/18 07:24:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -208,7 +208,9 @@
 	my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval);
 	my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval);
 	my $id=time.'_'.int(rand(1000));
-	$result="<img src='/cgi-bin/convertjme.pl?$id' />";
+	$result="<img src='/cgi-bin/convertjme.pl?$id'";
+	if ($options =~ /border/) { $result.= ' border="1"'; }
+	$result.=' />';
 	&Apache::lonnet::appenv(
             'cgi.'.$id.'.JME'   => &Apache::lonnet::escape($molecule),
 	    'cgi.'.$id.'.PNG' => 1,