[LON-CAPA-cvs] cvs: loncom /homework edit.pm

[albertel]

albertel		Mon Jan 27 19:14:17 2003 EDT

  Modified files:              
    /loncom/homework	edit.pm 
  Log:
  - adding matchresponse and some &nbsp
  
  
Index: loncom/homework/edit.pm
diff -u loncom/homework/edit.pm:1.43 loncom/homework/edit.pm:1.44
--- loncom/homework/edit.pm:1.43	Sun Jan 19 03:13:54 2003
+++ loncom/homework/edit.pm	Mon Jan 27 19:14:17 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # edit mode helpers
 #
-# $Id: edit.pm,v 1.43 2003/01/19 08:13:54 albertel Exp $
+# $Id: edit.pm,v 1.44 2003/01/28 00:14:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -337,6 +337,18 @@
 </rankresponse>';
 }
 
+sub insert_matchresponse {
+  return '
+<matchresponse max="10">
+    <foilgroup options="">
+      <itemgroup>
+      </itemgroup>
+    </foilgroup>
+    <hintgroup>
+    </hintgroup>
+</matchresponse>';
+}
+
 sub insert_displayduedate { return '<displayduedate />'; }
 sub insert_displaytitle   { return '<displaytitle />'; }
 sub insert_hintpart {
@@ -462,7 +474,7 @@
   my $result;
   if (!defined $size) { $size=20; }
   my $arg=$token->[2]{$name};
-  $result=$description.'<input name="'."$Apache::lonxml::curdepth.$name".
+  $result=$description.'&nbsp;<input name="'."$Apache::lonxml::curdepth.$name".
     '" type="text" value="'.$arg.'" size="'.$size.'" />';
   return $result;
 }
@@ -486,7 +498,7 @@
 	    $optionlist.="<option $value >$option</option>\n";
 	}
     }
-    $result.=$description.'<select name="'.
+    $result.=$description.'&nbsp;<select name="'.
 	"$Apache::lonxml::curdepth.$name".'">
        '.$optionlist.'
       </select>';
@@ -516,7 +528,7 @@
     }
     $optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n";
     if (($found) || (!$selected)) {
-	$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'">
+	$result.=$description.'&nbsp;<select name="'."$Apache::lonxml::curdepth.$name".'">
        '.$optionlist.'
       </select>';
     } else {