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

Diff for /loncom/homework/chemresponse.pm between versions 1.78 and 1.79

version 1.78, 2008/03/12 02:46:52 version 1.79, 2008/09/05 16:09:39
Line 163  CHEMPAGE Line 163  CHEMPAGE
     my $docopen=&Apache::lonhtmlcommon::javascript_docopen();      my $docopen=&Apache::lonhtmlcommon::javascript_docopen();
     my $display=&mt('Draw Molecule');      my $display=&mt('Draw Molecule');
     if (defined($shown_text)) { $display=&mt($shown_text); }      if (defined($shown_text)) { $display=&mt($shown_text); }
       my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};
     my $function =       my $function = 
  'LONCAPA_draw_molecule_'.&Apache::lonhtmlcommon::get_uniq_name();   'LONCAPA_draw_molecule_'.&Apache::lonhtmlcommon::get_uniq_name();
     my $result=<<CHEMINPUT;      my $result=<<CHEMINPUT;
Line 175  CHEMPAGE Line 176  CHEMPAGE
  editor.focus();   editor.focus();
     }      }
 </script>  </script>
 <input type="button" value="$display" onclick="javascript:$function();void(0);" />  <a href="javascript:$function();void(0);"><img class="stift" src='$iconpath/stift.gif' alt='$display' title='$display' /></a>
 CHEMINPUT  CHEMINPUT
     return $result;      return $result;
 }  }
   
 sub jme_img {  sub jme_img {
     my ($jme,$smile,$width,$options)=@_;      my ($jme,$smile,$width,$options)=@_;
     my $id=&Apache::loncommon::get_cgi_id();      my $id=&Apache::loncommon::get_cgi_id();
Line 225  sub start_organicresponse { Line 225  sub start_organicresponse {
     if (&Apache::response::show_answer()) {      if (&Apache::response::show_answer()) {
  $shown_text="Show Your Last Answer";   $shown_text="Show Your Last Answer";
     }      }
     $result=&separate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule,      #stift $result=&separate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule,
  $options,$shown_text);  # $options,$shown_text);
     $result.= '<input type="hidden" name="MOLECULE_'.$id.'" value="" />';      $result.= '<input type="hidden" name="MOLECULE_'.$id.'" value="" />';
  }   }
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
Line 341  sub end_organicresponse { Line 341  sub end_organicresponse {
     &Apache::lonhomework::set_bubble_lines();      &Apache::lonhomework::set_bubble_lines();
  }   }
     }      }
       if (($target eq 'web' ) && ($Apache::lonhomework::type ne 'exam') && ($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')){
   # hierher
               my $options=&Apache::lonxml::get_param('options',$parstack,
                                                      $safeeval);
               my $shown_text;
               if (&Apache::response::show_answer()) {
                   $shown_text="Show Your Last Answer";
               }
       my $molecule;
       if (defined($Apache::lonhomework::history{"resource.$partid.$id.molecule"})) {
    $molecule=$Apache::lonhomework::history{"resource.$partid.$id.molecule"};
       } else {
    $molecule=&Apache::lonxml::get_param('molecule',$parstack,
        $safeeval);
       }
    $result.=&separate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule,
                                $options,$shown_text);
       }
     &Apache::response::end_response();      &Apache::response::end_response();
     return $result;      return $result;
 }  }
Removed from v.1.78  
changed lines
  Added in v.1.79

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