--- loncom/homework/structuretags.pm	2003/05/15 21:44:23	1.175
+++ loncom/homework/structuretags.pm	2003/05/19 21:05:23	1.176
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.175 2003/05/15 21:44:23 albertel Exp $
+# $Id: structuretags.pm,v 1.176 2003/05/19 21:05:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -193,10 +193,13 @@ sub problem_web_to_edit_header {
     $result.= ' /> Show All Foils
              <hr />';
     my $numtoanalyze=$ENV{'form.numtoanalyze'};
-    if (!$numtoanalyze) { $numtoanalyze=100; }
-    $result.= '<input type="submit" name="problemmode" value="Answer Distribution" />
+    if (!$numtoanalyze) { $numtoanalyze=20; }
+    $result.= '<input type="submit" name="problemmode" value="Calculate answers" /> for
              <input type="text" name="numtoanalyze" value="'.
-		 $numtoanalyze.'" size="5" /> <hr />';
+		 $numtoanalyze.'" size="5" /> versions of this problem.'.
+		     &Apache::loncommon::help_open_topic("Analyze_Problem",
+						     '',undef,undef,300).
+		     '<hr />';
     return $result;
 }