--- loncom/interface/lonparmset.pm 2004/01/15 03:18:19 1.148 +++ loncom/interface/lonparmset.pm 2004/04/24 08:31:01 1.155 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.148 2004/01/15 03:18:19 www Exp $ +# $Id: lonparmset.pm,v 1.155 2004/04/24 08:31:01 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -587,7 +587,8 @@ sub extractResourceInformation { my $resid=$2; my $id=$mapid.'.'.$resid; my $srcf=$$bighash{$_}; - if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) { +# if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) { + if (1) { $$ids[$#$ids+1]=$id; $$typep{$id}=$1; $$keyp{$id}=''; @@ -1151,8 +1152,10 @@ ENDTABLEHEADFOUR my $rid=$_; my ($inmapid)=($rid=~/\.(\d+)$/); - if (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid}) || - ($pssymb eq $symbp{$rid})) { + if ((!$pssymb && + (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid}))) + || + ($pssymb && $pssymb eq $symbp{$rid})) { # ------------------------------------------------------ Entry for one resource if ($defbgone eq '"E0E099"') { $defbgone='"E0E0DD"'; @@ -1196,7 +1199,8 @@ ENDTABLEHEADFOUR '>'. join(' / ',split(/\//,$uri)). '
'.
- "$title");
@@ -1496,7 +1500,7 @@ sub crsenv {
}
#
# Let the user know we made the changes
- if ($name) {
+ if ($name && defined($value)) {
my $put_result = &Apache::lonnet::put('environment',
{$name=>$value},$dom,$crs);
if ($put_result eq 'ok') {
@@ -1529,11 +1533,8 @@ sub crsenv {
'courseid' => ''.&mt('Course ID').' '.&mt('or').' '.&mt('number').
'
'.
'('.&mt('internal').', '.&mt('optional').')',
- 'grading' => ''.&mt('Grading').''.
- ' "'.&mt('standard').'", "'.&mt('external').'", '.
- &mt('or any other value').'.'.
- ' '.&mt('Default for new courses is').' "'.
- &mt('standard').'".',
+ 'grading' => ''.&mt('Grading').'
'.
+ '"standard", "external", or "spreadsheet" '.&Apache::loncommon::help_open_topic('GradingOptions'),
'default_xml_style' => ''.&mt('Default XML Style File').' '.
' ''.&mt('Randomization algorithm used').'
'.
''.&mt('Modifying this will make problems').' '.
&mt('have different numbers and answers').'',
+ 'receiptalg'
+ => ''.&mt('Receipt algorithm used').'
'.
+ &mt('This controls how receipt numbers are generated.'),
'problem_stream_switch'
=> ''.&mt('Allow problems to be split over pages').'
'.
' ("'.&mt('yes').'" '.&mt('if allowed, anything else if not').')',
'anonymous_quiz'
- => ''.&mt('Anonimous quiz/exam').'
'.
+ => ''.&mt('Anonymous quiz/exam').'
'.
' ('.&mt('yes').' '.&mt('to avoid print students names').' )',
'default_enrollment_start_date' => ''.&mt('Default beginning date when enrolling students').'',
'default_enrollment_end_date' => ''.&mt('Default ending date when enrolling students').'',
+ 'nothideprivileged' => ''.&mt('Privileged users that should not be hidden on staff listings').''.
+ '
(user:domain,user:domain,...)',
'languages' => ''.&mt('Languages used').'',
'disable_receipt_display'
=> ''.&mt('Disable display of problem receipts').'
'.
- ' ("'.&mt('yes').'" '.&mt('to disable, anything else if not').')'
+ ' ("'.&mt('yes').'" '.&mt('to disable, anything else if not').')',
+ 'tthoptions'
+ => ''.&mt('Default set of options to pass to tth/m when converting tex').''
);
my @Display_Order = ('url','description','courseid','grading',
'default_xml_style','pageseparators',
@@ -1612,7 +1620,9 @@ sub crsenv {
'pch.roles.denied','pch.users.denied',
'allow_limited_html_in_feedback',
'languages',
+ 'nothideprivileged',
'rndseed',
+ 'receiptalg',
'problem_stream_switch',
'disable_receipt_display',
'spreadsheet_default_classcalc',
@@ -1621,6 +1631,7 @@ sub crsenv {
'hideemptyrows',
'default_enrollment_start_date',
'default_enrollment_end_date',
+ 'tthoptions'
);
foreach my $parameter (sort(keys(%values))) {
unless ($parameter =~ m/^internal\./) {
@@ -1668,31 +1679,11 @@ sub crsenv {
my $Parameter=&mt('Parameter');
my $Value=&mt('Value');
my $Set=&mt('Set');
+ my $browse_js=&Apache::loncommon::browser_and_searcher_javascript();
$r->print(<