--- loncom/interface/lonparmset.pm 2002/10/03 22:31:58 1.72
+++ loncom/interface/lonparmset.pm 2002/10/28 14:00:18 1.74
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.72 2002/10/03 22:31:58 albertel Exp $
+# $Id: lonparmset.pm,v 1.74 2002/10/28 14:00:18 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1196,7 +1196,7 @@ ENDTABLEHEADFOUR
foreach (split(/\,/,$keyp{$rid})) {
my $tempkeyp = $_;
my $fullkeyp = $tempkeyp;
- $tempkeyp =~ s/_[\d_]+_/_0_/;
+ $tempkeyp =~ s/_\w+_/_0_/;
if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
$part{$tempkeyp}="0";
@@ -1204,7 +1204,7 @@ ENDTABLEHEADFOUR
$display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
- $display{$tempkeyp} =~ s/_[\d_]+_/_0_/;
+ $display{$tempkeyp} =~ s/_\w+_/_0_/;
$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
}
@@ -1278,14 +1278,14 @@ ENDMAPONE
foreach (split(/\,/,$keyp{$rid})) {
my $tempkeyp = $_;
my $fullkeyp = $tempkeyp;
- $tempkeyp =~ s/_[\d_]+_/_0_/;
+ $tempkeyp =~ s/_\w+_/_0_/;
if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
$part{$tempkeyp}="0";
$name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
$display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
- $display{$tempkeyp} =~ s/_[\d_]+_/_0_/;
+ $display{$tempkeyp} =~ s/_\w+_/_0_/;
$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
}
@@ -1403,13 +1403,13 @@ sub crsenv {
'Browse
",
- 'question.email' => 'Feedback Addresses for Content '.
+ 'question.email' => 'Feedback Addresses for Resource Content '.
'Questions
(user:domain,'.
- 'user:domain,...)',
- 'comment.email' => 'Feedback Addresses for Comments
'.
- '(user:domain,user:domain,...)',
+ 'user:domain(section;section;...;*;...),...)',
+ 'comment.email' => 'Feedback Addresses for Course Content Comments
'.
+ '(user:domain,user:domain(section;section;...;*;...),...)',
'policy.email' => 'Feedback Addresses for Course Policy'.
- '
(user:domain,user:domain,...)',
+ '
(user:domain,user:domain(section;section;...;*;...),...)',
'hideemptyrows' => 'Hide Empty Rows in Spreadsheets
'.
'("yes" for default hiding)',
'pageseparators' => 'Visibly Separate Items on Pages
'.