--- loncom/homework/caparesponse/caparesponse.pm	2001/06/02 03:59:59	1.31
+++ loncom/homework/caparesponse/caparesponse.pm	2001/06/29 18:53:50	1.32
@@ -55,7 +55,17 @@ sub end_caparesponse {
 sub start_numericalresponse {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   my $id = &Apache::response::start_response($parstack,$safeeval);
-  return '';
+  my $result;
+  if ($target eq 'edit') {
+    $result.=&Apache::edit::tag_start($target,$token,&Apache::lonxml::description($token));
+    $result.=&Apache::edit::text_arg('Answer:','answer',$token).
+      &Apache::edit::text_arg('Unit:','unit',$token).'</td></tr><tr><td colspan="3">';
+  } elsif ($target eq 'modified') {
+    my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
+						 'answer','unit');
+    if ($constructtag) { $result = &Apache::edit::rebuild_tag($token);}
+  }
+  return $result;
 }
 
 sub end_numericalresponse {
@@ -106,6 +116,8 @@ sub end_numericalresponse {
       chop $result;
       $result.=" $unit.<br></br>";
     }
+  } elsif ($target eq 'edit') {
+    $result.='</td></tr>'.&Apache::edit::end_table;
   }
   &Apache::response::end_response;
   return $result;