[BACK]Return to chemresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/chemresponse.pm between versions 1.55 and 1.56

version 1.55, 2005/05/26 20:59:47 version 1.56, 2005/05/26 21:26:25
Line 132  CHEMINPUT Line 132  CHEMINPUT
     return $result;      return $result;
 }  }
   
   sub jme_img {
       my ($jme,$smile,$width,$options)=@_;
       my $id=&Apache::loncommon::get_cgi_id();
       my $result='<img alt="'.$smile.'" src="/cgi-bin/convertjme.pl?'.$id.'"';
       if ($options =~ /border/) { $result.= ' border="1"'; }
       $result.=' />';
       &Apache::lonnet::appenv('cgi.'.$id.'.JME'   =>
       &Apache::lonnet::escape($jme),
       'cgi.'.$id.'.PNG'   => 1,
       'cgi.'.$id.'.WIDTH' => $width);
       return $result;
   }
   
 sub start_organicresponse {  sub start_organicresponse {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;      my $result;
Line 147  sub start_organicresponse { Line 160  sub start_organicresponse {
    $safeeval);     $safeeval);
     my $width=&Apache::lonxml::get_param('width',$parstack,      my $width=&Apache::lonxml::get_param('width',$parstack,
    $safeeval);     $safeeval);
     my $id=&Apache::loncommon::get_cgi_id();      my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,
     $result="<img src='/cgi-bin/convertjme.pl?$id'";   $safeeval);
     if ($options =~ /border/) { $result.= ' border="1"'; }      $result.=&jme_img($jmeanswer,$answers[0],$width,$options);
     $result.=' />';  
     &Apache::lonnet::appenv('cgi.'.$id.'.JME'   =>  
            &Apache::lonnet::escape($jmeanswer),  
     'cgi.'.$id.'.PNG'   => 1,  
     'cgi.'.$id.'.WIDTH' => $width);  
  } else {   } else {
     my $molecule;      my $molecule;
     if (defined($Apache::lonhomework::history{"resource.$partid.$id.molecule"})) {      if (defined($Apache::lonhomework::history{"resource.$partid.$id.molecule"})) {
Removed from v.1.55  
changed lines
  Added in v.1.56

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>