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

Diff for /loncom/homework/chemresponse.pm between versions 1.17 and 1.19

version 1.17, 2003/10/16 21:52:27 version 1.19, 2003/10/18 07:24:35
Line 143  sub start_organicresponse { Line 143  sub start_organicresponse {
  $result .='</nobr><br />';   $result .='</nobr><br />';
  $result .=&Apache::edit::checked_arg('Options:','options',   $result .=&Apache::edit::checked_arg('Options:','options',
     [ ['autoez','Auto E,Z sterochemistry'],      [ ['autoez','Auto E,Z sterochemistry'],
       ['multipart','MultiPart Structures'],        ['multipart','Multipart Structures'],
       ['hydrogens','Show Hydrogens'],  
       ['nostereo','No stereochemistry'],        ['nostereo','No stereochemistry'],
       ['reaction','Is a reaction'],        ['reaction','Is a reaction'],
       ['number','Able to number atoms'],        ['number','Able to number atoms'] ],
       ['border','Draw a border'] ],  
      ,$token);       ,$token);
  $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();   $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
Line 210  sub start_organicstructure { Line 208  sub start_organicstructure {
  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 $id=time.'_'.int(rand(1000));   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(   &Apache::lonnet::appenv(
             'cgi.'.$id.'.JME'   => &Apache::lonnet::escape($molecule),              'cgi.'.$id.'.JME'   => &Apache::lonnet::escape($molecule),
     'cgi.'.$id.'.PNG' => 1,      'cgi.'.$id.'.PNG' => 1,
Line 250  sub start_organicstructure { Line 250  sub start_organicstructure {
        $molecule,$options);         $molecule,$options);
  $result.="</nobr><br />";   $result.="</nobr><br />";
  $result .=&Apache::edit::checked_arg('Options:','options',   $result .=&Apache::edit::checked_arg('Options:','options',
      [ ['hydrogens','Show Hydrogens'],       [ ['reaction','Is a reaction'],
        ['reaction','Is a reaction'],  
        ['border','Draw a border'] ],         ['border','Draw a border'] ],
      $token);       $token);
  $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();   $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
Removed from v.1.17  
changed lines
  Added in v.1.19

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