--- loncom/homework/structuretags.pm	2001/06/05 16:32:18	1.41
+++ loncom/homework/structuretags.pm	2001/06/12 22:42:55	1.43
@@ -41,7 +41,11 @@ sub start_problem {
 #intialize globals
   $Apache::inputtags::part='0';
   @Apache::inputtags::responselist = ();
-
+  $Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
+  &Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
+  if ($Apache::lonhomework::type eq '') {
+    $Apache::lonhomework::type='homework';
+  }
 #adeed vars to the scripting enviroment
   my $expression='$external::part='.$Apache::inputtags::part.';';
   &Apache::run::run($expression,$safeeval);
@@ -364,9 +368,15 @@ sub end_startouttext {
 
   if ($target eq 'edit') {
     $text=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]);
-    $result=
-      &Apache::edit::tag_start($target,$token).
-	&Apache::edit::editfield($token->[1],$text,"Text Block",50,5);
+    $result.=&Apache::edit::start_table($token)."<tr><td>Text Block</td>
+<td>Delete:".
+  &Apache::edit::deletelist($target,$token)
+  ."</td>
+<td>".
+  &Apache::edit::insertlist($target,$token).
+    "</td>
+</tr><tr><td colspan=\"3\">\n".
+	&Apache::edit::editfield($token->[1],$text,"",50,5);
   }
   if ($target eq 'modified') {
     $text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']);
@@ -377,7 +387,7 @@ sub end_startouttext {
 sub start_endouttext {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   my $result='';
-  if ($target eq "edit" ) { $result=&Apache::edit::tag_end($target,$token); }
+  if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; }
   if ($target eq "modified") { $result='<endouttext />'; }
   return $result;
 }