--- loncom/homework/edit.pm	2001/12/21 16:58:25	1.26
+++ loncom/homework/edit.pm	2002/01/11 16:32:29	1.27
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # edit mode helpers
 #
-# $Id: edit.pm,v 1.26 2001/12/21 16:58:25 harris41 Exp $
+# $Id: edit.pm,v 1.27 2002/01/11 16:32:29 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -26,6 +26,7 @@
 # http://www.lon-capa.org/
 #
 # 3/20 Guy
+# 01/10/02 Matthew
 package Apache::edit; 
 
 use strict;
@@ -55,10 +56,8 @@ sub tag_start {
   &deletelist($target,$token)
   ."</td>
 <td>".
-  &insertlist($target,$token).
-    "</td>
-</tr><tr><td colspan=\"3\">\n";
-#<td>".
+    &insertlist($target,$token).&end_row().&start_spanning_row();
+#<td>". 
 #  &movebuttons($target,$token).
 #    "</tr><tr><td colspan=\"3\">\n";
   }
@@ -105,6 +104,10 @@ sub end_table {
   return $result;
 }
 
+sub start_spanning_row { return '<tr><td colspan="3">';}
+sub start_row          { return '<tr><td>';            }
+sub end_row            { return '</td></tr>';          }
+
 sub movebuttons {
   my ($target,$token) = @_;
   my $result='<input type="submit" name="moveup.'.
@@ -392,7 +395,7 @@ sub select_arg {
   }
   $result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'">
        '.$optionlist.'
-      </select></td></tr><tr><td colspan="3">';
+      </select>';
   return $result;
 }
 
@@ -414,7 +417,7 @@ sub select_or_text_arg {
   if ($found) {
     $result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'">
        '.$optionlist.'
-      </select></td></tr><tr><td colspan="3">';
+      </select>';
   } else {
     $result.=&text_arg($description,$name,$token,$size);
   }
@@ -473,6 +476,18 @@ end_table() : reduce color depth; end ta
 
 =item *
 
+start_spanning_row() : start a new table row spanning the 'edit' environment.
+
+=item *
+
+start_row() : start a new table row and element. 
+
+=item *
+
+end_row() : end current table element and row.
+
+=item *
+
 movebuttons($target,$token) : move-up and move-down buttons; return scalar
 string