--- loncom/interface/lonparmset.pm 2004/08/27 21:10:05 1.174
+++ loncom/interface/lonparmset.pm 2004/10/15 22:29:31 1.176
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.174 2004/08/27 21:10:05 albertel Exp $
+# $Id: lonparmset.pm,v 1.176 2004/10/15 22:29:31 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -581,6 +581,8 @@ sub extractResourceInformation {
foreach (keys %$bighash) {
if ($_=~/^src\_(\d+)\.(\d+)$/) {
+ # there are no resources in the 0 level
+ if ($1 eq '0') { next; }
my $mapid=$1;
my $resid=$2;
my $id=$mapid.'.'.$resid;
@@ -623,8 +625,12 @@ sub extractResourceInformation {
&Apache::lonnet::declutter($$bighash{'map_id_'.$mapid});
$$mapp{$mapid}=$$mapp{$id};
$$allmaps{$mapid}=$$mapp{$id};
- $$maptitles{$mapid}=
- $$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}};
+ if ($mapid eq '1') {
+ $$maptitles{$mapid}='Main Course Documents';
+ } else {
+ $$maptitles{$mapid}=
+ $$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}};
+ }
$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
$$symbp{$id}=$$mapp{$id}.
'___'.$resid.'___'.
@@ -996,23 +1002,36 @@ sub assessparms {
$r->print('
'.&mt('Select Parameters to View').' |
');
- $r->print(' |