--- 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,...)',