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

Diff for /loncom/homework/chemresponse.pm between versions 1.2 and 1.3

version 1.2, 2003/05/04 22:14:53 version 1.3, 2003/05/05 19:27:08
Line 173  sub end_chemresponse { Line 173  sub end_chemresponse {
 }  }
   
 sub start_chemstructure {  sub start_chemstructure {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
       my $result;
       if ($target eq 'web') {
    my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval);
    my $height=&Apache::lonxml::get_param('height',$parstack,$safeeval);
    my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval);
    $result=<<CHEMOUTPUT;
   <applet code="JME.class" archive="/adm/jme/JME.jar" width="$width" height="$height">
   <param name="options" value="depict border" />
   <param name="jme" value="$molecule" />
   </applet>
   CHEMOUTPUT
       } elsif ($target eq 'edit') {
    $result .=&Apache::edit::tag_start($target,$token);
    $result .=&Apache::edit::text_arg('Width:','width',$token,5);
    $result .=&Apache::edit::text_arg('Height:','height',$token,5);
    $result .=&Apache::edit::text_arg('Molecule:','molecule',$token,40);
    my $molecule=&Apache::lonxml::get_param('molecule',$parstack,
    $safeeval);
    $result .=&seperate_jme_window(undef,
         &Apache::edit::html_element_name('molecule'),
         $molecule);
    $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
       } elsif ($target eq 'modified') {
    my $constructtag=&Apache::edit::get_new_args($token,$parstack,
        $safeeval,'molecule',
        'width','height');
    if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
       }
       return $result;
 }  }
   
 sub end_chemstructure {  sub end_chemstructure {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
       my $result;
       if ($target eq "edit") {
    $result.= &Apache::edit::tag_end($target,$token,'');
       }
       return $result;
 }  }
   
 1;  1;
Removed from v.1.2  
changed lines
  Added in v.1.3

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