--- loncom/interface/lonparmset.pm 2004/06/04 22:56:45 1.163
+++ 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.163 2004/06/04 22:56:45 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'
=> ''.&mt('Receipt algorithm used').'
'.
&mt('This controls how receipt numbers are generated.'),
+ 'suppress_tries'
+ => ''.&mt('Suppress number of tries in printing').'('.
+ &mt('yes if supress').')',
'problem_stream_switch'
=> ''.&mt('Allow problems to be split over pages').'
'.
' ('.&mt('"[_1]" if allowed, anything else if not','yes').')',
@@ -1634,6 +1637,7 @@ sub crsenv {
'rndseed',
'receiptalg',
'problem_stream_switch',
+ 'suppress_tries',
'default_paper_size',
'disable_receipt_display',
'spreadsheet_default_classcalc',
@@ -1909,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;