--- loncom/interface/lonparmset.pm 2002/08/12 18:54:16 1.59
+++ loncom/interface/lonparmset.pm 2002/08/29 03:57:45 1.61.2.1
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.59 2002/08/12 18:54:16 matthew Exp $
+# $Id: lonparmset.pm,v 1.61.2.1 2002/08/29 03:57:45 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -591,7 +591,7 @@ sub assessparms {
$ids[$#ids+1]=$id;
$typep{$id}=$1;
$keyp{$id}='';
- foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'keys'))) {
+ foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
if ($_=~/^parameter\_(.*)/) {
my $key=$_;
my $allkey=$1;
@@ -870,11 +870,9 @@ sub assessparms {
$r->print('');
my @temp_psprt;
- map {
- my $t = $_;
- push(@temp_psprt,
- grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));
- } @psprt;
+ foreach my $t (@psprt) {
+ push(@temp_psprt, grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));
+ }
@psprt = @temp_psprt;
@@ -1034,8 +1032,8 @@ ENDTABLEHEADFOUR
#-------------------------------------------- for each map, gather information
my $mapid;
- foreach $mapid (keys %maplist) {
- my $maptitle = $allmaps{$mapid};
+ foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) {
+ my $maptitle = $maplist{$mapid};
#----------------------- loop through ids and get all parameter types for map
#----------------------------------------- and associated information
@@ -1284,9 +1282,11 @@ sub crsenv {
'pageseparators' => 'Visibly Separate Items on Pages
'.
'("yes" for visible separation)',
'pch.roles.denied'=> 'Disallow Resource Discussion for '.
- 'Roles ' .
- Apache::loncommon::help_open_topic("Course_Disable_Discussion")
- ,
+ 'Roles
"st": '.
+ 'student, "ta": '.
+ 'TA, "in": '.
+ 'instructor;
role,role,...) '.
+ Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
'pch.users.denied' =>
'Disallow Resource Discussion for Users
'.
'(user:domain,user:domain,...)',