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

Diff for /loncom/homework/chemresponse.pm between versions 1.80 and 1.81

version 1.80, 2008/09/05 20:23:57 version 1.81, 2008/09/21 20:09:06
Line 491  sub start_reactionresponse { Line 491  sub start_reactionresponse {
     } elsif ($target eq 'web') {      } elsif ($target eq 'web') {
  my $partid = $Apache::inputtags::part;   my $partid = $Apache::inputtags::part;
  my $id = $Apache::inputtags::response['-1'];   my $id = $Apache::inputtags::response['-1'];
  my $reaction=$Apache::lonhomework::history{"resource.$partid.$id.submission"};  
  if ($reaction eq '') {  $reaction=&Apache::lonxml::get_param('initial',$parstack,$safeeval); }  
  if (  &Apache::response::show_answer() ) {   if (  &Apache::response::show_answer() ) {
     my $ans=&Apache::lonxml::get_param('answer',$parstack,$safeeval);      my $ans=&Apache::lonxml::get_param('answer',$parstack,$safeeval);
     if (!$Apache::lonxml::default_homework_loaded) {      if (!$Apache::lonxml::default_homework_loaded) {
Line 510  sub start_reactionresponse { Line 508  sub start_reactionresponse {
  my $initial=&Apache::lonxml::get_param('initial',$parstack,$safeeval);   my $initial=&Apache::lonxml::get_param('initial',$parstack,$safeeval);
  $result.='<nobr>'.   $result.='<nobr>'.
     &Apache::edit::text_arg('Initial Reaction:','initial',$token,40);      &Apache::edit::text_arg('Initial Reaction:','initial',$token,40);
   
  $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') {
  my $constructtag=&Apache::edit::get_new_args($token,$parstack,   my $constructtag=&Apache::edit::get_new_args($token,$parstack,
Line 584  sub end_reactionresponse { Line 581  sub end_reactionresponse {
             &Apache::lonhomework::set_bubble_lines();              &Apache::lonhomework::set_bubble_lines();
         }          }
     }      }
      my $status=$Apache::inputtags::status['-1'];      my $status=$Apache::inputtags::status['-1'];
         if  (($target eq 'web') && ($Apache::lonhomework::type ne 'exam') && ($status eq 'CAN_ANSWER')) {      if  (($target eq 'web') && ($Apache::lonhomework::type ne 'exam') && ($status eq 'CAN_ANSWER')) {
              my $partid = $Apache::inputtags::part;          my $reaction=$Apache::lonhomework::history{"resource.$partid.$id.submission"};
              my $id = $Apache::inputtags::response['-1'];          if ($reaction eq '') {  $reaction=&Apache::lonxml::get_param('initial',$parstack,$safeeval); }
              my $reaction=$Apache::lonhomework::history{"resource.$partid.$id.submission"};          $result.=&edit_reaction_button($id,"HWVAL_$id",$reaction);
              $result.=&edit_reaction_button($id,"HWVAL_$id",$reaction);      }
   
         }    
     &Apache::response::end_response();      &Apache::response::end_response();
     return $result;      return $result;
 }  }
Removed from v.1.80  
changed lines
  Added in v.1.81

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