Diff for /loncom/homework/chemresponse.pm between versions 1.8 and 1.9

version 1.8, 2003/06/30 20:58:52 version 1.9, 2003/06/30 21:59:03
Line 227  sub end_organicstructure { Line 227  sub end_organicstructure {
     return $result;      return $result;
 }  }
   
   sub edit_reaction_button {
       my ($id,$field,$molecule)=@_;
       my $result=<<EDITREACTION;
   <input type='button' value='Edit Reaction' onClick="javascript:editor=window.open('/res/adm/reactionresponse/reaction_window.html','','width=500,height=270,scrollbars=no,resizable=yes'); document.cookie='problem=$id; field=$field; molecule=$molecule';" />
   EDITREACTION
       return $result;
   }
   
 sub start_reactionresponse {  sub start_reactionresponse {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;      my $result;
     my $id = &Apache::response::start_response($parstack,$safeeval);      my $id = &Apache::response::start_response($parstack,$safeeval);
     if ($target eq 'web') {      if ($target eq 'web') {
  $result.=<<EDITREACTION;   $result.=&edit_reaction_button($id,"HWVAL_$id");
 <input type='button' value='Edit Reaction' onClick="javascript:editor=window.open('/res/adm/reactionresponse/reaction_window.html','','width=500,height=270,scrollbars=no,resizable=yes'); document.cookie='problem=$id';" />  
 EDITREACTION  
   
 # $result.=&reaction_javascript();  
 # $result.='<iframe name="REACTION_'.$id.'" width="200" height="100" src="/adm/jme/reaction_viewer.html"></iframe>';  
 # $result.='<input type="button" value="Check" onClick = "javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200,scrollbars=1\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<center><br />\'+to_html(document.lonhomework.HWVAL_'.$id.'.value)+\'</center><input type=&quot;button&quot; value=&quot;  Close  &quot; onClick = &quot;parent.window.close()&quot; />\');newWindow.document.close()" />'  
     } elsif ($target eq "edit") {      } elsif ($target eq "edit") {
    $result .=&Apache::edit::tag_start($target,$token);
    $result .=&Apache::edit::text_arg('Answer:','answer',$token,40);
    my $answer=&Apache::lonxml::get_param('answer',$parstack,
    $safeeval);
    $result .=&edit_reaction_button($id,&Apache::edit::html_element_name('answer'),$answer);
    $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
     }      }
     return $result;      return $result;
 }  }

Removed from v.1.8  
changed lines
  Added in v.1.9


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