--- loncom/interface/lonparmset.pm 2005/03/17 22:12:52 1.187
+++ loncom/interface/lonparmset.pm 2005/03/18 15:17:36 1.189
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.187 2005/03/17 22:12:52 www Exp $
+# $Id: lonparmset.pm,v 1.189 2005/03/18 15:17:36 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -474,8 +474,21 @@ $assessparmhelp
ENDHEAD2
-}
- $r->print(<';
+ foreach ('',sort keys %sectionhash) {
+ $sections.='';
+ }
+ $sections.='';
+ }
+ $r->print(<
$lt{'captm'}
ENDHEAD3
@@ -485,13 +498,12 @@ ENDHEAD3
} else {
$r->print(<
-$lt{'sg'}:
-
-
+$sections
+
$lt{'fu'}
-
+
$lt{'oi'}
-
+
$lt{'ad'}
$chooseopt
@@ -797,6 +809,7 @@ sub assessparms {
my $message='';
$csec=$ENV{'form.csec'};
+
if ($udom=$ENV{'form.udom'}) {
} elsif ($udom=$ENV{'request.role.domain'}) {
} elsif ($udom=$ENV{'user.domain'}) {
@@ -902,7 +915,7 @@ sub assessparms {
}
# --------------------------------------------------------- Get all assessments
- extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles);
+ &extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles);
$mapp{'0.0'} = '';
$symbp{'0.0'} = '';