--- loncom/interface/lonparmset.pm 2004/02/02 20:21:25 1.150
+++ loncom/interface/lonparmset.pm 2004/04/01 15:12:27 1.152
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.150 2004/02/02 20:21:25 www Exp $
+# $Id: lonparmset.pm,v 1.152 2004/04/01 15:12:27 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"';
@@ -1589,6 +1592,9 @@ sub crsenv {
=> ''.&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').')',
@@ -1615,6 +1621,7 @@ sub crsenv {
'languages',
'nothideprivileged',
'rndseed',
+ 'receiptalg',
'problem_stream_switch',
'disable_receipt_display',
'spreadsheet_default_classcalc',