--- loncom/interface/lonparmset.pm	2004/06/02 21:51:01	1.162
+++ loncom/interface/lonparmset.pm	2004/07/02 08:12:23	1.165
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.162 2004/06/02 21:51:01 albertel Exp $
+# $Id: lonparmset.pm,v 1.165 2004/07/02 08:12:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1598,6 +1598,9 @@ sub crsenv {
 	     'receiptalg'
 	         => '<b>'.&mt('Receipt algorithm used').'</b> <br />'.
                     &mt('This controls how receipt numbers are generated.'),
+             'suppress_tries'
+                 => '<b>'.&mt('Suppress number of tries in printing').'</b>('.
+                    &mt('yes if supress').')',
              'problem_stream_switch'
                  => '<b>'.&mt('Allow problems to be split over pages').'</b><br />'.
                     ' ('.&mt('"[_1]" if allowed, anything else if not','<tt>yes</tt>').')',
@@ -1617,6 +1620,9 @@ sub crsenv {
              'disable_receipt_display'
                  => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
+	     'disablesigfigs'
+	         => '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.
+                    ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
 	     'tthoptions'
 	         => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
              ); 
@@ -1631,6 +1637,7 @@ sub crsenv {
                              'rndseed',
                              'receiptalg',
                              'problem_stream_switch',
+			     'suppress_tries',
                              'default_paper_size',
                              'disable_receipt_display',
                              'spreadsheet_default_classcalc',
@@ -1639,7 +1646,8 @@ sub crsenv {
                              'hideemptyrows',
                              'default_enrollment_start_date',
                              'default_enrollment_end_date',
-			     'tthoptions'
+			     'tthoptions',
+			     'disablesigfigs'
                              );
 	foreach my $parameter (sort(keys(%values))) {
             unless ($parameter =~ m/^internal\./) {
@@ -1905,7 +1913,10 @@ sub handler {
 # ----------------------------------------------------- Needs to be in a course
 
     if (($ENV{'request.course.id'}) && 
-	(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {
+	(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}) || 
+	 &Apache::lonnet::allowed('opa',$ENV{'request.course.id'}.'/'.
+				  $ENV{'request.course.sec'})
+	 )) {
 
         &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;